Hello,
You will find the Split in Margret's StringFunctions library. You'll download it here.
B4X:
Dim S As String
S = "1,2,33,4,5"
Dim myList As List = SplitMe(S,",")
Dim curPos As Int
Do While curPos < myList.Size
Log(myList.Get(curPos))
curPos=curPos+1
Loop
Sub SplitMe(S As String,Delimiter As String) As List
Dim SF As StringFunctions
SF.Initialize
Return SF.Split(S,Delimiter)
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Dim TextoEncriptado As String, Texto As String, valores As List
SF.Initialize
Telefono.SetScreenOrientation(1)
Activity.LoadLayout("Principal")
Activity.Title="Super MySQL"
If File.Exists(Carpeta,"reg5.smql")=True Then
TextoEncriptado=File.ReadString(Carpeta,Archivo)
Texto=Decrypt(TextoEncriptado)
valores=SplitMe(Texto,"|")
txtServidor.Text=valores.Get(0)
txtPort.Text=valores.Get(1)
txtUser.Text=valores.Get(2)
txtPassword.Text=valores.Get(3)
End If
End Sub
Sub SplitMe(S As String,Delimiter As String) As List
Dim SF As StringFunctions
SF.Initialize
Return SF.Split(S,Delimiter)
End Sub
But valores.get(0) or valores.get(1) only return a simply Character.