Italian Doppie Virgolette

[diresc]

Ciao a tutti
Prelevo file .csv da webserver
leggo e li inserisco in list array
poi da list array li inserisco in TABELLA le colonne sono tutti di tipo stringa
il problema è che nel array mi scrivono un valore testo ma tra virgolette es."ricetta1"
nella vista B4XTable1 non visualzza nessun valore(vuoto) come risolvo con replace ma come o?

        For I = 1 To Rows.Length - 1               
                    Dim Values() As String = Regex.Split(",", Rows(I))               
                    Try                                           
                        datax.AddAll(Array(Values))'TUTTI
                    Catch
                        Log(LastException)
                    End Try       
                    ProgressBar1.progress=i /lunghezza*100
                    INDICAZIONE.Text=SERVIZIO.tr17(SERVIZIO.Vx14)& " " &SERVIZIO.tr18(SERVIZIO.Vx14) & " " &  ProgressBar1.progress & " %"           
                    Sleep(0)
                Next
                
                B4XTable1.SetData(datax)

 

[sirjo66]

Nei file CSV, se all'interno di una stringa c'è una virgola, e tu fai Regex.Split(",", Rows(I)) capisci benissimo che quella virgola viene interpretata come un separatore di campo anzichè una virgola dentro nel testo, per cui lo standard CSV prevede che se la stringa contiene una virgola devi racchiuderla tra virgolette.
E se per caso dentro a questa stringa ci dovessere essere le virgolette, si devono raddoppiare
Deduco quindi che a te non è sufficiente utilizzare il Regex.Split(",", Rows(I)) per dividere i vari campi ma devi utilizzare un parser vero e proprio che riesca a decifrare tutto correttamente.
Ce l'avevo da qualche parte, è una regex un po' complicata ma funziona, devo vedere se riesco a trovarla

Nel frattempo dai un occhio qui: https://www.b4x.com/android/forum/threads/b4x-csvparser-csv-parser-and-generator.110901/#content

Edit: prova con queste due:

(?:,|\n|^)("(?:(?:"")*[^"]*)*"|[^",\n]*|(?:\n|$))

^(?:([^",]+))?(?=,)|(?<=,)(?:[^",]*)?(?=[,$])|((?<=")[^"(\s*,)][^"]*(?="))|(?<=")(?=")|(?<=,)(?:[^,"])*(?=$)

 

[LucaMs]

Edit: prova con queste due:

Sembra che nessuna delle due funzioni.
Puoi consolarti col fatto che ho posto la domanda a ChatGPT e mi ha dato più volte espressioni regolari sbagliate

(Progetto di prova allegato)

 

[Sagenut]

Prova questo
*** EDIT ***
Eliminato esempio errato per non creare confusione

 

[LucaMs]

Prova questo

Sì, per eliminare le doppie virgolette dovrebbe funzionare, però la questione sollevata da @sirjo66 è interessante e complicata.
Se hai un testo come:

"ciao ciao",
"credimi, è un problema"

lo split con la virgola come separatore, suddividerà anche la seconda riga:

"credimi,
è un problema"

 

[diresc]

Ecco il problema intanto grazie per le risposte
quando carico il csv che viene scritto da un plc se i valori sono int ,data, orario tutto ok ma quando alcuni valori sono String il plc mi crea Es. "ricetta 1" & spazi per 255 volte
dunque non visualizzo il dato nella colonna B4XTable1 o fatto una prova a riempire spazi con "w" e mi compare
la stringa letta dal csv pieno di "w" a posto degli spazi
riga csv è composta così:
15601,01/18/2012,02:58:26,"RICETTA A" spazi*255 ,120, 50, 70, 60, 120 , 20,
con Replace(" ", $""$) riesco a cancellare spazi e a visualizzare i dati ma "ricetta A" diventa "ricettaA" che faccio?

 

[LucaMs]

Variabile = Variabile.Trim

o anche direttamente (non è il tuo caso):

"RICETTA A ".Trim

P.S. il forum li elimina, non posso scriverli

 

[Sagenut]

Sì, per eliminare le doppie virgolette dovrebbe funzionare, però la questione sollevata da @sirjo66 è interessante e complicata.
Se hai un testo come:

"ciao ciao",
"credimi, è un problema"

lo split con la virgola come separatore, suddividerà anche la seconda riga:

"credimi,
è un problema"

Mi ero perso un pezzo, elimino il consiglio errato.

 

[LucaMs]

Mi ero perso un pezzo, elimino il consiglio errato.

No, non è errato, la questione di @sirjo66 era "extra"
Aggiungi il Trim e basta.

 

[LucaMs]

Questa funziona (pattern generato da ChatGPT):

Private Sub Split(Text As String) As List
    Dim lstResult As List
    lstResult.Initialize
 
    Dim Matcher1 As Matcher
    Dim Pattern As String
    Pattern = $"\"([^\"]*?)\"|([^\",]+)"$
    Matcher1 = Regex.Matcher(Pattern, Text)
    Dim Block As String
    Do While Matcher1.Find
        Block = Matcher1.Match.Trim.Replace("""", "")
        lstResult.Add(Block)
    Loop
 
    Return lstResult
End Sub

Per semplicità gli ho fatto restituire una List anziché un array (non esiste il comando Redim, in B4J).
Si può modificare, facendogli prima contare le "occorrenze" e poi dimesionare l'array che dovrebbe restituire (e riempirlo, ovviamente).

(progetto di prova allegato)

 

[LucaMs]

Per semplicità gli ho fatto restituire una List anziché un array (non esiste il comando Redim, in B4J).
Si può modificare, facendogli prima contare le "occorrenze" e poi dimesionare l'array che dovrebbe restituire (e riempirlo, ovviamente).

Private Sub SplitAsList(Text As String) As List
    Dim lstResult As List
    lstResult.Initialize
    
    Dim Matcher1 As Matcher
    Dim Pattern As String
    Pattern = $"\"([^\"]*?)\"|([^\",]+)"$
    Matcher1 = Regex.Matcher(Pattern, Text)
    Dim Block As String
    Do While Matcher1.Find
        Block = Matcher1.Match.Trim.Replace("""", "")
        lstResult.Add(Block)
    Loop
    
    Return lstResult
End Sub

Private Sub SplitAsArray(Text As String) As String()
    Dim Matcher1 As Matcher
    Dim Pattern As String
    Pattern = $"\"([^\"]*?)\"|([^\",]+)"$

    Dim Block As String
    
    Dim Counter As Int
    Matcher1 = Regex.Matcher(Pattern, Text)
    Do While Matcher1.Find
        Counter = Counter + 1
        Block = Matcher1.Match
    Loop
    Dim Result(Counter) As String

    Matcher1 = Regex.Matcher(Pattern, Text)
    Dim I As Int = 0
    Do While Matcher1.Find
        Block = Matcher1.Match.Trim.Replace("""", "")
        Result(I) = Block
        I = I + 1
    Loop
    
    Return Result
End Sub

 

[udg]

Scrivo da smartphone (cellulare potrebbe suonare ambiguo..hehe).
Se vuoi eliminare solo i 255 spazi consecutivi potresti provare a mettere come stringa da cercare una sequenza di 5 spazi o ogni multiplo per cui 255 risulti divisibile.

 

[diresc]

Ciao LucaMs come dovrei usare le tue funzioni con il mio codice?

For I = 1 To Rows.Length - 1
Dim Values() As String = Regex.Split(",", Rows(I))
Try
datax.AddAll(Array(Values))'TUTTI
Catch
Log(LastException)
End Try
ProgressBar1.progress=i /lunghezza*100
INDICAZIONE.Text=SERVIZIO.tr17(SERVIZIO.Vx14)& " " &SERVIZIO.tr18(SERVIZIO.Vx14) & " " & ProgressBar1.progress & " %"
Sleep(0)
Next

B4XTable1.SetData(datax)

 

[diresc]

Dimenticavo io uso :
datax.AddAll(Array(Values))
perchè le colonne possono essere da 1 a 30 o di più

 

[diresc]

Se io scrivessi:
datax.Add(Array(Values(0).trim, Values(1).trim, Values(2).trim,Values(3).Trim, Values(4).Trim, Values(5).Trim, Values(6).Trim, Values(7).Trim))'SINGOLI
funziona ma non sò quante colonne ci sono

 

[diresc]

    Dim result As String = Job.GetString
                Dim Rows() As String = Regex.Split(CRLF, result)
                ' Aggiungo le intestazioni alla griglia
                Dim Headers() As String = Regex.Split(",", Rows(0))           
                Dim I As Int
                For I = 0 To Headers.Length - 1               
                    B4XTable1.AddColumn(Headers(I), B4XTable1.COLUMN_TYPE_TEXT)               
                Next
                    ' Aggiungo righe alla griglia   
                For I = 1 To Rows.Length - 1               
                    Dim lstBlocks As List
                    lstBlocks.Initialize               
                    Dim Values() As String = Regex.Split(",", Rows(I))
                    Try 'non mi piace'
                    
                        For ix=0 To  Values.Length-1                   
                            lstBlocks.Add(Values(ix).trim)'elinmino spazi
                        Next
                        
                        datax.Add(lstBlocks)'TUTTI in datax lista                   
                    Catch
                        Log(LastException)
                    End Try           
                    ProgressBar1.progress=i /lunghezza*100
                    INDICAZIONE.Text=SERVIZIO.tr17(SERVIZIO.Vx14)& " " &SERVIZIO.tr18(SERVIZIO.Vx14) & " " &  ProgressBar1.progress & " %"           
                    Sleep(0)
                                    
                Next
                'fine
                'carico il tutto in  B4XTable1

        B4XTable1.SetData(datax)

 

[sirjo66]

sono riuscito a trovare quello che cercavo

Dim pattern = "(?:,|\n|^)(""(?:(?:"""")*[^""]*)*""|[^"",\n]*|(?:\n|$))"

Fonte: https://forum.html.it/forum/showthread.php?threadid=2978223

 

[LucaMs]

Dim Values() As String = Regex.Split(",", Rows(I))

Sono i valori qui sopra, che aggiungi alla List datax che rappresenta il record nella B4XTable che devi ottenere con la funzione, SplitAsArray.

 

[diresc]

Grazie mille Luca

 

[sirjo66]

ci puoi dare un riga di dati in modo che possiamo fare delle prove ??