[LB] Recherche de mots

Voici un code de recherche. Vous entrez les premières lettres d'un mot, et il vous trouve tous les mots commençant pas ces lettres.

J'avez besoin de faire ce code pour un grand projet, alors je le poste.
(Il y avez un code pareil sur Liberty Basic France, si ça vous interresse... mais il était un peut compliqué.)

Code:: nomainwin
dim list$(10), aff$(10)
list$(1)="Hydrogène"
list$(2)="Hélium"
list$(3)="Or"
list$(4)="Platine"
list$(5)="Polonium"
list$(6)="Radium"
list$(7)="Strontium"
list$(8)="Tellure"
list$(9)="Uranium"
list$(10)="Xénon"
aff$ = list$
textbox #1.txt, 10, 10, 120, 25
listbox #1.list, aff$(), [selection], 10, 40, 120, 200
open "" for window as #1
print #1, "trapclose [quit]"
print #1.txt, ""
timer 500, [lecture]
wait

[lecture]
A = 1
dim selection(10)
print #1.txt, "!contents?"
input #1.txt, txt$
for Z = 1 to 10
if lower$(txt$) = lower$(left$(list$(Z), len(txt$))) then
selection(A) = Z
A = A + 1
end if
next
gosub [afficher]
wait

[afficher]
dim aff$(10)
for Z = 1 to A - 1
aff$(Z) = list$(selection(Z))
next
print #1.list, "reload"
return

[quit]
close #1
end

[selection]
wait

Il est bien. Très simple, et efficace.
Merci black

Mais de rien.
Il faut préciser que l'on peut classer cette liste dans le désorbre (alphabétique)

Pour gagner du tps et que la liste est classer dans l'ordre, voici le code :

Code:: nomainwin
dim list$(10), aff$(10)
list$(1)="Hydrogène"
list$(2)="Hélium"
list$(3)="Or"
list$(4)="Platine"
list$(5)="Polonium"
list$(6)="Radium"
list$(7)="Strontium"
list$(8)="Tellure"
list$(9)="Uranium"
list$(10)="Xénon"
aff$ = list$
textbox #1.txt, 10, 10, 120, 25
listbox #1.list, aff$(), [selection], 10, 40, 120, 200
open "" for window as #1
print #1, "trapclose [quit]"
print #1.txt, ""
timer 500, [lecture]
wait

[lecture]
A = 1
dim selection(10)
print #1.txt, "!contents?"
input #1.txt, txt$
for Z = 1 to 10
if lower$(txt$) = lower$(left$(list$(Z), len(txt$))) then
selection(A) = Z
A = A + 1
else
if A > 1 then goto [afficher]
end if
next
goto [afficher]
wait

[afficher]
dim aff$(10)
for Z = 1 to A - 1
aff$(Z) = list$(selection(Z))
next
print #1.list, "reload"
wait

[quit]
close #1
end

[selection]
wait

J'aime ton prog, je vais l'étudier un peu, et je verrais ce que je peux faire avec...

Et mince, il y a un Bug, j'essay de le réparer pour demain

a oui, ou... j'ai pas remarqué...

quand on rentre plusieurs éléments (j'ai essay avec 109), il réinitialise la liste tout les demi secondes donc, on à pas le temps de sélectionner l'objet! pleurer

ok, alors puis-je t'aider...

ca y est, j'ai trouvé !!!

voici le code :

Code:: nomainwin
dim list$(10), aff$(10)
list$(1)="Hydrogène"
list$(2)="Hélium"
list$(3)="Or"
list$(4)="Platine"
list$(5)="Polonium"
list$(6)="Radium"
list$(7)="Strontium"
list$(8)="Tellure"
list$(9)="Uranium"
list$(10)="Xénon"
aff$ = list$
veriftxt$ = "0"
textbox #1.txt, 10, 10, 120, 25
listbox #1.list, aff$(), [selection], 10, 40, 120, 200
open "" for window as #1
print #1, "trapclose [quit]"
print #1.txt, ""
timer 500, [lecture]
wait

[lecture]
A = 1
dim selection(10)
print #1.txt, "!contents?"
input #1.txt, txt$
if txt$ = veriftxt$ then wait
veriftxt$ = txt$
for Z = 1 to 10
if lower$(txt$) = lower$(left$(list$(Z), len(txt$))) then
selection(A) = Z
A = A + 1
else
if A > 1 then goto [afficher]
end if
next
goto [afficher]
wait

[afficher]
dim aff$(10)
for Z = 1 to A - 1
aff$(Z) = list$(selection(Z))
next
print #1.list, "reload"
wait

[quit]
close #1
end

[selection]
wait

» Recherche webmaster pour échange de lien ( j'ai un PR de 3 )