PDA

View Full Version : ذخیره و فراخوانی فایل تکست


yashar_2006
پنج شنبه 17 مهر 1393, 15:52 عصر
درود
بنده یه سورس ضمیمه کردم
میخوستم یکی راهنمایی کنه که چطور یه فایل txt رو از داخل هارد در لیست باکس فراخوانی کنم یا برعکس
البته با commondialog
samiasoft
پنج شنبه 17 مهر 1393, 16:14 عصر
درود
بنده یه سورس ضمیمه کردم
میخوستم یکی راهنمایی کنه که چطور یه فایل txt رو از داخل هارد در لیست باکس فراخوانی کنم یا برعکس
البته با commondialog

دوست عزیز این مساله بارها در انجمن مطرح شده حتی خودمم کداشو قرار دادم.
قبل از زدن تاپیک سرچ کنید
yashar_2006
پنج شنبه 17 مهر 1393, 16:53 عصر
دوست عزیز این مساله بارها در انجمن مطرح شده حتی خودمم کداشو قرار دادم.
قبل از زدن تاپیک سرچ کنید

والا من چیزی پیدا نمیکنم نه تنها تو سایت حتی تو نت
اگر لطف کنید لینک بزارید ممنو میشم
samiasoft
پنج شنبه 17 مهر 1393, 17:10 عصر
خدمت شما

sava & load (http://s5.picofile.com/file/8145005168/Unicode_UTF8_sava_load.rar.html)
yashar_2006
پنج شنبه 17 مهر 1393, 17:36 عصر
خدمت شما

sava & load (http://s5.picofile.com/file/8145005168/Unicode_UTF8_sava_load.rar.html)

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

124384
Mori Bone
پنج شنبه 17 مهر 1393, 17:52 عصر
Private Sub LoadFromFile(MyList As ListBox, FileName As String)
Dim i As Long
Open App.Path & FileName For Input As #1
i = 0
Do Until EOF(1) = True
Line Input #1, A
MyList.AddItem A
i = i + 1
Loop
Close #1
End Sub
samiasoft
پنج شنبه 17 مهر 1393, 17:54 عصر
در قسمت رفرنس باید موارد زیر انتخاب شده باشن

http://samisoft.ir/1/images/sZSIn.gif
yashar_2006
پنج شنبه 17 مهر 1393, 19:16 عصر
به جر microsoft activex data object 2.8 libery همشون هست
این فایلم با ورژن دیگه میخوام لود کنم نمیشه
Mori Bone
پنج شنبه 17 مهر 1393, 20:33 عصر
Private Sub LoadFromFile(MyList As ListBox, FileName As String)
Dim i As Long
Open App.Path & FileName For Input As #1
i = 0
Do Until EOF(1) = True
Line Input #1, A
MyList.AddItem A
i = i + 1
Loop
Close #1
End Sub


از تابع من استفاده کن. می تونی آدرس فایل رو هم از دیالوگ بگیری:
LoadFromFile( list1 , آدرس فایل )
yashar_2006
شنبه 19 مهر 1393, 15:59 عصر
از تابع من استفاده کن. می تونی آدرس فایل رو هم از دیالوگ بگیری:
LoadFromFile( list1 , آدرس فایل )

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