کار با فايل نوتپد

[behnezhad]

سلام
مي خواستم بپرسم چطوري مي شه با يه فايل نوتپد مثلا 100 خطي کار کرد و مثلا ما بخوايم خط 58 رو ببينيم چيه؟:متفکر:
ممنون:قلب:

[vbhamed]

سلام
بايد فايل رو به صورت ترتيبي بخونيد تا به خط 58 برسيد


Dim x$, i&

Open "c:\test.txt" For Input As #1

While Not EOF(1)

Line Input #1, x
i = i + 1

If i = 58 Then MsgBox "Line " & i & " : " & x

Wend

Close #1