Android Question [Solved] Job.GetString to List

[asales]

I get a string response in this format (lines):

1. The Godfather 
2. Citizen Kane 
3. Casablanca 
4. Schindler's List 
5. Pulp Fiction 
6. The Shawshank Redemption 
7. 2001: A Space Odyssey 
8. The Dark Knight 
9. Fight Club 
10. Forrest Gump

I search for several codes in the forum, but I only found this way (save the string to file and read to a list)

Wait For (j) JobDone(j As HttpJob)
If j.Success Then
    Log(j.GetString)
    File.WriteString(xui.DefaultFolder, "1.txt", j.GetString)
    lstResponse = File.ReadList(xui.DefaultFolder, "1.txt")
End If

Is possible to generate a list from this string response without save and read the file?

Thanks in advance for any tips .

 

[drgottjr]

i don't fully agree with the selections on the list, but i would use regex.split() and list.addall().
i'm guessing the string uses crlf (or possibly "\r\n", depending).
so split the string on crlf to get an array of strings and then create a list and
call addall.

dim result as string = job.getstring
dim films() as string = regex.split(crlf, result)
dim filmlist as list
filmlist.addall( films )

or save the string and read back in as a list...

 

[asales]

Thanks! It worked.

 

[MikeH]

I search for several codes in the forum, but I only found this way (save the string to file and read to a list)

Wait For (j) JobDone(j As HttpJob)
If j.Success Then
    Log(j.GetString)
    File.WriteString(xui.DefaultFolder, "1.txt", j.GetString)
    lstResponse = File.ReadList(xui.DefaultFolder, "1.txt")
End If

Is possible to generate a list from this string response without save and read the file?

Thanks in advance for any tips .

Your method is the same as mine. I think what would be ideal is:

j.GetList

 

[asales]

j.GetList

This is a httpjob?
I don't found this method:

 

[MikeH]

This is a httpjob?
I don't found this method:
View attachment 156478

No, Im saying that would be ideal to be included - I suggest you add it to the wish list

 

[TILogistic]

?
two direct options

    Dim Text As String = $"1. The Godfather
2. Citizen Kane
3. Casablanca
4. Schindler's List
5. Pulp Fiction
6. The Shawshank Redemption
7. 2001: A Space Odyssey
8. The Dark Knight
9. Fight Club
10. Forrest Gump"$
    
    Log("** Use Array **")
    Dim OutArray() As String = Regex.Split("./",Text)
    For Each s As String In OutArray
        Log(s)
    Next
    Log("--------------------")
    Log("** Use List **")
    Dim OutList As List = Regex.Split("./",Text)
    For Each s As String In OutList
        Log(s)
    Next

 

[TILogistic]

Another option is to change the pattern for the end of line, carriage return, or newline.

Dim OutArray() As String = Regex.Split("\r?\n|\r",Text)

    Dim OutList As List = Regex.Split("\r?\n|\r",Text)

Note: CRLF is only newline