OVH Cloud OVH Cloud

chaine de caractère

10 réponses
Avatar
christian
Salut,
C'est plus qu'un tou, c'est un gouffre...
Quel est la fonction qui permet de faire la dif=E9rence entre
ces deux chaines de caract=E8res.
Mystring =3D "PAPA" et Mystring1 =3D "PapA"

marci d'avance,
A+ Christian

10 réponses

Avatar
Bismark Prods
de faire la différence ou de determiner si elles sont différentes en terme
de casse ?

"christian" a écrit dans le message de
news:04c801c3aaf4$66f65e30$
Salut,
C'est plus qu'un tou, c'est un gouffre...
Quel est la fonction qui permet de faire la diférence entre
ces deux chaines de caractères.
Mystring = "PAPA" et Mystring1 = "PapA"

marci d'avance,
A+ Christian
Avatar
ng
Regarde du coté de StrCompare ou bien de l'opérateur like qui est case
sensitive :

msgbox "PAPA" like "PapA" => renvoi faux

Nicolas.

"christian" a écrit dans le message de
news: 04c801c3aaf4$66f65e30$
Salut,
C'est plus qu'un tou, c'est un gouffre...
Quel est la fonction qui permet de faire la diférence entre
ces deux chaines de caractères.
Mystring = "PAPA" et Mystring1 = "PapA"

marci d'avance,
A+ Christian
Avatar
Bismark Prods
ca donnerait ca :

Public Function IsDiffCasse(chaine1 As String, chaine2 As String) As Boolean
Dim LI As Integer

If Len(chaine1) <> Len(chaine2) Then
IsDiffCasse = False
Exit Function
End If

For LI = 1 To Len(chaine1) - 1
If Asc(Mid(chaine1, LI, 1)) <> Asc(Mid(chaine2, LI, 1)) Then
IsDiffCasse = False
Exit Function
End If
Next LI
IsDiffCasse = True
End Function
"christian" a écrit dans le message de
news:04c801c3aaf4$66f65e30$
Salut,
C'est plus qu'un tou, c'est un gouffre...
Quel est la fonction qui permet de faire la diférence entre
ces deux chaines de caractères.
Mystring = "PAPA" et Mystring1 = "PapA"

marci d'avance,
A+ Christian
Avatar
Bismark Prods
sauf que dans mon cas la fonction devrait s'appeler IsNotDiffCasse ! lol

"Bismark Prods" a écrit dans le message de
news:
ca donnerait ca :

Public Function IsDiffCasse(chaine1 As String, chaine2 As String) As


Boolean
Dim LI As Integer

If Len(chaine1) <> Len(chaine2) Then
IsDiffCasse = False
Exit Function
End If

For LI = 1 To Len(chaine1) - 1
If Asc(Mid(chaine1, LI, 1)) <> Asc(Mid(chaine2, LI, 1)) Then
IsDiffCasse = False
Exit Function
End If
Next LI
IsDiffCasse = True
End Function
"christian" a écrit dans le message


de
news:04c801c3aaf4$66f65e30$
Salut,
C'est plus qu'un tou, c'est un gouffre...
Quel est la fonction qui permet de faire la diférence entre
ces deux chaines de caractères.
Mystring = "PAPA" et Mystring1 = "PapA"

marci d'avance,
A+ Christian




Avatar
christian
Merci c'est juste le " like " qui bloquait grave!
A+ cw
-----Message d'origine-----
Salut,
C'est plus qu'un tou, c'est un gouffre...
Quel est la fonction qui permet de faire la diférence


entre
ces deux chaines de caractères.
Mystring = "PAPA" et Mystring1 = "PapA"

marci d'avance,
A+ Christian
.



Avatar
Pmp
Est-ce que cela ne marcherait pas ?

Function DifCasse(Str1 as string, Str2 as string) as String
If Ucase(Str1)=Ucase(Str2) then
If Str1=Str2 then
DifCasse="Chaines identiques"
else
DifCasse="Chaines identiques avec casse différente"
end if
Else
DifCasse="Chaines différentes"
End if
End Function


--
---------------------------------
Pmp

Enlevez ANTIPUB de l'adresse en cas de Reply-to
(Saleté de SPAM !!!)
---------------------------------
"Bismark Prods" a écrit dans le message de news:
e$
sauf que dans mon cas la fonction devrait s'appeler IsNotDiffCasse ! lol

"Bismark Prods" a écrit dans le message de
news:
> ca donnerait ca :
>
> Public Function IsDiffCasse(chaine1 As String, chaine2 As String) As
Boolean
> Dim LI As Integer
>
> If Len(chaine1) <> Len(chaine2) Then
> IsDiffCasse = False
> Exit Function
> End If
>
> For LI = 1 To Len(chaine1) - 1
> If Asc(Mid(chaine1, LI, 1)) <> Asc(Mid(chaine2, LI, 1)) Then
> IsDiffCasse = False
> Exit Function
> End If
> Next LI
> IsDiffCasse = True
> End Function
> "christian" a écrit dans le


