ذخيره موارد Add شده در Listbox در فايل TXT

[moeinjoon]

چطور مواردي كه در ليست اضافه كردم در فايل txt ذخيره كنم تا در اجراي بعدي به طور خودكار اضافه شود؟

[scarce]

با این کد می تونی داده های یک ListBox رو ذخیره کنید.

کار به این شکل هست یک دکمه با نام Command1 و یک Common Dialog به فرم اضافه می کنید و یک Listtbox و بعد کد زیر رو تو فرم قرار می دهید.



Private Sub Command1.Click()
SaveList (CommonDialog,List1)
end if

'#######
'Coded By Scarce
'#######



Private Function SaveList(dialogCommon As CommonDialog, list45 As listbox)
On Error GoTo Error_sc
With dialogCommon
.DialogTitle = "Save List"
.Filter = "*.txt"
.ShowSave
Dim Nbr As Long
On Error Resume Next
Open .filename For Output As #1
For Nbr = 0 To list45.ListCount - 1
Print #1, list45.list(Nbr)
Next Nbr
Close #1
End With
Exit Function
Error_sc:
Exit Function
End Function

[vbhamed]

سلام

با اجازه دوستمون scarce عزيز

كد Load كردن رو هم بهش اضافه كردم
مي تونيد تو Load و Save به جاي استفاده از CommonDialog مستقيما اسم فايل رو بديد



Private Sub Command1_Click()

SaveList CommonDialog, List1

End Sub

Private Function SaveList(dialogCommon As CommonDialog, lst As ListBox)

On Error Resume Next

With cmdlg

.CancelError = True
.DialogTitle = "Save List"
.Filter = "*.txt"

Err.Clear

.ShowSave

If Err Then Exit Sub

Dim i As Long

Open .FileName For Output As #1

For i = 0 To lst.ListCount - 1

Print #1, lst.List(i)

Next

Close #1

End With

End Function

Private Sub Command2_Click()

LoadList CommonDialog, List1

End Sub

Private Function LoadList(dialogCommon As CommonDialog, lst As ListBox)

On Error Resume Next

With cmdlg

.CancelError = True
.DialogTitle = "Save List"
.Filter = "*.txt"

Err.Clear

.ShowOpen

If Err Then Exit Function

Dim i As Long, x$

Open .FileName For Input As #1

'استفاده از اين خط به جاي Common Dialog
'Open "C:\test.txt" For Input As #1

For i = 0 To lst.ListCount - 1

Line Input #1, x$
lst.AddItem x

Next

Close #1

End With

End Function

[moeinjoon]

در خط
Private Function LoadList(dialogCommon As CommonDialog, lst As ListBox)
Private Function SaveList(dialogCommon As CommonDialog, lst As ListBox)

ارور زير رو ميده
User defined type non difined

يه مقدار راجع به متغير هاش توضيح بدين

[parselearn]

كد لود كردن
http://barnamenevis.org/forum/attachment.php?attachmentid=29670&d=1238867353

كد ذخيره كردن


Sub savef()
On Error Resume Next

Kill App.Path + "\Test.txt"
FileName = App.Path + "\Test.txt"
FileNumber = FreeFile()
Open FileName For Append As FileNumber
For i = 0 To List1.ListCount - 1
Print #FileNumber, List1.List(i)
Next
Close #FileNumber
End Sub

[vbhamed]

در خط
Private Function LoadList(dialogCommon As CommonDialog, lst As ListBox)
Private Function SaveList(dialogCommon As CommonDialog, lst As ListBox)

ارور زير رو ميده
User defined type non difined

يه مقدار راجع به متغير هاش توضيح بدين

سلام

روي نوار ابزار راست كليك كنيد
گزينه Microsoft Common Dialog Control... رو انتخاب كنيد
Ok بزنيد

از كنترل جديد ايجاد شده در نوار ابزار يكي روي صفحه بزاريد و نامش رو به cmdlg تغيير بدين