Italian Stampare una List (ListView)

RobyLaga

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

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

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

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

RobyLaga

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

Attachments

  • ListResults10.txt
    2.7 KB · Views: 265
  • ListResults10.txt
    2.7 KB · Views: 287
RobyLaga

RobyLaga

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

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

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

RobyLaga

Member
Licensed User
Star-Dust said:
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
Click to expand...

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

Star-Dust

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

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

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:
You must log in or register to reply here.

Similar Threads

T
Italian Lista conn più colonne
Replies
7
Views
455
Sagenut
Sagenut
T
  • Question
Spanish lista con più colonne
Replies
1
Views
405
Sagenut
Sagenut
3
Italian rimuovere elementi specifici da una list
Replies
7
Views
1K
Sagenut
Sagenut
J
Spanish Enviar una list como json
Replies
6
Views
3K
drgottjr
drgottjr
rscheel
Spanish [B4A] Generar una lista v0.2, Librerías (CustomListView, CardView, AHSwipeToRefresh)
Replies
1
Views
5K
rscheel
rscheel
Top