PureBasic

Code : Tout sélectionner

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Nom du projet : Comparer 2 chaines de caractères
; Fichier : Démonstration
; Version : 1.0.0
; Programmation : OK
; Programmé par : Guimauve
; Date : 08-03-2007
; Mise à jour : 08-03-2007
; Codé avec PureBasic V4.02
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Chaine1.s = "Allo le monde"
Chaine2.s = "Allo le monde"

If Chaine1 = Chaine2
   Debug "Les chaines sont identique"
   
ElseIf Chaine1 > Chaine2
   Debug "La Chaine 2 vient avant la chaine 1 dans l'ordre alphabétique"
   
ElseIf Chaine1 < Chaine2
   Debug "La Chaine 1 vient avant la chaine 2 dans l'ordre alphabétique"
   
EndIf

; <<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< FIN DU FICHIER <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<<<

Code : Tout sélectionner

Chaine1.s="Allo le monde1"
Chaine2.s="Allo le monde "
Resultat.s = "sont identiques"
If Len(Chaine1)<>Len(Chaine2)
  Resultat = "n'ont pas le même nombre de caractères"
Else
  Debug "ok"
  For n = 1 To Len(Chaine1)
    If PeekC(@Chaine1+n-1)<>PeekC(@Chaine2+n-1)
      Resultat = "sont différentes"
    EndIf
  Next
EndIf
MessageRequester("Comparaison des deux chaines", "Les deux chaines "+Resultat)

Code : Tout sélectionner

chaine1.s="j'ai la burne gauche qui me gratte!" 
chaine2.s="j'ai la burne droite qui me gratte!" 

chai1=@chaine1.s
chai2=@chaine2.s
nb_trouvchai=0



!call cherch_car


Debug  nb_trouvchai

End







;----- recherche une chaine de carractere ----------------
!cherch_car:
  !pushad
  !mov     edi,[v_chai2] ;adresse de la chaine a chercher
  !mov     esi,[v_chai1] ;adresse du texte a traiter
  !mov     dword[v_nb_trouvchai],0 ;nombre de foix trouvé (0 sinon)
  !mov     dword[ad_trouvchai],0 ;adresse debut de la derniere chaine trouvée
  !mov     dword[adf_trouvchai],esi ;adresse fin de la derniere chaine trouvée
 ; !mov     dword[compt_chai],0; 1:comptage      0:arret au premier 
  !mov     dword[etat_cherche],1
  !mov     edx,edi
  !mov     ebp,0
  !mov     al,byte[edi]
  !cmp     al,0
  !je      fin_cherch03 
!cherch_02: 
  !mov     bl,byte[esi]
  !cmp     bl,0
  !je      fin_cherch02
  !cmp     bl,al
  !je      ok_trouv
  !add     al,32
  !cmp     bl,al
  !je      ok_trouv
  !sub     al,32
  !add     bl,32
  !cmp     bl,al
  !je      ok_trouv
  !cmp     ebp,0
  !jne     pas_esi
  !add     esi,1
!pas_esi:  
  !mov     ebp,0
  !mov     edi,edx
  !mov     al,byte[edi]
  !jmp     cherch_02

!ok_trouv:
  !add     ebp,1 
  !add     edi,1 
  !add     esi,1
  !mov     al,byte[edi]
  !cmp     al,0
  !je      fin_cherch_trouv01
  !mov     bl,byte[esi]
  !cmp     bl,0
  !je      fin_cherch02
  !jmp     cherch_02

!fin_cherch01:  
  !popad
  !ret
!fin_cherch02: 
  !mov     dword[etat_cherche],0 
  !popad
  !ret
!fin_cherch03:  
  !mov     dword[v_nb_trouvchai],-1 
  !popad
  !ret  
!fin_cherch_trouv01: 
  !mov     edi,edx
  !mov     ebp,0
  !mov     al,byte[edi]
  !add     dword[v_nb_trouvchai],1 
  !cmp     dword[compt_chai],1
  !je      cherch_02
  !mov     dword[adf_trouvchai],esi
  !sub     esi,ebp
  !mov     dword[ad_trouvchai],esi
  !popad
  !ret  
  
   !section '.data' align 16
!ad_cherchai:
 !dd  0
 !ad_txtcher:
 !dd  0
 !nb_trouvchai:
 !dd  0
 !ad_trouvchai:
 !dd  0
 !compt_chai:
 !dd  0
 !etat_cherche:
 !dd  0
  !nb_carcher:
 !dd  0
   !adf_trouvchai:
 !dd  0

Code : Tout sélectionner

; esquisse de code, donc non compilée
*ptr1.b = @Chaine1
*ptr2.b = @Chaine2
While *ptr1 = *ptr2 And *ptr1>0 And *ptr2>0
  *ptr1 + 1
  *ptr2 + 1
Wend

Code : Tout sélectionner

Chaine1.s = "A"
Chaine2.s = "B"
Comparaison.l = CompareMemoryString(@Chaine1, @Chaine2, 0)
Select Comparaison
  Case 0
    Debug "Les 2 chaînes sont identiques"
  Case 1
    Debug "Chaîne 1 > Chaîne 2"
  Case -1
    Debug "Chaîne 2 > Chaîne 1"
EndSelect