In linea di massima si fa cosi'
PRIVATE SUB Recuperocsv()
DIM f AS String
DIM rec AS String[]
DIM s AS String[]
f = File.Load("path_tuo_file.csv")
rec = Split(f, "/n", "", TRUE) 'Split dell'intero file dove trova un ritorno a capo
FOR EACH f IN rec
s = Split(f, ";")
' In questa parte di codice fai in modo di inserire i dati nella tua GridView
NEXT
END
L'unica cosa e' che devi fare attenzione a non inserire nel file csv, tipo delle descrizioni con il ritorno a capo, altrimenti la variabile rec ti viene sfalsata.
ho provato a fare questo
PUBLIC SUB Form_Open()
DIM f AS String
DIM rec AS String[]
DIM s AS String[]
DIM i AS Integer = 0
DIM j AS Integer = 0
f = File.Load("/home/matteo/Scrivania/Gestionale/CAMIGest/Archivio Cassa/2genn.csv")
rec = Split(f, "/n", "", TRUE) 'Split dell'intero file dove trova un ritorno a capo
GridView1.mode = Select.Multiple
GridView1.Columns.Count = 4
GridView1.Rows.Count = rec.Count
FOR EACH f IN rec
s = Split(f, ";")
TextArea1.Text = s[j]
GridView1[i, 0].Text = s[j]
INC j
GridView1[i, 1].Text = s[j]
INC j
GridView1[i, 2].Text = s[j]
INC j
GridView1[i, 3].Text = s[j]
INC j
INC i
' In questa parte di codice fai in modo di inserire i dati nella tua GridView
NEXT
END
ma mi da out of bounds alla riga
GridView1[i, 1].Text = s[j]
Preciso che lo slash si mette prima delle virgolette altrimenti non ne verrai mai a capo.
Per quanto riguarda lo split devi sapere che quando splitti una parola ottieni un array di stringhe divise secondo il carattere da te deciso...
Immagina di avere la stringa:
"quanto;è antipatico;fsurfing"
Se usi lo split con il carattere ; otterrai un array di tre elementi dove, nel nostro caso, l'elemento 0 (ovvero il primo) è dato da "quanto", l'elemento 1 (il secondo) da "è antipatico" e il terzo o elemento 2 da "fsurfing"
In questo modo se immaginiamo di chiamare la stringa di prima $Stringa, darai, ad esempio:
PRINT Split($Stringa, ";")[1]
e il terminale ti restituirà l'elemento 1, ovvero "è antipatico"
Con tale sistema puoi separare l'id dal prezzo moto facilmente....
mi scoppia la testa.
f = File.Load("/home/matteo/Scrivania/Gestionale/CAMIGest/Archivio Cassa/6 aprile.csv")
ff = Replace$(f, "/n", ";")
rec = Split(ff, ";", "", TRUE)
TextArea1.text = ff
nella text area che ci metta f oppure ff non cambia nulla non ne vado più fuori
comunque funziona sia con
ff = Replace$(f, "\n", ";")
rec = Split(ff, ";", "", TRUE)
sia con
rec = Split(f, ";\n", "", TRUE)