Qustion about dilog lib

volvomann · May 1, 2012

Hallo
I use this code to save and open files. how can i sort the data so they came out at the list in same order that they where saved?

Code

Dim btmp As Bitmap
Dim Id As InputDialog
Dim ct1 As CustomToast
btmp.Initialize(File.DirAssets,"android48.png")
ct1.Initialize
'Id.PasswordMode = True
'Id.InputType =Id.INPUT_TYPE_DECIMAL_NUMBERS
'Id.InputType = Id.INPUT_TYPE_NUMBERS
'Id.InputType = Id.INPUT_TYPE_PHONE
Id.InputType = Id.INPUT_TYPE_text
Id.Input = ""
Id.Hint = "Skriv inn filnamnet!"
Id.HintColor = Colors.ARGB(196, 255, 140, 0)
ret = DialogResponse.CANCEL
ret = Id.Show("Skriv inn filnamnet", "Pulsdialog", "Ok", "Angre", "", bmp)
If ret = -1 Then
lagre = Id.Input
Dim Map1 As Map
Map1.Initialize
For i = 1 To 7
Map1.Put("Makspuls" &"", Round( svar1) & "")
Map1.Put("Bmi" &"",Round(bmi) & "")
Map1.Put("Fitnes kat" &"", EditText11ukk.Text& "")
Map1.Put("Pulsone lett" &"", Round(lett1)& " " & Round(lett2) &"")
Map1.Put("Pulsone At" &"", Round(at1)& " " & Round(at2) &"")
Map1.Put("Pulsone Vo2max" &"", Round(vo1)& " " & Round(vo2) &"")
Map1.Put("Fitnes id" &"",Round(svar)& "")
Next
File.WriteMap(File.DirRootExternal & "/pulsdata", lagre & ".txt", Map1)
ct1.ShowBitmap(" Filen er lagra som " & lagre & ".txt",2000,Gravity.top,20,20,btmp)
End If

End Sub

Erel · May 1, 2012

Please use [ code ] tags (without spaces) when posting code.

What is the purpose of all these empty strings?

You will need to use File.ReadMap2 and pass a Map object with the keys. This lets you specify the required order.

volvomann · May 1, 2012

Ok tank you. If i done somting wrong with opploading the code i fix it next time but can you explain what you mean i am not so good in Inglish "(Please use [ code ] tags (without spaces) when posting code.)"

thedesolatesoul · May 1, 2012

volvomann said:
Ok tank you. If i done somting wrong with opploading the code i fix it next time but can you explain what you mean i am not so good in Inglish "(Please use [ code ] tags (without spaces) when posting code.)"

This post by Mahares sums up how to use the [ code ] tags: Using Code Tags

volvomann · May 1, 2012

Now i have tried this code for sorting but no it dont work Please tel me what i done wrong

B4X:

Sub mnuPagel_Click    
   Dim Map1 As Map
    Map1.Initialize
   Dim btmp As Bitmap
   Dim Id As InputDialog    
   Dim ct1 As CustomToast
   btmp.Initialize(File.DirAssets,"android48.png")
   ct1.Initialize
      'Id.PasswordMode = True
   'Id.InputType =Id.INPUT_TYPE_DECIMAL_NUMBERS
   'Id.InputType = Id.INPUT_TYPE_NUMBERS
   'Id.InputType = Id.INPUT_TYPE_PHONE
   Id.InputType = Id.INPUT_TYPE_text   
   Id.Input = ""
   Id.Hint = "Skriv inn filnamnet!"
   Id.HintColor = Colors.ARGB(196, 255, 140, 0)
   ret = DialogResponse.CANCEL
   ret = Id.Show("Skriv inn filnamnet", "Pulsdialog", "Ok", "Angre", "", bmp)
   If ret = -1 Then
   lagre = Id.Input   
    
      For i = 1 To 7
          Map1.Put("Item #1","Makspuls" )
        Map1.Put("Item #2","Bmi ")
           
           Map1.Put("Item #3","Fitnesid")      
            Map1.Put("Item #4","Fitneskat")
             Map1.Put("Item #5","pulssone lett")
             Map1.Put("Item #6" ,"Pulsone At" , Round(at1)& " " & Round(at2) &"")
             Map1.Put("item #7","Pulsone Vo2max" , Round(vo1)& " " & Round(vo2) &"")              
   Next
    File.WriteMap(File.DirRootExternal & "/pulsdata", lagre & ".txt", Map1)
      ct1.ShowBitmap(" Filen er lagra som " & lagre & ".txt",2000,Gravity.top,20,20,btmp)   
 End If
 
End Sub

'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" Meny hente """""""""""""""""""""""""""""""""""""""""""""""""""
Sub mnuPage3_Click
   
   Dim Map1 As Map
    Dim sb As StringBuilder
   Dim ret As Float
    Dim fd As FileDialog
   'Map1.Put("Item #1", "")
    'Map1.Put("Item #2", "")
   
   fd.FastScroll = True
   'fd.ShowOnlyFolders = True
   fd.FilePath = (File.DirRootExternal & "/pulsdata") ' also sets ChosenName to an emtpy string
   'fd.ShowOnlyFolders = true
   'fd.FileFilter = ".txt" ' for example or ".jpg,.png" for multiple file types
   ret = fd.Show("Pulsdialog", "Ok", "", "", bmp)   
   opne= fd.ChosenName   
   If File.Exists(File.DirRootExternal & "/pulsdata", opne) = True Then
    Map1 = File.ReadMap2(File.DirRootExternal & "/pulsdata", opne,Map1)   
    sb.Initialize
    sb.Append("Dine verdier er:").Append(CRLF).Append(CRLF)
    For i = 0 To Map1.Size - 1
    sb.Append("").Append(Map1.GetKeyAt(i)).Append(" = ")
    sb.Append(Map1.GetValueAt(i)).Append(CRLF)
