lvoutput.Clear
lvoutput.FastScrollEnabled = True
Dim result As String
result = Response.GetString("UTF8")
Dim Endstring As Int
Endstring = result.IndexOf("<!")
result = result.SubString2(0, Endstring)
result = result.Replace("_"," ")
File.WriteString(File.DirInternalCache, "nettalk.txt",result)
reader.Initialize(File.OpenInput(File.DirInternalCache, "nettalk.txt"))
Dim ID As String
ID = reader.ReadLine
Do While ID <> Null
Dim lat As String
lat = reader.ReadLine
Dim lon As String
lon = reader.ReadLine
Dim timestamp As String
timestamp = reader.ReadLine
lvoutput.SingleLineLayout.Label.TextSize = 10
lvoutput.SingleLineLayout.ItemHeight = 35
lvoutput.SingleLineLayout.Label.TextColor = Colors.Black
lvoutput.AddSingleLine(ID &": "& lat & " "& lon &" " & timestamp)
ID = reader.ReadLine
Loop
reader.Close
ProgressDialogHide
lvoutput.SetSelection(0)
my response success code which is wrong is because it does not work:
Dim result As String
result = Response.GetString("UTF8")
File.WriteString(File.DirInternalCache, "spin.txt",result)
reader.Initialize(File.OpenInput(File.DirInternalCache, "spin.txt"))
Dim phnum As String
phnum = reader.ReadLine
Do While phnum <> Null
Dim udeviceID As String
udeviceID = reader.ReadLine
spnDevice.AddSingleLine(phnum & " "& udeviceID)
spnDevice = reader.ReadLine
Loop
reader.Close
ProgressDialogHide
spnDevice.SetSelection(0)