Une petite fonction CompareString
Publié : sam. 11/févr./2012 16:41
Il est quelque fois bien utile de comparer deux chaines. En natif ce serait le pied. 
PureBasic
Forums PureBasic - Français
http://forums.purebasic.com/french/
Une petite fonction CompareString
Page 1 sur 1
Re: Une petite fonction CompareString
Publié : sam. 11/févr./2012 18:35
Explique toi stp
Re: Une petite fonction CompareString
Publié : dim. 12/févr./2012 14:54
@David
Tu ne comprends pas se que veut dire le mot compare!
chaine1$ = "A"
chaine2$ ="A"
CompareString(chaine1,chaine2$) Résultat 0 c'est pareil
chaine1$ = "A"
chaine2$ ="B"
CompareString(chaine1,chaine2$) Résultat 1 c'est pas pareil
toi yen a compris
Tu ne comprends pas se que veut dire le mot compare!
chaine1$ = "A"
chaine2$ ="A"
CompareString(chaine1,chaine2$) Résultat 0 c'est pareil
chaine1$ = "A"
chaine2$ ="B"
CompareString(chaine1,chaine2$) Résultat 1 c'est pas pareil
toi yen a compris
Re: Une petite fonction CompareString
Publié : dim. 12/févr./2012 14:57
Si je sais ce que cella voulais dire, je comprenais pas le reste lolça > En natif ce serait le pied
Re: Une petite fonction CompareString
Publié : dim. 12/févr./2012 15:01
des solutions ici:
http://www.purebasic.fr/english/viewtop ... =12&t=8578
http://www.purebasic.fr/english/viewtop ... =12&t=8578
Re: Une petite fonction CompareString
Publié : dim. 12/févr./2012 15:54
heu mais ptite question débile:
Ca ne suffit pas ? ^^
Code : Tout sélectionner
a$ = "abcd"
b$ = "abcd"
if a$ = b$
...
endifRe: Une petite fonction CompareString
Publié : dim. 12/févr./2012 16:21
Mouais 
Re: Une petite fonction CompareString
Publié : dim. 12/févr./2012 17:56
L’intérêt d'une procédure dans ce cas précis est de pouvoir pousser la comparaison.
Sinon un if a$<>b$ suffit effectivement
On pourrait ajouter plein d'autres Flag comme #COMP_Case pour montrer que les 2 termes sont identiques mais pas la Case etc...
Sinon un if a$<>b$ suffit effectivement
Code : Tout sélectionner
Procedure.s CompareString(StringA.s,StringB.s,ModeCompare = 1)
Shared ReZult.s
#COMP_Basic = 1
#COMP_Lenght = 2
If ModeCompare <1 Or ModeCompare >2
ProcedureReturn "Erreur de mode"
EndIf
Select ModeCompare
Case #COMP_Basic
If StringA = StringB
ReZult = "Identique"
Else
ReZult = StringA +" <> "+ StringB
EndIf
Case #COMP_Lenght
LA = Len(StringA)
LB = Len(StringB)
If LA > LB
ReZult = StringA + " > " + StringB
ElseIf LB > LA
ReZult = StringB + " > " + StringA
ElseIf LA = LB
If StringA = StringB
ReZult = "Identique"
Else
ReZult = "Longueur identique mais mots différents"
EndIf
EndIf
EndSelect
ProcedureReturn ReZult
EndProcedure
Debug "test 1"
Debug CompareString("Toto","Tutu" , #COMP_Basic)
Debug "test 2"
Debug CompareString("Toto","Tutu" , #COMP_Lenght)
Debug "test 3"
Debug CompareString("Toto","Toto" , #COMP_Basic)
Debug "test 4"
Debug CompareString("Toto","Toto" , #COMP_Lenght)
Re: Une petite fonction CompareString
Publié : dim. 12/févr./2012 19:37
Il y a déjà CompareMemoryString qui existe, vois pas l'utilité d'un code!
Re: Une petite fonction CompareString
Publié : lun. 13/févr./2012 8:43
Rien de plus a ajouter
@nico la doc indique pour programmeurs expérimentés seulement
Bonne journée a tous
@nico la doc indique pour programmeurs expérimentés seulement
Bonne journée a tous
Re: Une petite fonction CompareString
Publié : jeu. 16/févr./2012 17:01
Et parce que c'est indiqué pour programmeurs expérimentés, on touche pas ?MLD a écrit :@nico la doc indique pour programmeurs expérimentés seulement
Je vous dirais : Arrêter d'essayé de faire de la programmation et faite-le ! Arrêter d'être des amateurs et soyez des pros.
A+
Guimauve
Re: Une petite fonction CompareString
Publié : jeu. 16/févr./2012 20:36
Complètement d'accord avec toi !
Re: Une petite fonction CompareString
Publié : ven. 24/févr./2012 9:38
@ Guimauve
Je ne parlais pas pour moi. Mais pourquoi faire simple quand on peut faire compliquer
Je ne parlais pas pour moi. Mais pourquoi faire simple quand on peut faire compliquer