pcpunch
Messages postés1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 20195 24 juil. 2003 à 10:29
voila ici on recupere les valeurs dans un listbox mais tu peu aussi les recuperer dans des variables etc...
Dim ligne As String
Dim tmp As String
Open "c:\fichier" For Input As #1 'ouvre le fic en mode lecture
Do While Not EOF(1) ' boucle jusque fin du fichier
Line Input #1, ligne 'lit la ligne
For i = 1 To Len(ligne) 'recuperation des caractere entre chr(32)>espaceIf Mid(ligne, i, 1) <> Chr(32) Then tmp tmp & Mid(ligne, i, 1) Else List1.AddItem tmp: tmp ""
Next i
tmp = ""
Loop
Close #1
Ps : a l'avenir ecrit dans un fichier avec write plutot que print les valeurs sont plus facile a recuperer, ou alors ecrit un seul nb par ligne si ton soft le permet!!!
Si tu as besoin d aide, n hésite pas???
lebalrog
Messages postés18Date d'inscriptionlundi 19 mai 2003StatutMembreDernière intervention31 juillet 2003 24 juil. 2003 à 12:37
Merci, je vais essayer ca. je pensais k'il existait une fonction komme en C++ ki lit ds un fichier les chaines et s'arrete au premier espace rencontre.
Je sais k'avac write c plus simple, mais le probleme est ke je recupere des chaines de caracteres a partir de mon tel portable a l'aide de fonctions du Nokia pc connectivity SDK, et je n'ai malheureusement pas le temps d'approfondir mon etude de ces fonctions.
C cool de m'avoir aider, et j'espere ke je pourrais te rendre la pareille une prochaine fois