انتقال نوشته های txt به text بصورت تک تک

[xrezax]

بچه ها یک txt دارم که توش یک سری نوشته دارم.
یک دکمه و تکست باکس هم دارم .
حالا می خوام وقتی روی دکمه کلیک کنم کلمه اول از فایل txt (که کنار برنامه هست ) پاک بشه و بیاد توی text . و همینجور که روی دکمه کلیک کنم پیش بره برنامه و دونه دونه کلماتو منتقل کنه به تکست باکس و جایگزین کلمه قبلی بشه.
وقتی فایل txt خالی شد هم می خوام اعلام کنه

[ho3ein.3ven]

سلام. بفرمایید :

1.zip

موفق باشید

[xrezax]

مرسی از جواب خوبت.
اما این کامل منتقل نمی کنه و دسته ای پاک می کنه. راهی هست دقتشو بالا برد ؟؟!!

[ho3ein.3ven]

توضیحات بیشتر به همراه مثال لطفا .

[program2vb]

بچه ها یک txt دارم که توش یک سری نوشته دارم.
یک دکمه و تکست باکس هم دارم .
حالا می خوام وقتی روی دکمه کلیک کنم کلمه اول از فایل txt (که کنار برنامه هست ) پاک بشه و بیاد توی text . و همینجور که روی دکمه کلیک کنم پیش بره برنامه و دونه دونه کلماتو منتقل کنه به تکست باکس و جایگزین کلمه قبلی بشه.
وقتی فایل txt خالی شد هم می خوام اعلام کنه

شما منظورتون چطور خوندنی هست یعنی میخواین سطر به سطر بخونه ؟ یا اینکه برنامه خودش تشخیص بده کلمه ها رو و اونا رو جدا کنه ..... یعنی از اولین کلمه تا اسپیس بخونه و یک کلمه حساب کنه ؟

اگه میشه کامل توضیح بدین و یک فایل تکست که میخواین برنامه روی اون کار کنه قرار بدین ....

توضیحات بیشتر به همراه مثال لطفا .

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

[xrezax]

مرسی از لطف دوستان
سطر به سطر بخونه از txt. و به text منتقل کنه
هر سطری هم که خوند از txt حذف بشه.
فکر کنم واضح گفتم دیگه

[program2vb]

مرسی از لطف دوستان
سطر به سطر بخونه از txt. و به text منتقل کنه
هر سطری هم که خوند از txt حذف بشه.
فکر کنم واضح گفتم دیگه

یه مثال بزار ؟ لطفا .....

[xrezax]

من با موبایلم الان.
یه پروژه با vb بساز و یک کامند و یک تکست باکس بزار.
یک فایل تکس توی درایو c هم بنام 1.txt بساز و توش ابنو بنویس
1111
2222
3332
3333
7777
5566
5676
حالا میخوام با هربار کلیک روی کامند برنامه سطر اول رو از txt پاک کنه و به text منتقل کنه.
دوباره کلیک کنم رو کامند همین رویداد از اول اتفاق بیوفته.
اگه واضح نبود بگین. بازم توضیح میدم

[program2vb]

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

موفق و پیروز باشید در پناه خدا ..... یاعلی

[ho3ein.3ven]

من با موبایلم الان.
یه پروژه با vb بساز و یک کامند و یک تکست باکس بزار.
یک فایل تکس توی درایو c هم بنام 1.txt بساز و توش ابنو بنویس
1111
2222
3332
3333
7777
5566
5676
حالا میخوام با هربار کلیک روی کامند برنامه سطر اول رو از txt پاک کنه و به text منتقل کنه.
دوباره کلیک کنم رو کامند همین رویداد از اول اتفاق بیوفته.
اگه واضح نبود بگین. بازم توضیح میدم

خب فک کنم برنامه ای هم که من نوشته بودم دقیقا همین کار رو می کرد.