Italian Stampare una List (ListView)

Discussion in 'Italian Forum' started by RobyLaga, Mar 14, 2019 at 1:42 PM.

Tags:
  1. 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 **
     
  2. 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 **
     
  3. Star-Dust

    Star-Dust Expert Licensed 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
     
  4. 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". .
     
  5. RobyLaga

    RobyLaga Member Licensed User

    questo è il file completo di tutti i record
     

    Attached Files:

  6. RobyLaga

    RobyLaga Member Licensed User

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

    Star-Dust Expert Licensed User

    L'App la puoi mandare in privato. Zippi la cartella e la alleghi in una conversazione privata
     
    RobyLaga likes this.
  8. Star-Dust

    Star-Dust Expert Licensed User

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

    correggi così:
    Code:
    Sub CreaText(Lista As ListAs 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: Mar 14, 2019 at 10:17 PM
    RobyLaga likes this.
  9. RobyLaga

    RobyLaga Member Licensed User

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

    Star-Dust Expert Licensed User

    Offre la casa ;)

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

    RobyLaga Member Licensed User

    Non riesco a capire come condividere un file ... in Privato ... e nemmeno in pubblico
     
  12. 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: Mar 15, 2019 at 8:41 PM
  13. GIS

    GIS Active Member Licensed User

    Code:
    Dim stringArray() As String = Regex.Split("\|",Lista.get(i))
    metti la barra....
     
  14. RobyLaga

    RobyLaga Member Licensed User

    si "rompe" ... :(
     
  15. GIS

    GIS Active Member Licensed User

    cosa intendi?
    adesso il tuo problema qual'è? vedi porzioni di file, cioe non estrai il record o solo certi campi?
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice