common dialog کار با txt

[hackershz]

با سلام وخسته نباشید به شما دوستان عزیز
من یه لیست باکس دارم میخوام
توسط یه common dialog یه فایل txt رو بخونم و محتواش وارد لیست باکس بشه
وبر عکس ذخیره من یه لیست باکس دارم که محتواشو میخوام توی یه فایل
txt ذخیره کنم باید چه کنم کسی هست راهنمایی کنه ؟ ممنونم میشم اگه راهنمایی کنید

[parselearn]

تاپيك تكراري
http://www.barnamenevis.org/forum/showthread.php?t=153958
(آخرين ارسال پنجشنبه 20 فروردين 1388)



'Load Text File
CommonDialog1.Filter = "TXT|*.txt"
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName

'Save Text File
CommonDialog1.Filter = "TXT|*.txt"
CommonDialog1.ShowSave
MsgBox CommonDialog1.FileName

[hackershz]

عزیز منظورم این نیست من میخوام محتواش رو توی لیست باکس نشون بده اینو بلد بودم
مثلا وقتی یه فایل رو open میکنی محتواش بره تو لیست باکس نه که پیغام بده دوست عزیز
من ممکنه هر فایلی رو از هاردم بخوام به صورت txt باز کنم میخام محتواش توی لیست باکس نمایش داده بشه :ناراحت:

کسی نمیتونه کمک کنه من میخوام یه فایل txt رو با common dialog باز کنم سپس اطلاعاتی که دورن فایل txt است وارد لیست باکس بشه در ضمن کاربر خودش فایلو انتخاب کنه

کس نمیتونه کمک کنه ؟

[Mbt925]

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

نمونه کد زیر فایلی که در مسیر Path قرار داره رو باز می کنه و محتویاتش رو در جعبه متن Text1 قرار میده.





Dim FN As Integer
FN = FreeFile

Dim strLine As String

Open Path For Input As #FN

Do While (Not EOF(FN))
Input #FN, strLine
Text1.Text = Text1.Text + strLine + vbCrLf
Loop

Close #FN