Klaus
Nombre de messages : 12296
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
 | | Sujet: Chercher un string dans un autre avec un offset Mar 3 Aoû 2010 - 0:02 | |
| J'ai rajouté une fonction i%=dll_call3("InString",adr(base$),adr(achercher$),offset%) qui retourne la position de achercher$ dans base$ à partir du caractère offset%. Si offset%=0, on cherche à partir du début de base$ (identique à "instr"). Si achercher$ est trouvée, la fonction retourne sa position ABSOLUE (sans tenir compte de offset), ou zéro si pas trouvé. Exemple: - Code:
-
dim base$, achercher$, offset%, n%
base$ = "Janvier,Février,Mars,Avril,Mai,Juin,Juillet,Août,Septembre,Octobre,Novembre,Décembre"
achercher$ = ","
offset% = 0
n% = dll_call3("InString",adr(base$),adr(achercher$),offset%)
' ici, n% vaut 8 soit la position de la première virgule
offset% = n%
n% = dll_call3("InString",adr(base$),adr(achercher$),offset%)
' ici, n% vaut 16 soit la position de la deuxième virgule
' etc
| |
|
JL35
Nombre de messages : 7095
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Chercher un string dans un autre avec un offset Mar 3 Aoû 2010 - 14:23 | |
| Ouais, bien ! dommage que ça ne soit pas en standard dans panoramic. | |
|
Nardo26
Nombre de messages : 2294
Age : 55
Localisation : Valence
Date d'inscription : 02/07/2010
| | Sujet: Re: Chercher un string dans un autre avec un offset Mar 3 Aoû 2010 - 16:48 | |
| Bien sur que si que ça existe !!! la preuve :  - Code:
-
label strInString
dim strInStringStr$,strInStringSearch$,strInStringRetour%,strInStringTest$
dim strInStringOffset%,strInStringIndice%
dim base$
base$ = "Janvier,Février,Mars,Avril,Mai,Juin,Juillet,Août,Septembre,Octobre,Novembre,Décembre"
strInStringStr$=base$ :strInStringSearch$=",":strInStringOffset%=0
gosub strInString
print strInStringRetour%
strInStringOffset% = strInStringRetour%
gosub strInString
print strInStringRetour%
end
strInString:
strInStringRetour%=0
for strInStringIndice%=strInStringOffset%+1 to len(strInStringStr$) - strInStringOffset% - LEN(strInStringSearch$)
strInStringTest$ = mid$(strInStringStr$,strInStringIndice%,LEN(strInStringSearch$))
if strInStringTest$=strInStringSearch$
strInStringRetour%=strInStringIndice%
exit_for
end_if
next strInStringIndice%
return
| |
|
JL35
Nombre de messages : 7095
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Chercher un string dans un autre avec un offset Mar 3 Aoû 2010 - 16:53 | |
| oui bien sûr, j'ai déjà fait aussi (par force !), mais en +10 lignes au lieu d'une, c'est à dire un s/p au lieu d'une instruction.
Mais enfin, encore un exemple où on peut s'en tirer en panoramic, malgré tout. | |
|
Contenu sponsorisé
| | Sujet: Re: Chercher un string dans un autre avec un offset | |
| |
|
Calendrier