کار با فایل ها..... [بایگانی]

rezarko

جمعه 11 فروردین 1391, 01:55 صبح

سلام دوستان .
من داخل یک پوشه چند تا فایل txt به اسم های test , test1,test2,test3,test4,..... دارم .
حالا من میخوام اگر کاربر درون textbox بنویسه test همه ی این فایل ها با متن درونشون در یک لیست باکس نشون داده بشن.
با تشکر

MiladMR

شنبه 12 فروردین 1391, 05:01 صبح

If Text1.Text = "test" Then
For i=1 To 5
Open PATH & i & ".txt" For Input As #1
Do While Not EOF(1)
Input #1, x
List1.AddItem x
Loop
Close #1
Next
End If

این برای 5تا فایل test بود [به نام های test1 , test2 , ...] کافیه عدد رو عوض کنی تا به تعداد دلخواهت بشه
بجای PATH باید آدرس فایل رو وارد کنی، البته آدرس کامل تا کلمه ی test

کد رو هم تست نکردم اگه مشکلی داشت بگو

rezarko

شنبه 12 فروردین 1391, 19:20 عصر

ممنون دوست عزیز ولی اگه تعداد فایل ها رو نداشته باشیم باید چیکار کرد؟

MiladMR

شنبه 12 فروردین 1391, 19:56 عصر

ممنون دوست عزیز ولی اگه تعداد فایل ها رو نداشته باشیم باید چیکار کرد؟

با یه دستور dir میتونی اول ببینی چندتا وجود دارن

rezarko

یک شنبه 13 فروردین 1391, 01:22 صبح

چه جوری میشه با دستور Dir فهمید که چند تل وجود داره؟
ممنون

MiladMR

یک شنبه 13 فروردین 1391, 01:51 صبح

چه جوری میشه با دستور Dir فهمید که چند تل وجود داره؟
ممنون

کدی ک میخوای رو نوشتم : دانلود (http://up98.org/upload/server1/02/g/rgv71j9gzntji72de4nf.rar)

irprodesigner

پنج شنبه 18 آبان 1391, 01:16 صبح

جناب لینک دانلود مشکل داره لطف کن دوباره بذار که ما هم لازم داریم