انتقال ليست باكس به فايل

[moin54]

لطفاً بگين چگونه همه ي محتويات يك ليست باكس رو در يك فايل متني ذخيره كنم

[ماهان مقدم]

اینم خیلی آسونه بیا این کد رو تو دکمه سیوت بذار:لبخند:
dim i as integer
for i = 0 to list1.listcount -1
open filename for output as #1
print#1,list1.text
close #1
next i
در پناه حق :لبخند:

[moin54]

ممنونم البته احتمالا (list1.list(i بايد باشه

[ASKaffash]

با سلام
والبته Close باید بیرون حلقه باشد

[اوبالیت به بو]

راحترين كار همين كار هستش:

While List1.List(Counter) <> List1.List(List1.ListCount)
strText = strText & vbCrLf & List1.List(Counter)
Counter = Counter + 1
Wend
'Show CommanDialog
CommonDialog1.Filter = "Text File | *.txt"
CommonDialog1.ShowSave
FileName = CommonDialog1.FileName
'Open File
FileNumber = FreeFile
Open FileName For Output As #FileNumber
Write #FileNumber, strText
Close #FileNumber

[مهران رسا]

با سلام
والبته Close باید بیرون حلقه باشد


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

[.:KeihanCPU:.]

لطفاً بگين چگونه همه ي محتويات يك ليست باكس رو در يك فايل متني ذخيره كنم

متاسفانه کسی به سوال توجه نمیکنه
این پروژه که تمام list رو سیو میکنه
18389

[vbhamed]

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



ولي هم Open بايد بيرون حلقه باشه، هم Close
يعني Open قبل از For و Close بعد از Next
چون اگر Open داخل حلقه باشه، هر دفعه كه فايلتون باز ميشه چون از نوع Output هست محتويات قبليش پاك ميشه !
مگر اينكه فايل رو به صورت Append باز كنيد

[اوبالیت به بو]

ولي هم Open بايد بيرون حلقه باشه، هم Close
يعني Open قبل از For و Close بعد از Next
چون اگر Open داخل حلقه باشه، هر دفعه كه فايلتون باز ميشه چون از نوع Output هست محتويات قبليش پاك ميشه !
مگر اينكه فايل رو به صورت Append باز كنيد


به دلیل اینکه فایل یکبار باز شده و حلقه قرار هست تکرار بشه ؛ وقتی فایل برای بار دوم می خواد باز بشه با خطا مواجه می شید . پس نتیجه میگیریم که هر بار که حلقه تکرار میشه فایل هم باید از اول باز بشه و بسته بشه ..
بابا بيچاره فايل چه گناه كرده كه بايد مرتب باز و بسته بشه؟ يه متغير درست كن و Text رو كه مي خواي از ListBox تويه فايل ريخته بشه رو توش بري و در هرب ريختن، اون رو پيوست كن به Textهاي قبلي و بعد توسط دستور Print يا Write بنويسش.

[مهران رسا]

بابا بيچاره فايل چه گناه كرده كه بايد مرتب باز و بسته بشه؟ يه متغير درست كن و Text رو كه مي خواي از ListBox تويه فايل ريخته بشه رو توش بري و در هرب ريختن، اون رو پيوست كن به Textهاي قبلي و بعد توسط دستور Print يا Write بنويسش.

:بامزه: آره فایل بیچاره رو کلی اذیت کردیم .

ولی بهتره محتویات رو داخل یک متغیر بریزیم تا اینکه یک کنترل جدید به پروژه اضافه کنیم . :چشمک: