ذخیره اطلاعات لیست ویو

[rasoul22 40]

سلام
کد زیر برای load چه سابی باید تعریف کنم
درباره ذخیره متن در لیست ویو میباشد
لطفا کمکم کنید

Sub Activity_Resume
    If File.Exists(File.DirInternal,"test.txt") Then
load
Else
ToastMessageShow("فایل مورد نظر پیدا نشد.",False)
End If
End Sub

Sub Activity_Pause (UserClosed As Boolean)
    If File.Exists(File.DirInternal,"test.txt") Then
File.Delete(File.DirInternal,"test.txt")
save
Else
save
End If
End Sub

 

 

و

 

 

Sub save
writer.Initialize(File.OpenOutput(File.DirInternal,"test.txt",False))    
Dim i As Int
For i = 0 To ListView1.Size -1
writer.WriteLine(ListView1.GetItem(i))
Next
writer.Close
ToastMessageShow("ذخیره شد.",False)
End Sub

[مهدی کفشگر 548]

    If File.Exists(File.DirInternal,"test.txt") Then
load
Else
ToastMessageShow("فایل مورد نظر پیدا نشد.",False)
End If

کد بالا رو باید در Sub Activity_Resume بزاری.

    If File.Exists(File.DirInternal,"test.txt") Then
File.Delete(File.DirInternal,"test.txt")
save
Else
save
End If

کد بالا رو باید در Sub Activity_Pause بزاری.

writer.Initialize(File.OpenOutput(File.DirInternal,"test.txt",False))    
Dim i As Int
For i = 0 To ListView1.Size -1
writer.WriteLine(ListView1.GetItem(i))
Next
writer.Close
ToastMessageShow("ذخیره شد.",False)

و برای کد بالا هم باید یک ساب ایجاد کنی و کد رو توش بزاری...دقیقا اینطوری :

Sub save

کد های بالا رو دقیقا جای من قرار بده 

End Sub

موفق و سربلند باشید دوست من....

[rasoul22 40]

    If File.Exists(File.DirInternal,"test.txt") Then
load
Else
ToastMessageShow("فایل مورد نظر پیدا نشد.",False)
End If

کد بالا رو باید در Sub Activity_Resume بزاری.

    If File.Exists(File.DirInternal,"test.txt") Then
File.Delete(File.DirInternal,"test.txt")
save
Else
save
End If

کد بالا رو باید در Sub Activity_Pause بزاری.

writer.Initialize(File.OpenOutput(File.DirInternal,"test.txt",False))    
Dim i As Int
For i = 0 To ListView1.Size -1
writer.WriteLine(ListView1.GetItem(i))
Next
writer.Close
ToastMessageShow("ذخیره شد.",False)

و برای کد بالا هم باید یک ساب ایجاد کنی و کد رو توش بزاری...دقیقا اینطوری :

Sub save

کد های بالا رو دقیقا جای من قرار بده 

End Sub

موفق و سربلند باشید دوست من....

 

بازم من نفهمیدم که در کد اولی load رو چرا ازم ارور میگیره قرمز میشه

و writer از چه نوعی هستش