خوندن فایل txt ؟

[goldpower]

می شه محتویات فایل txt رو خوند که متن هر سطر به صورت زیره :

http://axgig.com/images/94495078466121518999.jpg

هر سطر با یه شماره شروع می شود و اعداد با ; از هم جدا شدن .

فقط برای سطر سوم :
حالا می خوام که هر کدوم از این کلمات رو که بین ; قرار داره داخل یه تکس باکس نمایش بدهم.

[goldpower]

کسی نبود راهنمایی کنه ؟

[meys34]

استفاده از دستور Split ....
چون خیلی تکراری بود مورد توجه دوستان واقع نشد... ولی به هر حال...

چون گفته بودی خط سوم:

Private Sub Command1_Click()
Dim L() As String, T() As String

L = Split(Text1, vbCrLf)

T = Split(L(2), ";")

Text2 = T(0)
Text3 = T(1)
Text4 = T(2)
End Sub


http://www.4myup.com/images/75208189236223294669.jpg

البته خودتون میتونید تغییرش بدین که به کارتون بیاد...

[goldpower]

اگه متن 10 سطر داشته باشه و بخوایم با هر بار فشردن باتون یه سطر داخل تکس باکس ها نشون داده بشه چی؟

[just4froum]

بفرمایید :

یه تکستباکس بگذار روی فرمت با نام txtMultiLine به تعداد اعدادی که با ; از هم جدا شده تکستباکس کنترلی با نام txt بگذار روی فرمت.

Private Sub Command1_Click(): On Error Resume Next
Dim matn() As String, s() As String
Static y As Long, x As Long
matn = Split(txtMultiLine.Text, vbNewLine)

Erase s
s = Split(matn(y), ";")

For x = 0 To UBound(s)
txt(x).Text = s(x)
Next x

y = y + 1
If y = UBound(matn) + 1 Then MsgBox "Finish", vbInformation
End Sub

[goldpower]

استفاده از دستور Split ....
چون خیلی تکراری بود مورد توجه دوستان واقع نشد... ولی به هر حال...

چون گفته بودی خط سوم:

Private Sub Command1_Click()
Dim L() As String, T() As String

L = Split(Text1, vbCrLf)

T = Split(L(2), ";")

Text2 = T(0)
Text3 = T(1)
Text4 = T(2)
End Sub


http://www.4myup.com/images/75208189236223294669.jpg

البته خودتون میتونید تغییرش بدین که به کارتون بیاد...

می شه به جای اینکه متن رو از text1 بخونه ادرس یه فایل متنی رو بهش داد که از روی c:\matn.txt بخونه.

[just4froum]

بفرمایید من فقط سورس بالا رو همونجور که می خواستید ویرایش کردم :

Private Sub Command1_Click()
Dim L() As String, T() As String
Dim Path As String: Path = "C:\Matn.txt"

Open Path For Input As 1
L = Split(Input(LOF(1), 1), vbCrLf)
Close #1

T = Split(L(2), ";")

Text2 = T(0)
Text3 = T(1)
Text4 = T(2)
End Sub

[mehdikhosravi]

ایول..خوب بود