Spanish Cargar/Leer datos segun tokens

[pcicom]

Saludos..

Mediante una rutina reqlizo un request a un WEBSERVICE y el WEBSERVICE me regresa la respuesta en una cadena, con el contenido de un archivo en un formato definido..

Algo asi..
0|Categorias||
1|Categoria 1||
2|Categoria 2||
3|Categoria 3||
0|Publicaciones||
1|Publicacion 1||
2|Publicacion 3||

lo que quiero es poder procesar ese string, leerlo y almacenarlo en mi BD SQLlite..

La pregunta es..

Como puedo leer el string linea por linea sin necesidad de grabar el string en un archivo...

Y/O como pudiera utilzarlo del modo XML donde tambien lo puedo generar asi

<categorias>
<categoria><numero>1</numero><descripcion>Categoria 1</categoria>
::
::
</catergorias>

Puede ser muy sencillo el detalle es que aun no me familiarizo con las rutinas funciones que se utilizan con b4a

Si tienen un codigo simple se lo agradeceria...

SALUDOS..

 

[jota]

Suponiendo que tienes un fichero txt.txt en la ruta File.DirAssets,yo lo haria asi.

Sub Process_Globals
Type datos(codigo As Int,nombre As String,otros As String)
End Sub

Sub Activity_Create(FirstTime As Boolean)
Dim n As TextReader
Dim txt As String
Dim l As List
l.Initialize
n.Initialize(File.OpenInput(File.DirAssets,"txt.txt") )
txt = ""
Do While txt <> Null
txt = n.ReadLine
If txt <>Null Then
If txt <> "" Then
Dim dat As datos
dat = analiza(txt)
l.Add(dat)
End If
End If
Loop
For bucle = 0 To l.Size-1
Dim d As datos
d = l.Get(bucle)
Msgbox("Codigo: " & d.codigo & CRLF & "Nombre: " & d.nombre & CRLF & "Otros: " & d.otros,"")
Next
End Sub
Sub analiza(txt As String) As datos
Dim n As Int
Dim dat As datos
Dim ctrLetra As Int
n=0
For bucle = 0 To txt.Length -1
If txt.SubString2(bucle,bucle+1) = "|" Then
Select Case n
Case 0
dat.codigo = txt.SubString2(0,bucle)
n=1
ctrLetra = bucle +1
Case 1
dat.nombre = txt.SubString2(ctrLetra,bucle)
n=2
ctrLetra = bucle +1
Case 2
dat.otros = txt.SubString2(ctrLetra,bucle)
Return dat
End Select
End If
Next
End Sub



'Espero que te sirva.

 

[jota]

mirando otras cosas he visto que hay una biblioteca hecha que se adecua a lo que quieres Basic4android - StringUtils

 

[Jerry Araya]

bueno

GRacias es muy util..