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

[rasoul22 40]

با سلام و خسته نباشی

می خواستم بدون چجوری یه لیست ویویی که اطلاعاتش با ادیت تکست در خود برنامه ( توسط کاربر) تعیین شده 

بعد از خارج شدن کاربر و ورود دوباره به آن اون اطلاعات که خودش در ادیت تکست نوشته بود و در لیست ویو ذخیره شده بود

پاک نشه و در لیست ویو مانده باشه

ممنونم از اینکه جواب بدید :crazy:

[rasoul22 40]

 

سلام

بفرما

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

پس ساب load کوش

[abbas2142 557]

شرمنده

Sub load
    ListView1.Clear
    reader.Initialize(File.OpenInput(File.DirInternal,"test.txt"))
    Dim item As String
    item = reader.ReadLine
    Do While item <> Null
        ListView1.AddSingleLine(item)
        item = reader.ReadLine
    Loop
    reader.Close
End Sub

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

شما بگرد برای آموزش ساخت تنظیمات برای برنامه...
چون در اون، برای ذخیر شدن تنظیمات جدید، باید یک فایل درست میشد ک اطلاعات تنظیمات جدید داخلش بود و برنامه همیشه  اونو لود میکرد....

شما هم باید همین راه رو بری احتمالا...

موفق باشید...

[abbas2142 557]

سلام

بفرما

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

[mre 14]

متغیر writer و reader چی هستن؟

[abbas2142 557]

متغیر writer و reader چی هستن؟

 

بفرما

Dim writer As TextWriter
    Dim reader As TextReader

[mre 14]

دمت گرم