lecture écriture à partir d'une ligne et d'un endroit précis

Question

bonjour à tous,

voilà c'est une question de débbutant qui va sans doute faire soure plus d'un

 j'ai le fichier source suivant

 Private Sub CHERCHE_Click()
Dim I As Integer
Dim S As String
Open "D:\TEST\TEST.TXT" For Input As #1
Text1.Text = ""
For I = 1 To 4
Line Input #1, S
Next I
Seek #1, 4
Input #1, S
Text1.Text = S
Close #1

End Sub

Le problème me direz vous?
c'est que je voudrais qu'il me retourne le 4eme caractère de la 4eme ligne alors que là il me retourne le 4ème caractère de la 1ère ligne.
 En plus si quelqu'un à une solution pour que je puisse aussi écrire une chaine à partir du 4ème caractère de la 4 ème ligne de mon fichier il est le bienvenue
je  vous en remercie par avance.

cs_rene38 · Answer

Salut
Pour avoir le nième caractère de la pième ligne :
Private Sub CHERCHE_Click()
Dim I As Integer
Dim S As String
Open "D:\TEST\TEST.TXT" For Input As #1
Text1.Text =  ""
 For I = 1 To  p 
 Line Input #1, S
Next I
Text1.Text  = Mid(S, n, 1)
Close 1
End Sub

Lecture écriture à partir d'une ligne et d'un endroit précis

1 réponse

Discussions similaires