message
de
> news:04c801c3aaf4$66f65e30$
> Salut,
> C'est plus qu'un tou, c'est un gouffre...
> Quel est la fonction qui permet de faire la diférence entre
> ces deux chaines de caractères.
> Mystring = "PAPA" et Mystring1 = "PapA"
>
> marci d'avance,
> A+ Christian
>
>




Avatar
Bismark Prods
ben a priori je dirais que le raisonnement est ridicule mais je me trompe
completement ! lol


"Pmp" a écrit dans le message de
news:bp4m1v$d34$
Est-ce que cela ne marcherait pas ?

Function DifCasse(Str1 as string, Str2 as string) as String
If Ucase(Str1)=Ucase(Str2) then
If Str1=Str2 then
DifCasse="Chaines identiques"
else
DifCasse="Chaines identiques avec casse différente"
end if
Else
DifCasse="Chaines différentes"
End if
End Function


--
---------------------------------
Pmp

Enlevez ANTIPUB de l'adresse en cas de Reply-to
(Saleté de SPAM !!!)
---------------------------------
"Bismark Prods" a écrit dans le message de


news:
e$
> sauf que dans mon cas la fonction devrait s'appeler IsNotDiffCasse ! lol
>
> "Bismark Prods" a écrit dans le message de
> news:
> > ca donnerait ca :
> >
> > Public Function IsDiffCasse(chaine1 As String, chaine2 As String) As
> Boolean
> > Dim LI As Integer
> >
> > If Len(chaine1) <> Len(chaine2) Then
> > IsDiffCasse = False
> > Exit Function
> > End If
> >
> > For LI = 1 To Len(chaine1) - 1
> > If Asc(Mid(chaine1, LI, 1)) <> Asc(Mid(chaine2, LI, 1)) Then
> > IsDiffCasse = False
> > Exit Function
> > End If
> > Next LI
> > IsDiffCasse = True
> > End Function
> > "christian" a écrit dans le
message
> de
> > news:04c801c3aaf4$66f65e30$
> > Salut,
> > C'est plus qu'un tou, c'est un gouffre...
> > Quel est la fonction qui permet de faire la diférence entre
> > ces deux chaines de caractères.
> > Mystring = "PAPA" et Mystring1 = "PapA"
> >
> > marci d'avance,
> > A+ Christian
> >
> >
>
>




Avatar
Pmp
Hello !

Pourquoi ridicule ???
(Je sais que je ne suis pas toujours logique, mais là, je pensais être
plutôt simple dans la manière de faire, non ???)

--
---------------------------------
Pmp

Enlevez ANTIPUB de l'adresse en cas de Reply-to
(Saleté de SPAM !!!)
---------------------------------
"Bismark Prods" a écrit dans le message de news:

ben a priori je dirais que le raisonnement est ridicule mais je me trompe
completement ! lol




Avatar
Bismark Prods
disons que ta manière est peut-etre juste mais ne me semble pas très
académique.
mais en fait je vais la tester et je verrai si cela est un code robuste.

"Pmp" a écrit dans le message de
news:bp6as0$1pq$
Hello !

Pourquoi ridicule ???
(Je sais que je ne suis pas toujours logique, mais là, je pensais être
plutôt simple dans la manière de faire, non ???)

--
---------------------------------
Pmp

Enlevez ANTIPUB de l'adresse en cas de Reply-to
(Saleté de SPAM !!!)
---------------------------------
"Bismark Prods" a écrit dans le message de


news:

> ben a priori je dirais que le raisonnement est ridicule mais je me


trompe
> completement ! lol
>
>





Avatar
Bismark Prods
bon alors toutes mes excuses ! cela fonctionne très bien, pas de bug pour le
moment. juste une chose ! c'est mieux de mettre lcase que ucase ! ca prends
moins de place en mémoire ... lol

mais c'est très bien. J'avais pas trop confiance dans le signe "=" c'est
pour ca que j'étais méfiant


"Bismark Prods" a écrit dans le message de
news:
disons que ta manière est peut-etre juste mais ne me semble pas très
académique.
mais en fait je vais la tester et je verrai si cela est un code robuste.

"Pmp" a écrit dans le message de
news:bp6as0$1pq$
> Hello !
>
> Pourquoi ridicule ???
> (Je sais que je ne suis pas toujours logique, mais là, je pensais être
> plutôt simple dans la manière de faire, non ???)
>
> --
> ---------------------------------
> Pmp
>
> Enlevez ANTIPUB de l'adresse en cas de Reply-to
> (Saleté de SPAM !!!)
> ---------------------------------
> "Bismark Prods" a écrit dans le message de
news:
>
> > ben a priori je dirais que le raisonnement est ridicule mais je me
trompe
> > completement ! lol
> >
> >
>
>
>