با سلام خدمت کاربران عزیز LearningB4A . امروز به درخواست یکی از کاربران آموزش ذخیره مقادیر در یک List رو براتون آموزش میدم . متغیر List یک متغیر پیشفرض بیسیک هست که اجازه میده اطلاعات رو به صورت لیست وار در اون ذخیره و بازیابی کنید . (باListView اشتباه نگیرید). برای آموزش به ادامه مطلب مراجعه کنید.
خب اول از همه باید متغیری که میخوایم ذخیره بشه رو تعریف کنیم
Dim Date As int
بعد این متغیره من هر داده که توش باشه رو میشه با استفاده از روش زیر ذخیره و بارگزاری کرد
حالا بیایم متغیر رو تعریف و Initialize کنیم .
Dim l As List
l.Initialize
بعد از این کار باید بیایم متغیری یا داده ای که میخوام ذخیره کنیم (String,Boolean,Int) رو با دستور Add به اون بدیم من در اینجا یک متغیر از نوع اینت رو بهش میدم که از قبل تعریفش کردم
l.Add(Date)
بعد باید لیست رو در یکی از دایرکتوری های موجود ذخیره کنیم که من از دیر اینترنال استفاده میکنم .
File.WriteList(File.DirInternal,"Date.list",l)
date.list اسم فایلی هست که ذخیره میشه و هرچی میتونید بزاریدش حتی بدون فرمت .list و اون l که در اخر قرار داده شده اسم لیست تعریفیمون هست .
الان داده ذخیره شده برای بارگزاری داده کافیه به روش زیر عمل کنیم :
IF File.Exists(File.DirInternal,"Date.list")=True Then
Dim l As List
l.Initialize
l=File.ReadList(File.DirInternal,"Date.list")
Date=l.Get(0)
End IF
خب در خط اول گفتیم که اگر فایل لیست ما ذخیره شده بود بیاد یه لیست به اسم l تعریف بکنه و در خط 4 بیاد لیستی که از قبل ذخیره شده بوده رو برامون بریزه تو متغیر لیست جدیدمون .
بعد با دستور Get اومدیم مقدار متغیره Int خودمون رو که اسمش Date بود رو برابر با اولین داده ذخیره شده در لیستمون قرار بده .
نکته : اگر چندتا متغیر ذخیره میکنید ترتیبشون مهمه برای مثال اگر دو تا متغیر n1 و n2 رو به ترتیب شماره هاشون با add به لیست اظافه میشه باید با شماره های 0 و 1 با دستور Get دریافت بشه . میتونید به صورت کامل کد های باالا رو با ذخیره سه متغیر ببینید.
ذخیره داده ها
Dim Date1,Date2,Date3 As int
Dim l As List
l.Initialize
l.Add(Date1)
l.Add(Date2)
l.Add(Date3)
File.WriteList(File.DirInternal,"Date.list",l)
بار گزاری داده ها
IF File.Exists(File.DirInternal,"Date.list")=True Then
Dim l As List
l.Initialize
l=File.ReadList(File.DirInternal,"Date.list")
Date1=l.Get(0)
Date2=l.Get(1)
Date3=l.Get(2)
End IF
این اموزش هم به پایان رسید امیدوارم براتون مفید بوده باشه .
با نظراتتون مارو خوشحال کنید . :)
درباره این سایت