Android Question SaveCsv Error

sonistp · Mar 3, 2020

I got error java.lang.ClassCastException: java.lang.String cannot be cast to java.lang.String[] when trying savecsv. Anyone can help me ? Please.

B4X:

Sub savedata
    Dim su As StringUtils
    Dim sb As StringBuilder
    Dim rows As List
    rows.Initialize
    sb.Initialize
    Dim ob,co,dw As Int
    Dim Arr(3) As String
    co=txtmpco.Text.Replace(",","")
    ob=txtmpob.Text.Replace(",","")
    dw=txtmpco.Text.Replace(",","")
    Arr(0)=ob
    Arr(1)=co
    Arr(2)=dw
    rows.AddAll(Arr)
    Log(rows)
    su.SaveCSV(File.DirDefaultExternal,"MP0320.CSV",",",rows)

End Sub

Erel · Mar 4, 2020

Never use File.DirDefaultExternal. Search for "runtime permissions" for more information.

This is the mistake: rows.AddAll(Arr)
AddAll expands the array and adds multiple items. You need to use Add:

B4X:

rows.Add(arr)
'or nicer:
rows.Add(Array As String(ob, co, dw))

sonistp · Mar 4, 2020

Erel said:
Never use File.DirDefaultExternal. Search for "runtime permissions" for more information.

This is the mistake: rows.AddAll(Arr)
AddAll expands the array and adds multiple items. You need to use Add:

B4X:

rows.Add(arr) 'or nicer: rows.Add(Array As String(ob, co, dw))

(ArrayList) [[Ljava.lang.String;@52812418] I got this in my log after used

B4X:

rows.Add(Array As String(ob, co, dw))

Erel · Mar 4, 2020

That's the expected output of an array of strings. Remove Log(rows) and you won't see it.

Mahares · Mar 4, 2020

sonistp said:
ArrayList) [[Ljava.lang.String;@52812418] I got this in my log after used

Add this to the end of your code to see the items:

B4X:

For i=0 To rows.Size-1
        For j=0 To Arr.Length-1
            Log(Arr(j))
        Next
    Next

Erel · Mar 4, 2020

Another option:

B4X:

For Each row() As String in rows
 Dim list As List = row
 Log(list)
Next

Mahares · Mar 4, 2020

Erel said:
Another option:

Are you trying to say something like this or am I bucking your train of thought and messing with your solution?

B4X:

Dim i As Int
    For Each row() As String In rows
        Dim list As List = row
        For j=0 To list.Size-1
            Log(list.Get(j))    'display the individual items        
        Next
        i=i+1
    Next

Erel · Mar 4, 2020

No. Lists behave differently than arrays. Log(YourList) will provide a nice output with all the list items.

If you do want to log each item separately:

B4X:

For Each row() As String in rows
 For Each Item As String In row
   Log(Item)
  Next
Next

Android Question SaveCsv Error

sonistp

Member

Erel

B4X founder

sonistp

Member

Erel

B4X founder

Mahares

Expert

Erel

B4X founder

Mahares

Expert

Erel

B4X founder

Similar Threads

Android Question SaveCsv Error

Member

B4X founder

Member

B4X founder

Expert

B4X founder

Expert

B4X founder

Similar Threads

Privacy & Transparency

Privacy & Transparency