Italian Stampare una List (ListView)

RobyLaga

Member
Licensed User
In gergo si dice che si rompe ... :);)

*** Service (starter) Create ***
** Service (starter) Start **
** Activity (prev01) Create, isFirst = true **
** Activity (prev01) Resume **
>>>>> - 2 - KafKa01 ---
** Activity (prev01) Pause, UserClosed = false **
** Activity (prelista01) Create, isFirst = true **
** Activity (prelista01) Resume **
prelista01_vvvvvvv5 (java line: 1077)
java.lang.ArrayIndexOutOfBoundsException: length=1; index=11 <<<<<credo sia qui il problema
at it.h24Dome.eNotes.prelista01._vvvvvvv5(prelista01.java:1077)
at it.h24Dome.eNotes.prelista01._whatsappbutt01_click(prelista01.java:2081)
at java.lang.reflect.Method.invoke(Native Method)
at java.lang.reflect.Method.invoke(Method.java:372)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:196)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:180)
at anywheresoftware.b4a.BA.raiseEvent(BA.java:176)
at anywheresoftware.b4a.objects.ViewWrapper$1.onClick(ViewWrapper.java:80)
at android.view.View.performClick(View.java:5184)
at android.view.View$PerformClick.run(View.java:20893)
at android.os.Handler.handleCallback(Handler.java:739)
at android.os.Handler.dispatchMessage(Handler.java:95)
at android.os.Looper.loop(Looper.java:145)
at android.app.ActivityThread.main(ActivityThread.java:5938)
at java.lang.reflect.Method.invoke(Native Method)
at java.lang.reflect.Method.invoke(Method.java:372)
at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:1400)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:1195)
*** Service (starter) Create ***
** Service (starter) Start **
** Activity (prev01) Create, isFirst = true **
** Activity (prev01) Resume **
 

RobyLaga

Member
Licensed User
*** Service (starter) Create ***
** Service (starter) Start **
** Activity (prev01) Create, isFirst = true **
** Activity (prev01) Resume **
>>>>> - 2 - KafKa01 ---
** Activity (prev01) Pause, UserClosed = false **
** Activity (prelista01) Create, isFirst = true **
** Activity (prelista01) Resume **
prelista01_vvvvvvv5 (java line: 1077)
java.lang.ArrayIndexOutOfBoundsException: length=1; index=11
at it.h24Dome.eNotes.prelista01._vvvvvvv5(prelista01.java:1077)
at it.h24Dome.eNotes.prelista01._whatsappbutt01_click(prelista01.java:2081)
at java.lang.reflect.Method.invoke(Native Method)
at java.lang.reflect.Method.invoke(Method.java:372)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:196)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:180)
at anywheresoftware.b4a.BA.raiseEvent(BA.java:176)
at anywheresoftware.b4a.objects.ViewWrapper$1.onClick(ViewWrapper.java:80)
at android.view.View.performClick(View.java:5184)
at android.view.View$PerformClick.run(View.java:20893)
at android.os.Handler.handleCallback(Handler.java:739)
at android.os.Handler.dispatchMessage(Handler.java:95)
at android.os.Looper.loop(Looper.java:145)
at android.app.ActivityThread.main(ActivityThread.java:5938)
at java.lang.reflect.Method.invoke(Native Method)
at java.lang.reflect.Method.invoke(Method.java:372)
at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:1400)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:1195)
*** Service (starter) Create ***
** Service (starter) Start **
** Activity (prev01) Create, isFirst = true **
** Activity (prev01) Resume **
 

Star-Dust

Expert
Licensed User
Longtime User
Scusami ero fuori.
Sembra che il file list non contenga in tutti i campi che dovrebbe.
tu fai uno split di ogni stringa nella lista e si prevede che abbia un certo numero di campi(almeno 12) almeno così si capisce dal codice che hai inviato tu.
In realtà sembra che invece ne contenga uno solo

Io di fatto non so cosa c'è dentro quel file. Dovrei saperne di più per darti una mano
 

RobyLaga

Member
Licensed User
Da quel file, filtro solo i record vhe mi interessano, e faccio una list, che potrebbe avere anche 50 "righe"... ecco a quel punto vorrei poterle "WhatsApp are". .
 

RobyLaga

Member
Licensed User
questo è il file completo di tutti i record
 

Attachments

  • ListResults10.txt
    2.7 KB · Views: 199
  • ListResults10.txt
    2.7 KB · Views: 191

RobyLaga

Member
Licensed User
Non so se è meglio scriverci una email, così ti mando il programma è carino... anche se solo all'inizio. ...
 

Star-Dust

Expert
Licensed User
Longtime User
L'App la puoi mandare in privato. Zippi la cartella e la alleghi in una conversazione privata
 

Star-Dust

Expert
Licensed User
Longtime User
Sembra che non trova i 16 elementi divisi dala carattere "|". Quindi il difetto potrebbe essere nel file.

