charger fichier multiligneRésolu

Question

Euh, voilà je voudrais charger le contenu d'un fichier dans plusieurs champs. Le dernier champe st sensé affiché des infos sur p lusieurs lignes mais ça marche pas...
QQ'un pourrait me dire pkoi ??... :/

voilà mon code. Le bouton crée le fichier, le click sur le filist l'affiche dans les champs

Private Sub Command1_Click()

'écriture

 Open App.Path & "\Mail de " + "Machine" + ".ini" For Output As #2

 Print #2, "info1"

 Print #2, "info2"

 Print #2, "info3"

 Print #2, "info4a" + vbCrLf + vbCrLf + "info4b"

 Close #2

End Sub



Private Sub File1_Click()

 Dim var_1, var_2

 Open File1.Path & "" & File1.FileName For Input As #1

 Input #1, var_1

 Input #1, var_2

 Input #1, var_3

 Input #1, var_4

 Close #1

Text1.Text = var_1

Text2.Text = var_2

Text3.Text = var_3

Text4.Text = var_4

End Sub

vegetalain · Accepted Answer

hm... je crois que y'a un truc à faire avec "Do While Not EOF", ce genre de truc...
Je zieute ça....

Charger fichier multiligne

1 réponse

Votre réponse

Discussions similaires