Une petite fonction CompareString

[MLD]

Il est quelque fois bien utile de comparer deux chaines. En natif ce serait le pied.

[dayvid]

Explique toi stp

[MLD]

@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

[dayvid]

Si je sais ce que cella voulais dire, je comprenais pas le reste lol
ça > En natif ce serait le pied

[kernadec]

des solutions ici:
http://www.purebasic.fr/english/viewtop ... =12&t=8578

[lepiaf31]

heu mais ptite question débile:

Code : Tout sélectionner

a$ = "abcd"
b$ = "abcd"
if a$ = b$
...
endif

Ca ne suffit pas ? ^^

[dayvid]

Mouais

[Ar-S]

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

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)

On pourrait ajouter plein d'autres Flag comme #COMP_Case pour montrer que les 2 termes sont identiques mais pas la Case etc...

[nico]

Il y a déjà CompareMemoryString qui existe, vois pas l'utilité d'un code!

[MLD]

Rien de plus a ajouter
@nico la doc indique pour programmeurs expérimentés seulement
Bonne journée a tous

[Guimauve]

@nico la doc indique pour programmeurs expérimentés seulement

Et parce que c'est indiqué pour programmeurs expérimentés, on touche pas ?

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

[dayvid]

Complètement d'accord avec toi !

[MLD]

@ Guimauve
Je ne parlais pas pour moi. Mais pourquoi faire simple quand on peut faire compliquer