correggi così:
B4X:
Sub CreaText(Lista As List) As String
    Dim Txt As String =""

    For i = 0 To Lista.Size-1
        'creo un mini array con tutte le parti della riga esaminata
        Dim stringArray() As String = Regex.Split("|",Lista.get(i))

        Try
            Txt=Txt & stringArray(11) & CRLF
            Txt=Txt & stringArray(0) & " - " & stringArray(2) & " - " & stringArray(4) & " : " & stringArray(16) & CRLF
            Txt=Txt & "_____________________________________________________" & CRLF
        Catch
            log("Errore nella riga: " & Lista.Get(i))
        End Try
    Next
 
    Return Txt
End Sub
 
Last edited:

RobyLaga

Member
Licensed User
Sembra che non trova i 16 elementi divisi dala carattere "|". Quindi il difetto potrebbe esser enel file.

correggi così:
B4X:
Sub CreaText(Lista As List) As String
    Dim Txt As String =""

    For i = 0 To 999
        'creo un mini array con tutte le parti della riga esaminata
        Dim stringArray() As String = Regex.Split("|",Lista.get(i))

        Try
            Txt=Txt & stringArray(11) & CRLF
            Txt=Txt & stringArray(0) & " - " & stringArray(2) & " - " & stringArray(4) & " : " & stringArray(16) & CRLF
            Txt=Txt & "_____________________________________________________" & CRLF
        Catch
            log("Errore nella riga: " & Lista.Get(i))
        End Try
    Next
 
    Return Txt
End Sub

Ok, domani provo, poi ti dico. ..
intanto grazie
poi se mi dici quanto è il saldo., sarei più contento ...
 

Star-Dust

Expert
Licensed User
Longtime User
Ok, domani provo, poi ti dico. ..
intanto grazie
poi se mi dici quanto è il saldo., sarei più contento ...
Offre la casa ;)

Domani credo nel pomeriggio, di mattina sono impegnato devo montare una regia AUDIO/VIDEO e non potrò staccarmi molto
 

RobyLaga

Member
Licensed User
Comunque, con questa modifica del codice, ora va meglio

riesco a mandare questo :

Ronedella d.6 |Ronde
- o - e : R
__
Tubo 20 Pvc|CodOOOAr
- u - o : O
__
Cacciavite croce 10C
- a - c : e
__
Plafoniera 2X36 IP65
- l - f :
__
Lampada|LEDR|Lampada
- a - p : m
__
Porta Maserati Dx 1
- o - t : D
__
Plafoniera 2X36 IP65
- l - f :
__
Filo 1.5 GV|CodArt T
- i - o : A
__
Filo 1.5 GV|CodArt T
- i - o : A
__
Plafoniera 2X36 IP65
- l - f :
__
Tubo 20 Pvc|CodOOOAr
- u - o : O
__
Plafoniera 2X36 IP65
- l - f :
__
Sensore dual|Cod Art
- e - s : d
__
Tubo 20 Pvc|CodOOOAr
- u - o : O
__
Plafoniera 2X36 IP65
- l - f :
__
Plafoniera 2X36 IP65
- l - f :
__
Plafoniera 2X36 IP65
- l - f :
__
Plafoniera 2X36 IP65
- l - f :
__
Plafoniera 2X36 IP65
- l - f :
__
Telecamera Bullet 2.
- e - e : e
__
Ronedella d.6 |Ronde
- o - e : R
__
Ronedella d.6 |Ronde
- o - e : R
__
Cacciavite croce 10C
- a - c : e
__


il codice modificato è il seguente :

Sub CreaText(Lista As List) As String
Dim Txt As String =""
'ListLMA01 = File.ReadList(File.DirRootExternal, "VideoCam12/ListResults10.txt")'''''
For i = 0 To Lista.Size-1

'creo un mini array con tutte le parti della riga esaminata
Dim stringArray() As String = Regex.Split("|",Lista.get(i))
Try

'Txt= Txt & stringArray(11) & CRLF
Txt= Txt & stringArray(0) & stringArray(1) &stringArray(2) &stringArray(3) &stringArray(4) &stringArray(5) & stringArray(6) &stringArray(7) & stringArray(8) & stringArray(9) & stringArray(10) & stringArray(11) & stringArray(12) & stringArray(13) & stringArray(14) & stringArray(15) & stringArray(16) & stringArray(17) & stringArray(18) & stringArray(19) & stringArray(20) & CRLF
Txt= Txt & stringArray(0) & " - " & stringArray(2) & " - " & stringArray(4) & " : " & stringArray(16) & CRLF
Txt= Txt & "____" & CRLF

Catch
Log("Errore nella riga: " & Lista.Get(i))
End Try
Next
Return Txt
End Sub



'ovviamente non si "rompe" vedo porzioni di record ...
 
Last edited:
Top