View Full Version : ذخيره موارد Add شده در Listbox در فايل TXT
moeinjoon
چهارشنبه 19 فروردین 1388, 03:02 صبح
چطور مواردي كه در ليست اضافه كردم در فايل txt ذخيره كنم تا در اجراي بعدي به طور خودكار اضافه شود؟
scarce
چهارشنبه 19 فروردین 1388, 07:02 صبح
با این کد می تونی داده های یک 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
چهارشنبه 19 فروردین 1388, 09:03 صبح
سلام
با اجازه دوستمون 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
چهارشنبه 19 فروردین 1388, 13:34 عصر
در خط
Private Function LoadList(dialogCommon As CommonDialog, lst As ListBox)
Private Function SaveList(dialogCommon As CommonDialog, lst As ListBox)
ارور زير رو ميده
User defined type non difined
يه مقدار راجع به متغير هاش توضيح بدين
parselearn
پنج شنبه 20 فروردین 1388, 02:22 صبح
كد لود كردن
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
پنج شنبه 20 فروردین 1388, 03:41 صبح
در خط
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 تغيير بدين
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.