نوشته شده توسط
xrezax
مرسی از لطف دوستان
سطر به سطر بخونه از txt. و به text منتقل کنه
هر سطری هم که خوند از txt حذف بشه.
فکر کنم واضح گفتم دیگه
سلام خدمت شما دوست گرامی بفرمایید اینم از سورس شما .... امیدوارم بدردتون بخوره .......
این قسمت از برنامه رو به شکل زیر تغییر بده که مشکل نداشته باشه برنامه ....... من سه خط اول یادم رفته بود بنویسم .......
Private Sub Command1_Click()
List1.Clear
List2.Clear
Text1.Text = ""
Dim s As String
fname = App.Path & "\temp.txt"
s = String(FileLen(fname), " ")
Open fname For Input As #1
Do While Not (EOF(1))
Line Input #1, s
If s <> "" Then List1.AddItem s
Loop
Close #1
End Sub
موفق و پیروز باشید در پناه خدا ..... یاعلی