مبتدی: ریختن اطلاعات یک فایل تکست به وسیله ی CommonDialog در یک ListBoX ؟؟!! [بایگانی]

1009645

سه شنبه 02 آبان 1391, 20:54 عصر

سلام دوستان من کد زیر رو وارد میکنم ، و می خوام اطلاعاته داخل یک فایل تکست به داخت ListBox یخته بشه

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

Private Sub Command1_Click()
CommonDialog1.Filter = "TexT File(s)|*.TXT"
CommonDialog1.ShowOpen
List1.AddItem CommonDialog1.?????
End Sub

محسن واژدی

سه شنبه 02 آبان 1391, 21:11 عصر

سلام علیکم
پست های زیر را بررسی کنید:
http://barnamenevis.org/showthread.p...=1#post1373676 (http://barnamenevis.org/showthread.php?312916-%D8%A8%D8%A7%D8%B2%DA%A9%DB%8C%D8%AF%D9%86-%D9%85%D8%AD%D8%AA%D9%88%DB%8C-%DB%8C%DA%A9-%D9%81%D8%A7%DB%8C%D9%84-%D9%85%D8%AA%D9%86%DB%8C-%D8%AF%D8%B1-%DB%8C%DA%A9-%D8%AA%DA%A9%D8%B3-%D8%A8%D8%A7%DA%A9%D8%B3&p=1373676&viewfull=1#post1373676)
http://barnamenevis.org/showthread.p...=1#post1203612 (http://barnamenevis.org/showthread.php?272306-%DA%86%D8%B7%D9%88%D8%B1-%DB%8C%DA%A9-%D9%81%D8%A7%DB%8C%D9%84-txt-%D8%B1%D8%A7-%D8%AF%D8%B1-%D9%84%DB%8C%D8%B3%D8%AA-%D8%A8%D8%A7%DA%A9%D8%B3-%D8%AF%D8%B1%D8%AC-%DA%A9%D9%86%DB%8C%D9%85-%D8%9F&p=1203612&viewfull=1#post1203612)

یا پست زیر
ذخیره و بازیابی list-box
http://barnamenevis.org/showthread.p...=1#post1527795 (http://barnamenevis.org/showthread.php?346430-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D9%85%D8%AD%D8%AA%D9%88%DB%8C%D8%A7%D8%AA-%D9%84%DB%8C%D8%B3%D8%AA-%D8%A8%D8%A7%DA%A9%D8%B3-%D8%AF%D8%B1%D9%88%D9%86-%D9%81%D8%A7%DB%8C%D9%84-%D9%85%D8%AA%D9%86%DB%8C&p=1527795&viewfull=1#post1527795)

موفق باشید

1009645

سه شنبه 02 آبان 1391, 21:35 عصر

سلام علیکم
پست های زیر را بررسی کنید:
http://barnamenevis.org/showthread.p...=1#post1373676 (http://barnamenevis.org/showthread.php?312916-%D8%A8%D8%A7%D8%B2%DA%A9%DB%8C%D8%AF%D9%86-%D9%85%D8%AD%D8%AA%D9%88%DB%8C-%DB%8C%DA%A9-%D9%81%D8%A7%DB%8C%D9%84-%D9%85%D8%AA%D9%86%DB%8C-%D8%AF%D8%B1-%DB%8C%DA%A9-%D8%AA%DA%A9%D8%B3-%D8%A8%D8%A7%DA%A9%D8%B3&p=1373676&viewfull=1#post1373676)
http://barnamenevis.org/showthread.p...=1#post1203612 (http://barnamenevis.org/showthread.php?272306-%DA%86%D8%B7%D9%88%D8%B1-%DB%8C%DA%A9-%D9%81%D8%A7%DB%8C%D9%84-txt-%D8%B1%D8%A7-%D8%AF%D8%B1-%D9%84%DB%8C%D8%B3%D8%AA-%D8%A8%D8%A7%DA%A9%D8%B3-%D8%AF%D8%B1%D8%AC-%DA%A9%D9%86%DB%8C%D9%85-%D8%9F&p=1203612&viewfull=1#post1203612)

