ايران ويج

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

کد: 
Dim strText As String

Open "e:\file.txt" For Random As #1

Get #1, 2, strText

Text1.Text = strText

Close

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

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

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

كسي بلد نيست؟

چرا اينطوري ميكني؟؟؟؟؟ [تصویر: 23.gif]

مگه اوندفعه بهت نگفتم اينكارو نكن [تصویر: 22.gif]

اگه با امير جان كار داري بهش پي ام بزن لازم نيست يه تاپيك به اسمش باز كني [تصویر: 47.gif]

فكر كنم بد نباشه بعضي وقتها با يوزر ها برخورد بشه [تصویر: 104.gif]

کد: 
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)

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

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

veyskarami

محمد حسینی

veyskarami

محمد حسینی

veyskarami

mehdvirus

amirjan

veyskarami