View Full Version : سوال: مشکل در خط به خط خواندن فایل متنی
m2011kh
چهارشنبه 02 شهریور 1390, 17:02 عصر
من میخوام یک فایل متنی رو باز کنم و هر خط رو جداگنه داخل لیست قرار بدم ولی هر کاری کردم همشون باهم تو یه خط وارد لیست شدم.
لطفا دوستن کمک کنند.
:متفکر:
محسن واژدی
چهارشنبه 02 شهریور 1390, 17:12 عصر
سلام علیکم
برای واردکردن خط به خط یک فایل متنی از "LineInput" بصورت زیر استفاده کنید:
Private Sub Command1_Click()
Dim cl$
Open "c:\1.txt" For Input As #1
Do While EOF(1) = False
Line Input #1, cl$
List1.AddItem cl$
Loop
Close #1
End Sub
موفق باشید
m2011kh
چهارشنبه 02 شهریور 1390, 17:42 عصر
متشکرم
آقای mohsenvj (http://barnamenevis.org/member.php?104729-mohsenvj) واقعا تو این مدت شما خیلی بهم کمک کردین.
انشا الله یه فرستی پیش بیاد جبران کنیم.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.