خواندن سطر خاصي از تكست باكس

[veyskarami]

سلام
مي خواستم ببينم ميشه يه فايل تكست رو باز كرد و مثلا محتويات خط سوم و چهارم و پنجم اون رو توي يه تكست باكس نمايش داد؟
اگه ميشه يه مثال بزنيد

[محمد حسینی]

کد:

Dim strText As String
Open "e:\file.txt" For Random As #1
Get #1, 2, strText
Text1.Text = strText
Close

به جای 2 شماره خط رو بنویس

[veyskarami]

خودمم همينو نوشته بودم ولي نمي دونم چرا جواب نداد

[محمد حسینی]

راست میگه . نمیشه!!! برا منم سوال شد چرا نمیشه؟!!؟

[veyskarami]

كسي بلد نيست؟

[mehdvirus]

چرا اينطوري ميكني؟؟؟؟؟
مگه اوندفعه بهت نگفتم اينكارو نكن
اگه با امير جان كار داري بهش پي ام بزن لازم نيست يه تاپيك به اسمش باز كني

فكر كنم بد نباشه بعضي وقتها با يوزر ها برخورد بشه

[amirjan]

کد:

Function ReadTXT_Line(FilePath As String, Line As Integer) As String
Dim Buffer As String
Buffer = String(FileLen(FilePath), " ")
Open FilePath For Binary As 1#
    Get 1#, , Buffer
Close 1#
Lines = Split(Buffer, vbNewLine)
ReadTXT_Line = Lines(Line - 1)
End Function

'example:
MsgBox ReadTXT_Line("c:\test.txt", 1)

از اين به بعد كاري داشتي پي ام بزن ، اين طوري درست نيست :!:

[veyskarami]

چشم اميرجان دفعه بعدي خصوصي به خودت ميگم آقا شرمنده ببخشيد :oops:
آقا مهدي شرمنده ببخشيد :oops: