Spanish Error al tratar de mostrar datos de un archivo CSV. SOLUCIONADO

[carlos7000]

Escribí un pequeño programa para probar si puedo leer y mostrar los datos contenidos en un archivo CSV. Todo parece funcionar hasta que la ejecución del programa llega a la línea

Log("Fecha: " & subList.Get(0))

El error que arroja B4J es:

java.lang.ClassCastException: class [Ljava.lang.String; cannot be cast to class java.util.List ([Ljava.lang.String; and java.util.List are in module java.base of loader 'bootstrap')

He casteado los datos de la siguiente forma

Log("Fecha: " & subList.Get(0).As(String))

No se cual puede ser el problema.

Adjunto el proyecto.

 

[josejad]

Hola:

Si pones el ratón sobre LoadCSV te indica que almacena los datos en una lista con arrays de strings. Un array en B4X se comporta como una lista (o viceversa), por lo que no puedes tratarla directamente como un string.

Basado en este hilo, puedes mostrar los datos como:

For Each Row() As String In su.LoadCSV (File.Dirassets,"XRPBUSD.TXT",",")
 For Each n As String in Row
   Log(n)
 Next
Next

 

[carlos7000]

Hola:

Si pones el ratón sobre LoadCSV te indica que almacena los datos en una lista con arrays de strings. Un array en B4X se comporta como una lista (o viceversa), por lo que no puedes tratarla directamente como un string.

View attachment 137665

Basado en este hilo, puedes mostrar los datos como:

For Each Row() As String In su.LoadCSV (File.Dirassets,"XRPBUSD.TXT",",")
 For Each n As String in Row
   Log(n)
 Next
Next

Hola José

Con su ayuda he escrito este nuevo código:

    Dim su As StringUtils
    Dim Data As List
    Dim row() As String
   
    Data = su.LoadCSV(File.DirAssets, "XRPBUSD.TXT", ",")
    For i = 0 To Data.Size - 1
        row = Data.Get(i)
       
        Log("Fecha: " & row(0))
        Log("Bid..: " & row(1))
        Log("Ask..: " & row(2))
    Next

Otra forma:

    Dim su As StringUtils
    Dim row() As String
    
    For Each row() As String In su.LoadCSV (File.Dirassets,"XRPBUSD.TXT",",")
        Log("Fecha: " & row(0))
        Log("Bid..: " & row(1))
        Log("Ask..: " & row(2))
    Next

Muchas gracias.