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

[m2011kh]

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

[محسن واژدی]

سلام علیکم
برای واردکردن خط به خط یک فایل متنی از "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]

متشکرم
آقای mohsenvj (http://barnamenevis.org/member.php?104729-mohsenvj) واقعا تو این مدت شما خیلی بهم کمک کردین.
انشا الله یه فرستی پیش بیاد جبران کنیم.