hackershz
پنج شنبه 19 آذر 1394, 17:07 عصر
با سلام و خسته نباشید
دوستان من یک لیست باکس توی برنامم دارم که هر لحظه یک لیست رو از اینترنت دریافت میکنه و محتویات لیست باکس رو با کد زیر در تکست باکس ذخیره میکنم
Dim item As String
With CommonDialog1
.Filter = "Text Files(*.txt)|*.txt"
.FilterIndex = 2
.CancelError = True
On Error GoTo ErrHandler
.ShowSave
Open .FileName For Output As #3
Dim Index As Integer
For Index = 0 To List1.ListCount - 1
item = List1.List(Index)
Print #3, item
Next Index
Close #3
Exit Sub
End With
ErrHandler:
مشکلی که دارم اینه که اگه محتویاتش بیشتر از 5000 هزار ادرس بشه برنامه تکست رو خالی ذخیره میکنه اما مثلا 2000 رکورد رو دقیق ذخیره میکنه
چه جوری میشه این محدودیت رو از بین برد ؟ و بتونیم بی نهایت رکورد رو دقیقا ذخیره کنیم
دوستان من یک لیست باکس توی برنامم دارم که هر لحظه یک لیست رو از اینترنت دریافت میکنه و محتویات لیست باکس رو با کد زیر در تکست باکس ذخیره میکنم
Dim item As String
With CommonDialog1
.Filter = "Text Files(*.txt)|*.txt"
.FilterIndex = 2
.CancelError = True
On Error GoTo ErrHandler
.ShowSave
Open .FileName For Output As #3
Dim Index As Integer
For Index = 0 To List1.ListCount - 1
item = List1.List(Index)
Print #3, item
Next Index
Close #3
Exit Sub
End With
ErrHandler:
مشکلی که دارم اینه که اگه محتویاتش بیشتر از 5000 هزار ادرس بشه برنامه تکست رو خالی ذخیره میکنه اما مثلا 2000 رکورد رو دقیق ذخیره میکنه
چه جوری میشه این محدودیت رو از بین برد ؟ و بتونیم بی نهایت رکورد رو دقیقا ذخیره کنیم