View Full Version : خوندن فایل txt ؟
goldpower
یک شنبه 04 تیر 1391, 13:29 عصر
می شه محتویات فایل txt رو خوند که متن هر سطر به صورت زیره :
http://axgig.com/images/94495078466121518999.jpg
هر سطر با یه شماره شروع می شود و اعداد با ; از هم جدا شدن .
فقط برای سطر سوم :
حالا می خوام که هر کدوم از این کلمات رو که بین ; قرار داره داخل یه تکس باکس نمایش بدهم.
goldpower
یک شنبه 04 تیر 1391, 19:17 عصر
کسی نبود راهنمایی کنه ؟
meys34
یک شنبه 04 تیر 1391, 20:48 عصر
استفاده از دستور 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
یک شنبه 04 تیر 1391, 23:05 عصر
اگه متن 10 سطر داشته باشه و بخوایم با هر بار فشردن باتون یه سطر داخل تکس باکس ها نشون داده بشه چی؟
just4froum
یک شنبه 04 تیر 1391, 23:19 عصر
بفرمایید :
یه تکستباکس بگذار روی فرمت با نام 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
سه شنبه 06 تیر 1391, 11:37 صبح
استفاده از دستور 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
سه شنبه 06 تیر 1391, 11:44 صبح
بفرمایید من فقط سورس بالا رو همونجور که می خواستید ویرایش کردم :
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
سه شنبه 06 تیر 1391, 16:37 عصر
ایول..خوب بود
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.