Dim cc As ContentChooser
cc.Initialize("cc")
cc.Show("*/*", "Seleccionar configuración")
Wait For CC_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
Dim parser As CSVParser
parser.Initialize
Dim resolver As ContentResolver
resolver.Initialize("")
Dim u As Uri
u.Parse(FileName)
Dim rs As ResultSet = resolver.Query(u, Null, "", Null, "")
If rs.NextRow Then
Dim columns As B4XSet = B4XCollections.CreateSet
For i = 0 To rs.ColumnCount - 1
columns.Add(rs.GetColumnName(i))
Next
End If
MsgboxAsync("Dir: " & Dir & CRLF & "Filename: " & FileName, "")
'Only filename'
FileName = rs.GetString("_display_name")
rs.Close
Dim filestr As String
'vv ERROR vv'
filestr = File.ReadString(Dir, FileName)
Dim data As List = parser.Parse(filestr, "#" , False)
end if