Optimisation de routines.

Bonjour à tous.

Merci de votre aide concernant l'optimisation du programme qui suit.
Il simule les fonctions java indexOf et substring.

Je souhaite simplement réduire le nombre de lignes des routines.

'indexOf' correspond à instr avec un paramètre supplémentaire permettant d'indiquer la position du début de la recherche, et substring est un mid$ avec le 3è paramètre optionnel.

dim temporaire$, temporaire2$
dim parametre$(4)
dim kk%, position%, position_recherche%, xx%, zz99%
dim parametre_bis%(4)

label indexOf, substring

edit 100
on_change 100, indexOf

text 100,"indexOf*Texte*te*2*xx%"

edit 101
on_change 101, substring

' Donne "jo"
' text 101,"substring*bonjour*3*2"

' Donne "jour"
' text 101,"substring*bonjour*3"

' #include "lecture_fichier.bas"

end

substring:

' Suivi d'un ou deux paramètres.

temporaire$=text$ (101)

for kk%=1 to 3
zz99%=instr(temporaire$,"*")

' substring avec seulement 2 paramètres.
if zz99%=0
exit_for
else
temporaire2$=left$(temporaire$,zz99%-1)
end_if

if kk%<3
parametre$(kk%)=temporaire2$
else
parametre_bis%(kk%)=val(temporaire2$)
end_if

temporaire$=right$(temporaire$,len(temporaire$)-zz99%)

next kk%

parametre_bis%(kk%)=val(temporaire$)

if zz99%>0
temporaire$=mid$(parametre$(2),parametre_bis%(3)+1,parametre_bis%(4))
else
temporaire$=right$(parametre$(2),len(parametre$(2))-parametre_bis%(3))
end_if

message "*"+temporaire$+"*"

return

indexOf:

temporaire$=text$ (100)

for kk%=1 to 4
zz99%=instr(temporaire$,"*")

parametre$(kk%)=left$(temporaire$,zz99%-1)
temporaire$=right$(temporaire$,len(temporaire$)-zz99%)
next kk%

position% = instr(parametre$(2),parametre$(3))-1

' Sous-chaîne non trouvée.
if position%<val(parametre$(4)) then position%=-1

if temporaire$="xx%" then xx%=position%

message trim$(str$(xx%))

return

Bonsoir,
il manque un peu de code concernant "IndexOf" (au sujet de xx%) Wink

Par contre au niveau de "substring":
il n'y a rien de plus que je vois a part supprimer le else sur le 1er test zz99% : le exit for suffit...

Bonsoir.

Merci pour l'info concernant le 'exit_for'.

Bonsoir.

Voici la dernière version corrigée, et raccourcie.

dim temporaire$
dim parametre$(4)
dim kk%, position%, position_recherche%, xx%, zz99%

label indexOf, substring

edit 100
on_change 100, indexOf

' text 100,"indexOf*Texte*te*2*xx%"

edit 101
on_change 101, substring

' Donne "jo"
' text 101,"substring*bonjour*3*2"

' Donne "jour"
text 101,"substring*bonjour*3"

end

substring:

' Suivi d'un ou deux paramètres.

temporaire$=text$ (101)

for kk%=1 to 3
zz99%=instr(temporaire$,"*")

' substring avec seulement 2 paramètres.
if zz99%=0 then exit_for

parametre$(kk%)=left$(temporaire$,zz99%-1)

temporaire$=right$(temporaire$,len(temporaire$)-zz99%)

next kk%

parametre$(kk%)=temporaire$

if zz99%>0
temporaire$=mid$(parametre$(2),val(parametre$(3))+1,val(parametre$(4)))
else
temporaire$=right$(parametre$(2),len(parametre$(2))-val(parametre$(3)))
end_if

message "*"+temporaire$+"*"

return

indexOf:

temporaire$=text$ (100)

for kk%=1 to 4
zz99%=instr(temporaire$,"*")

parametre$(kk%)=left$(temporaire$,zz99%-1)
temporaire$=right$(temporaire$,len(temporaire$)-zz99%)
next kk%

position% = instr(parametre$(2),parametre$(3))-1

' Sous-chaîne non trouvée.
if position%<val(parametre$(4)) then position%=-1

if temporaire$="xx%" then xx%=position%

message trim$(str$(xx%))

return

@ Pan59,

Tu voudrais pas utiliser les balises de code '['code']' et '[/code]' pour la partie code de ton post ?
ce serait plus lisible... Shocked

Code:: dim temporaire$
dim parametre$(4)
dim kk%, position%, position_recherche%, xx%, zz99%

label indexOf, substring

edit 100
on_change 100, indexOf

' text 100,"indexOf*Texte*te*2*xx%"

edit 101
on_change 101, substring

' Donne "jo"
' text 101,"substring*bonjour*3*2"

' Donne "jour"
text 101,"substring*bonjour*3"

end

substring:

' Suivi d'un ou deux paramètres.

temporaire$=text$ (101)

for kk%=1 to 3
zz99%=instr(temporaire$,"*")

' substring avec seulement 2 paramètres.
if zz99%=0 then exit_for

parametre$(kk%)=left$(temporaire$,zz99%-1)

temporaire$=right$(temporaire$,len(temporaire$)-zz99%)

next kk%

parametre$(kk%)=temporaire$
if zz99%>0
temporaire$=mid$(parametre$(2),val(parametre$(3))+1,val(parametre$(4)))
else
temporaire$=right$(parametre$(2),len(parametre$(2))-val(parametre$(3)))
end_if

message "*"+temporaire$+"*"

return

indexOf:

temporaire$=text$ (100)

for kk%=1 to 4
zz99%=instr(temporaire$,"*")

parametre$(kk%)=left$(temporaire$,zz99%-1)
temporaire$=right$(temporaire$,len(temporaire$)-zz99%)
next kk%

position% = instr(parametre$(2),parametre$(3))-1

' Sous-chaîne non trouvée.
if position%<val(parametre$(4)) then position%=-1

if temporaire$="xx%" then xx%=position%

message trim$(str$(xx%))

return

Bonsoir.

Le problème est le suivant: comment récupérer plus simplement le résultat dans xx%, dans la ligne qui suit.

if temporaire$="xx%" then xx%=position%

Merci de votre aide.

» Optimisation d'une sub.
» Cryptage/décryptage d'un fichier quelconque
» Les routines Tortue
» 3 routines : bin_hexa, hexa_bin et y=ax+b