remplir des textFiels a partir d'un fichier txt

International Français
1

Bonjour,
je dois remplir des textFieds a partir de donnes extraites de la premire ligne d’un fichier txt.
Avec le code ci dessous, seul un text Field est rempli le, reste est ignor, comment peut on remplir plusieurs Text Fields a la fois ?
en supposant que la premire ligne contient: a,b,c,d,e,f et que je dois allou a chaque TxtField une lettre.

[code] Dim coma As String = Chr(44)
Dim Last as integer
f = GetOpenFolderItem(“Obs.txt”)
If f <> Nil And f.Exists Then

textInput = TextInputStream.Open(f)
textInput.Encoding = Encodings.UTF8

While Not textInput.EOF

txtF1.Text= NthField(textInput.ReadLine, coma,1) 'Extraction des donnes de la premiere lingne
txtF2.Text= NthField(textInput.ReadLine, coma,2)
txtF3.Text= NthField(textInput.ReadLine, coma,3)
txtF4.Text= NthField(textInput.ReadLine, coma,4)

'ou,
'Last = CountFields(textInput, coma)

'For i=1 to Last
’ strTxt(i)= NthFields(textInput.ReadLine, coma, i)
'Next
'TxtF1.Text = strTx(1)
'…
'…

Wend
textInput.Close
End If
textInput.Close
End If[/code]

2

[quote=122230:@Djamel AIT AMRANE] txtF1.Text= NthField(textInput.ReadLine, coma,1) 'Extraction des données de la premiere lingne
txtF2.Text= NthField(textInput.ReadLine, coma,2)
txtF3.Text= NthField(textInput.ReadLine, coma,3)
txtF4.Text= NthField(textInput.ReadLine, coma,4)
[/quote]

dim ligne as string = textInput.ReadLine txtF1.Text= NthField(ligne, coma,1) 'Extraction des données de la premiere lingne txtF2.Text= NthField(ligne, coma,2) txtF3.Text= NthField(ligne, coma,3) txtF4.Text= NthField(ligne, coma,4)

Au lieu de lire les champs de la première ligne, vous lisiez trois lignes de plus. A prséent, les champs sont attribués à partir du contenu de la première ligne :slight_smile:

3

Trs bien, merci.

4

Vous devriez marquer la reponse, plutt que votre question :wink:

5

Je n’ai pas compris ce vous voulez dire.
Si c’est pour question rsolue, c’est dj fait, non ?

6

[quote=122634:@Djamel AIT AMRANE]Je n’ai pas compris ce vous voulez dire.
Si c’est pour question résolue, c’est déjà fait, non ?[/quote]

Lorsque vous obtenez la réponse à votre question, cliquez la coche ? verte sur la réponse, afin qu’elle apparaisse dans l’encadré sous votre question. Actuellement, votre question est suivie de sa copie, marquée “answered by Djamel AIT AMARANE”, avec la question répétée. Ce n’est pas grave, mais ce n’est pas logique.

7

Dsol Michel, j’ai coch la question elle mme.
Cela dit, c’est rectifi.