Probleme : séparer une variable ab en 1 variable a & 1 b

cs_gwen49 Messages postés 113 Date d'inscription jeudi 27 novembre 2003 Statut Membre Dernière intervention 19 juillet 2006 - 15 juin 2004 à 09:28
cs_gwen49 Messages postés 113 Date d'inscription jeudi 27 novembre 2003 Statut Membre Dernière intervention 19 juillet 2006 - 15 juin 2004 à 10:43
bonjour
j'ai fait un programme qui lit une ligne contenant des chiffres dans un fichier texte du type :
021 2113 20 021 345 612 31
je voudrai que le programme sépare les chiffres en variables, et que les variables soient délimitées par des espaces.
Quelqu'1 peut-il me dire comment faire svp?
La, je sèche grave!

4 réponses

HFanny Messages postés 699 Date d'inscription mercredi 19 février 2003 Statut Membre Dernière intervention 13 mai 2011 20
15 juin 2004 à 09:54
Bonjour,

ce que tu peux faire (je n'ai pas bien compris le fait que tu veuilles que tes variables soient séparées par des espaces), c'est placer chaque caractère de ta ligne dans une cellule d'un tableau.

Dim ligne() As String

'on redimensionne le tableau par rapport à la longueur de ta chaine
ReDim ligne(Len(tachaine))

'là tu insères chaque caractère de ta chaine dans une cellule de ton tableau
For i = 0 to Len(tachaine) - 1
ligne(i) = Mid(tachaine, i + 1, 1)
Next i


Je ne sais pas si cela te convient ...

Fanny
0
cs_gwen49 Messages postés 113 Date d'inscription jeudi 27 novembre 2003 Statut Membre Dernière intervention 19 juillet 2006
15 juin 2004 à 10:29
Je vais m'exprimer plus clairement :
en fait, j'utilise Line input# (vous connaissez?)
en gros je lis des chiffres (avec ou sans espaces peu importe) sur une ligne, et je veut séparer la variable obtenue avec Line Input (c'est 1 string) en plusieurs variables integer, séparées par 1 caractère spécial (espace ou autres, mais pas de sauts de lignes)

je vais essayer ta solution, ptetre que ça marche.
Merci!
0
cs_PhilippeE Messages postés 437 Date d'inscription mercredi 18 décembre 2002 Statut Membre Dernière intervention 10 août 2010 2
15 juin 2004 à 10:30
En plus fainéant, ça donne un truc comme ça
Dim ligne() as String

ligne = Split(tachaine, " ")
0
cs_gwen49 Messages postés 113 Date d'inscription jeudi 27 novembre 2003 Statut Membre Dernière intervention 19 juillet 2006
15 juin 2004 à 10:43
CA MAAAAAAAAAAARCHE!!!!
Merci beaucoup! Je ne connaissait pas la fonction Mid, mais elle est très utile!

A+ et merci beaucoup
0