علاقه مندی بدون دیتابیس

[moinmah 40]

چجوری ممکنه که در برنامه بدون دیتابیس لیست علاقه مندی ساخت؟ مثلا اگه کاربر دکمه ای رو زد یه آیتم لیست ویو در یک اکتیویتی دیگه بسازه... اصلا ممکنه؟

من یه چیزی رو پیدا کردم تو اکلیپس به اسم SharedPreference که تنظیماتو تو خودش ذخیره میکنه و مثله دیتابیسه و مربوط به خوده برنامه اس و تو همین مایه ها...

خواستم ببینم برای B4A هم هست همچین چیزی؟

[moinmah 40]

واقعا ممنون مشکلم کاملا حل شد*خنده*

[mahfelsoft 130]

سلام . من به این اموزش خیلی نیاز دارم . ولی این توضیحاتو خوندم یک قاطی کردم . میشه لطف کنید و سورسش رو بزارید . دستتون درد نکنه . خدا خیرتون بده . خدا از بزرگی کمتون نکنه . *زبونک*

[combile 10]

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

فقط لیست مطالب رو نشون میده ولی لینک به مطلب نمیده

اگه برای کتاب میخواین که جواب نمیده

[پژمان نیکروان 6,055]

خب میتونی تو فایل تکست ذخیره کنی.

نیازی هم نیست که کار با دیتابیس رو بلد باشی،آسون تر هم هست.

من خودم تاحالا نشده که علاقه مندی بسازم ، اما اگه بسازم تو فایل تسکت ذخیره میکنم.

[vistamobile 1,700]

هم اکنون نیازمند یک خورده توضییح هستیم.*عطسه*

[eghmaa 71]

برای ساخت علاقه مندی ها با txt

این کد رو برای باتن افزودن به علاقه مندی قرار بدید:

Sub btnFavorite_Click    Dim map1 As Map
   If strCurrentItem <> "" Then
       map1.Initialize
       If File.Exists(File.DirInternal,"fav.txt") = True Then
         map1 = File.ReadMap(File.DirInternal,"fav.txt")
       End If
       If map1.ContainsKey(strCurrentItem) = False Then
         map1.Put(strCurrentItem,albumName)
         File.WriteMap(File.DirInternal,"fav.txt",map1)
         Msgbox("آیتم مورد نظر به علاقمندی ها اضافه شد","علاقه مندی ها")
       Else
         Msgbox("این آیتم قبلا وارد لیست شده است","خطا")
       End If
   End If

End Sub

و این کد رو در قسمت Activity_Create:

Sub Activity_Create(FirstTime As Boolean)   
loadControl

End Sub

برای لود کردن از فایل txt از این کد استفاده کنید:

Sub loadControl    
   Dim lbl1 As Label
   Dim map1 As Map
   Dim strName As String
   If File.Exists(File.DirInternal,"fav.txt") = True AND File.size(File.DirInternal,"fav.txt") <> 0 Then
   map1 = File.ReadMap(File.DirInternal,"fav.txt")
   lstmenu.Initialize("menu")
   lbl1 = lstmenu.TwoLinesLayout.Label
   lbl1.TextSize = 5 + lbl1.TextSize
   For Each k As String In map1.Keys
     strName = map1.Get(k)
     lstmenu.AddTwoLinesAndBitmap2(strName,"آیتم مورد علاقه",LoadBitmap(File.DirAssets,""),k)
       Next
       Activity.AddView(lstmenu,1dip,32dip,99%x,72%y)
   Else
       Msgbox("هیچ آیتمی ای در علامندی ها پیدا نشد","خطا")
       Activity.Finish
       StartActivity(Main)
   End If
End Sub

[moinmah 40]

واقعا دستت درد نکنه خیلی خوب بود...

فقط چون من تو Map اصلا هیچی نمیدونم برای حذف از لیست علاقه مندی ها باید چیکارکرد؟*خوشمزه*

[yasinshop 10]

دوستان نیاز به کتابخانه خاصی هست برای این کار ؟

[eghmaa 71]

واقعا دستت درد نکنه خیلی خوب بود...

فقط چون من تو Map اصلا هیچی نمیدونم برای حذف از لیست علاقه مندی ها باید چیکارکرد؟*خوشمزه*

برای حذف تمام آیتم ها از دستور

map1.Clear

و برای حذف یک آیتم از

map1.Remove(strCurrentItem)

استفاده کنید.

دوستان نیاز به کتابخانه خاصی هست برای این کار ؟

کتابخانه ی خاصی نیاز نداره..

[cloner01001 38]

برای ساخت علاقه مندی ها با txt

این کد رو برای باتن افزودن به علاقه مندی قرار بدید:

Sub btnFavorite_Click    Dim map1 As Map
   If strCurrentItem <> "" Then
       map1.Initialize
       If File.Exists(File.DirInternal,"fav.txt") = True Then
         map1 = File.ReadMap(File.DirInternal,"fav.txt")
       End If
       If map1.ContainsKey(strCurrentItem) = False Then
         map1.Put(strCurrentItem,albumName)
         File.WriteMap(File.DirInternal,"fav.txt",map1)
         Msgbox("آیتم مورد نظر به علاقمندی ها اضافه شد","علاقه مندی ها")
       Else
         Msgbox("این آیتم قبلا وارد لیست شده است","خطا")
       End If
   End If

End Sub

و این کد رو در قسمت Activity_Create:

Sub Activity_Create(FirstTime As Boolean)   
loadControl

End Sub

برای لود کردن از فایل txt از این کد استفاده کنید:

Sub loadControl    
   Dim lbl1 As Label
   Dim map1 As Map
   Dim strName As String
   If File.Exists(File.DirInternal,"fav.txt") = True AND File.size(File.DirInternal,"fav.txt") <> 0 Then
   map1 = File.ReadMap(File.DirInternal,"fav.txt")
   lstmenu.Initialize("menu")
   lbl1 = lstmenu.TwoLinesLayout.Label
   lbl1.TextSize = 5 + lbl1.TextSize
   For Each k As String In map1.Keys
     strName = map1.Get(k)
     lstmenu.AddTwoLinesAndBitmap2(strName,"آیتم مورد علاقه",LoadBitmap(File.DirAssets,""),k)
       Next
       Activity.AddView(lstmenu,1dip,32dip,99%x,72%y)
   Else
       Msgbox("هیچ آیتمی ای در علامندی ها پیدا نشد","خطا")
       Activity.Finish
       StartActivity(Main)
   End If
End Sub

سلام ، واسه من تو این کد ارور میده مشکل چیه؟

If strCurrentItem <> "" Then

[moxol 11]

Dim strCurrentItem as string تو گلوبال

[vistamobile 1,700]

سلام. کسی از دوستان تونسته با این روش، موفق بشه؟ میشه یه سورس کوچولو بزارین؟ خیلی واجبه