یا پست زیر
ذخیره و بازیابی list-box
http://barnamenevis.org/showthread.p...=1#post1527795 (http://barnamenevis.org/showthread.php?346430-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D9%85%D8%AD%D8%AA%D9%88%DB%8C%D8%A7%D8%AA-%D9%84%DB%8C%D8%B3%D8%AA-%D8%A8%D8%A7%DA%A9%D8%B3-%D8%AF%D8%B1%D9%88%D9%86-%D9%81%D8%A7%DB%8C%D9%84-%D9%85%D8%AA%D9%86%DB%8C&p=1527795&viewfull=1#post1527795)

موفق باشید

تمام اینها فایل ها رو از جایی لود می کنن ، من می خوام خود کاربر به وسیله ی CommonDialog انتخاب کنه

محسن واژدی

سه شنبه 02 آبان 1391, 22:00 عصر

تمام اینها فایل ها رو از جایی لود می کنن ، من می خوام خود کاربر به وسیله ی CommonDialog انتخاب کنه
بله، CommonDialog1.FileName را جایگزین مسیرها کنید

موفق باشید

1009645

سه شنبه 02 آبان 1391, 22:07 عصر

عزیز من می خوام متن فایل تکست جایگزین شه ... این اسم و مسیر رو جایگزین میکنه

این تقریبا کارمو راه انداخت اما اون چیزی که می خواستم نشد :

Dim Stri As String
CommonDialog1.Filter = "Text|*.txt"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, Stri
List1.AddItem Stri
Loop
Close #1

محسن واژدی

سه شنبه 02 آبان 1391, 22:22 عصر

عزیز من می خوام متن فایل تکست جایگزین شه ... این اسم و مسیر رو جایگزین میکنه
هیچ یک از پست های معرفی شده نام و مسیر را جایگزین نمیکنند، به عنوان مثال اگر کد دوم پست زیر را بررسی کرده باشید محتویات فایل را خط به خط به LB اضافه میکند:
http://barnamenevis.org/showthread.php?346430-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D9%85%D8%AD%D8%AA%D9%88%DB%8C%D8%A7%D8%AA-%D9%84%DB%8C%D8%B3%D8%AA-%D8%A8%D8%A7%DA%A9%D8%B3-%D8%AF%D8%B1%D9%88%D9%86-%D9%81%D8%A7%DB%8C%D9%84-%D9%85%D8%AA%D9%86%DB%8C&p=1527795&viewfull=1#post1527795

در پست فوق دستور "Open " فایل را باز و دستور "Line Input" موجود در حلقه خطوط فایل را بار وبه LB اضافه میکند

محسن واژدی

سه شنبه 02 آبان 1391, 22:31 عصر

تابع زیر بر اساس توضیح پست4، و کد دوم پست
http://barnamenevis.org/showthread.php?346430-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D9%85%D8%AD%D8%AA%D9%88%DB%8C%D8%A7%D8%AA-%D9%84%DB%8C%D8%B3%D8%AA-%D8%A8%D8%A7%DA%A9%D8%B3-%D8%AF%D8%B1%D9%88%D9%86-%D9%81%D8%A7%DB%8C%D9%84-%D9%85%D8%AA%D9%86%DB%8C&p=1527795&viewfull=1#post1527795
نوشته شده است

Private Sub Command1_Click()
CommonDialog1.Filter = "TexT File(s)|*.TXT"
CommonDialog1.ShowOpen
'List1.AddItem CommonDialog1.?????

If CommonDialog1.FileName > "" Then
With List1

Dim sCL$

.Clear
Open CommonDialog1.FileName For Input As #1

Do Until EOF(1)
Line Input #1, sCL$
.AddItem sCL$
Loop

Close #1
End With

End If

End Sub

موفق باشید