فروشگاه یاهو ۹۸

ذخیره و خواندن لیست با WriteList و ReadList — گام‌به‌گام

وقتی داده‌ها چندتایی هستند (لیست خرید، کلمات بازی، تاریخچه جستجو) به‌جای دست‌وپنجه نرم‌کردن با متن، از WriteList و ReadList استفاده کنید؛ List را می‌دهید و B4A خودش هر آیتم را در یک خط فایل می‌نویسد و موقع خواندن همان List را برمی‌گرداند. اینجا هم اول یک حلقه ۵ آیتم می‌سازیم و بعد با حلقه دوم آیتم‌های خوانده‌شده را در Log چاپ می‌کنیم تا مطمئن شوید داده سالم برگشته. این روش برای داده‌های کوچک تا چند هزار آیتم کاملاً کافی است و نیازی به دیتابیس ندارد.

رایگان
مشاهده صفحه محصول و راه‌های دریافت

توضیحات محصول

وقتی داده‌ها چندتایی هستند (لیست خرید، کلمات بازی، تاریخچه جستجو) به‌جای دست‌وپنجه نرم‌کردن با متن، از WriteList و ReadList استفاده کنید؛ List را می‌دهید و B4A خودش هر آیتم را در یک خط فایل می‌نویسد و موقع خواندن همان List را برمی‌گرداند. اینجا هم اول یک حلقه ۵ آیتم می‌سازیم و بعد با حلقه دوم آیتم‌های خوانده‌شده را در Log چاپ می‌کنیم تا مطمئن شوید داده سالم برگشته. این روش برای داده‌های کوچک تا چند هزار آیتم کاملاً کافی است و نیازی به دیتابیس ندارد. این نمونه به کتابخانه جانبی نیاز ندارد و از امکانات داخلی B4A استفاده می‌کند.

ویژگی‌های کلیدی

کد نمونه رایگان

Sub btnAction_Click
    Dim lst As List
    lst.Initialize
    For i = 1 To 5
        lst.Add("آیتم شماره " & i)
    Next
    File.WriteList(File.DirInternal, "saved_text.txt", lst)
    ToastMessageShow(lst.Size & " آیتم ذخیره شد", False)
End Sub

Sub btnLoad_Click
    If File.Exists(File.DirInternal, "saved_text.txt") Then
        Dim lst As List = File.ReadList(File.DirInternal, "saved_text.txt")
        For i = 0 To lst.Size - 1
            Log(lst.Get(i))
        Next
        ToastMessageShow("تعداد " & lst.Size & " آیتم خوانده شد", False)
    End If
End Sub