Next
    Msgbox(sb.ToString,"")   
 End If
   If ret = -2 Then 
   ToastMessageShow(" Helge T", False)
End If

thedesolatesoul · May 1, 2012

In order for the map to be sorted, you need to create an empty map with the key values in your order.

Here:

B4X:

Sub mnuPagel_Click    
   Dim Map1 As Map
    Map1.Initialize
   Dim btmp As Bitmap
   Dim Id As InputDialog    
   Dim ct1 As CustomToast
   btmp.Initialize(File.DirAssets,"android48.png")
   ct1.Initialize
      'Id.PasswordMode = True
   'Id.InputType =Id.INPUT_TYPE_DECIMAL_NUMBERS
   'Id.InputType = Id.INPUT_TYPE_NUMBERS
   'Id.InputType = Id.INPUT_TYPE_PHONE
   Id.InputType = Id.INPUT_TYPE_text   
   Id.Input = ""
   Id.Hint = "Skriv inn filnamnet!"
   Id.HintColor = Colors.ARGB(196, 255, 140, 0)
   ret = DialogResponse.CANCEL
   ret = Id.Show("Skriv inn filnamnet", "Pulsdialog", "Ok", "Angre", "", bmp)
   If ret = -1 Then
   lagre = Id.Input   
    
      For i = 1 To 7
          Map1.Put("Item #1","Makspuls" )
        Map1.Put("Item #2","Bmi ")
           
           Map1.Put("Item #3","Fitnesid")      
            Map1.Put("Item #4","Fitneskat")
             Map1.Put("Item #5","pulssone lett")
             Map1.Put("Item #6" ,"Pulsone At" , Round(at1)& " " & Round(at2) &"")
             Map1.Put("item #7","Pulsone Vo2max" , Round(vo1)& " " & Round(vo2) &"")              
   Next
    File.WriteMap(File.DirRootExternal & "/pulsdata", lagre & ".txt", Map1)
      ct1.ShowBitmap(" Filen er lagra som " & lagre & ".txt",2000,Gravity.top,20,20,btmp)   
 End If
 
End Sub

'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" Meny hente """""""""""""""""""""""""""""""""""""""""""""""""""
Sub mnuPage3_Click
   
   Dim Map1 As Map
    Dim sb As StringBuilder
   Dim ret As Float
    Dim fd As FileDialog
   'Map1.Put("Item #1", "")
    'Map1.Put("Item #2", "")
   
   fd.FastScroll = True
   'fd.ShowOnlyFolders = True
   fd.FilePath = (File.DirRootExternal & "/pulsdata") ' also sets ChosenName to an emtpy string
   'fd.ShowOnlyFolders = true
   'fd.FileFilter = ".txt" ' for example or ".jpg,.png" for multiple file types
   ret = fd.Show("Pulsdialog", "Ok", "", "", bmp)   
   opne= fd.ChosenName   
   If File.Exists(File.DirRootExternal & "/pulsdata", opne) = True Then
   Map1.Put("Item #1","" )
        Map1.Put("Item #2","")
           
           Map1.Put("Item #3","")      
            Map1.Put("Item #4","")
             Map1.Put("Item #5","")
             Map1.Put("Item #6" ,"")
             Map1.Put("item #7","")   
    Map1 = File.ReadMap2(File.DirRootExternal & "/pulsdata", opne,Map1)   
    sb.Initialize
    sb.Append("Dine verdier er:").Append(CRLF).Append(CRLF)
    For i = 0 To Map1.Size - 1
    sb.Append("").Append(Map1.GetKeyAt(i)).Append(" = ")
    sb.Append(Map1.GetValueAt(i)).Append(CRLF)
Next
    Msgbox(sb.ToString,"")   
 End If
   If ret = -2 Then 
   ToastMessageShow(" Helge T", False)
End If

volvomann · May 1, 2012

than you. But there is somting that see me blind off problely a basic thing.

When i use your code i got undefind error at this codeline
is there anything you can thing off what i am doing wrong

B4X:

Map1.Put("Item #1","" )
       Map1.Put("Item #2","")'  
           Map1.Put("Item #3","")        
             Map1.Put("Item #4","")
              Map1.Put("Item #5","")

thedesolatesoul · May 1, 2012

Not sure. Can you paste the exact error?

volvomann · May 1, 2012

thedesolatesoul said:
Not sure. Can you paste the exact error?

I dont get an error at ide when i run debug, the error is comming when i press open menu at she phone, app stop an the mesage is: eror in line... Map1.Put("Item #1","" )

thedesolatesoul · May 1, 2012

Okay sorry.
You need to put

B4X:

Map1.Initialize

before that line

volvomann · May 1, 2012

thedesolatesoul said:
Okay sorry.
You need to put

B4X:

Map1.Initialize

before that line

Thank you tank you ther it was? 10-12 houres works ends good becaus off you.:wav::wav:

thedesolatesoul · May 1, 2012

Good to know

Qustion about dilog lib

volvomann

Active Member

Erel

B4X founder

volvomann

Active Member

thedesolatesoul

Expert

volvomann

Active Member

thedesolatesoul

Expert

volvomann

Active Member

thedesolatesoul

Expert

volvomann

Active Member

thedesolatesoul

Expert

volvomann

Active Member

thedesolatesoul

Expert

Similar Threads