Une petite fonction CompareString

MLD · **Inscription:** Jeu 05/Fév/2009 17:58 **Messages:** 517

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

dayvid

Explique toi stp

MLD · **Inscription:** Jeu 05/Fév/2009 17:58 **Messages:** 517

@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 :mrgreen:

dayvid

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

kernadec · **Inscription:** Ven 25/Avr/2008 11:14 **Messages:** 960

des solutions ici:
http://www.purebasic.fr/english/viewtopic.php?f=12&t=8578

lepiaf31

heu mais ptite question débile:

Code:

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

Ca ne suffit pas ? ^^

dayvid

Mouais

Ar-S · **Inscription:** Dim 09/Oct/2005 16:51 **Messages:** 5323

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:

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 · **Inscription:** Ven 13/Fév/2004 0:57 **Messages:** 3073

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

MLD · **Inscription:** Jeu 05/Fév/2009 17:58 **Messages:** 517

Rien de plus a ajouter
@nico la doc indique pour programmeurs expérimentés seulement :wink:

Bonne journée a tous

Guimauve

MLD a écrit:

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

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 · **Inscription:** Jeu 05/Fév/2009 17:58 **Messages:** 517

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

PureBasic

Une petite fonction CompareString

Qui est en ligne