Pedro
Nombre de messages : 1561
Date d'inscription : 19/01/2014
 | | Sujet: Comparaison de 2 chaîne d caractères. Dim 17 Jan 2016 - 9:10 | |
| Bonjour. Voici ma petite contribution. Dites-moi ce que vous en pensez. Ce petit code permet donc de comparer 2 chaînes de caractères. Ex: mangé et mange retourne 1. mange et mange retourne 0. mange et mangé retourne -1. En ce qui concerne les chaînes de longueur différente: manges et mange retourne 1, car le dernier caractère 's' est forcément supérieur au 5è caractère vide de la 2è chaîne. - Code:
-
sub comparer(param2$,param3$)
dim_local a1$, b1$, l1%, m1%, n1%, k1%, x1%, y1%
l1%=len(param2$)
m1%=len(param3$)
n1%=l1%
if m1%>l1% then n1%=m1%
for k1%=1 to n1%
a1$=mid$(param2$,k1%,1)
b1$=mid$(param3$,k1%,1)
x1%=asc(a1$)
y1%=asc(b1$)
if x1%<y1% then res%=-1 : exit_sub
if x1%=y1% then res%=0
if x1%>y1% then res%=1 : exit_sub
next k1%
end_sub | |
|
Klaus
Nombre de messages : 12301
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: Comparaison de 2 chaîne d caractères. Dim 17 Jan 2016 - 9:43 | |
| Lent, mais correct. Ceci dit, ma fonction - Code:
-
res% = dll_call2("CompareStrA",adr(string1$),adr(string2$)) fait exactement cela, en plus rapide... | |
|
Calendrier