Saving contents of 2 edit text boxes to one file name.

<variable>.Replace

Click to expand...

(Chr(10),"")

Click to expand...

klaus said:

String functions.

Chr(10) is Target string
"" Replacement string.

And also in the Beginner's Guide page 184.

Best regards.

Click to expand...

margret said:

Something like this should work for you. Be sure to change all the EditText names to whatever you like.

B4X:

Sub Globals
      Dim sets As Map
      sets.Initialize
End Sub

Sub savebtns
      sets.Clear
      sets.Put("EditText1", EditText1.Text)
      sets.Put("EditText2", EditText2.Text)
      File.WriteMap(File.DirInternal, "btnset.set", sets)
End Sub

Sub loadbtns
      sets = File.ReadMap(File.DirInternal, "btnset.set")
      EditText1.Text = sets.Get("EditText1")
      EditText2.Text = sets.Get("EditText2")
End Sub

Click to expand...