Italian estrarre singoli record da una lista

Star-Dust

Expert
Licensed User
Longtime User
mi sono accorto che non memorizza con INVIO

Memorizzo record:
lst.add (t_codice.text & "|" & t_descr.Text &"|"  &  t_prezzo.Text & Chr(13) & Chr(10))
   
    ModMyutils.WriteListForWindows(dir, filename, lst)

quindi quando vado a leggere i record non me li suddivide
scusate ma da autodidatta ci metto tanta testa ma la logica di b4a è un pò diversa da vb6 (imparato sempre da autodidatta)

@Star-Dust scusa ma a volte quando si è concentrati su cose che non conosci potresti anche non capire lo spirito dei commenti ...

grazie ancora
Non devi inserire invio. Quando salvi la lista automaticamente inserisce il fine riga CRLF, che sarebbe il Chr(10)

Nella lettura automaticamente li divide in base al CRLF
 

lelelor

Member
Licensed User
Non devi inserire invio. Quando salvi la lista automaticamente inserisce il fine riga CRLF, che sarebbe il Chr(10)

Nella lettura automaticamente li divide in base al CRLF
grazie !

non mi inserisce il CRLF trovo tutto su di una riga sola...

1654519860390.png
 
Last edited:

Star-Dust

Expert
Licensed User
Longtime User
Per salvare la lista usa questo
B4X:
File.WriteList(Path, FileName, myList)

Per leggere
B4X:
MyList = file.ReadList(Path,FileName)
 

Filippo

Expert
Licensed User
Longtime User
Per salvare la lista usa questo
B4X:
File.WriteList(Path, FileName, myList)

Per leggere
B4X:
MyList = file.ReadList(Path,FileName)
Questo metodo è buono, ma questo qui sotto è ancora migliore.
In questo modo, quando rileggi la List, ottieni la lista esattamente come l'hai creata.
B4X:
Public Sub WriteListAsBytes(dir As String, filename As String, lst As List)
    Dim ser As B4XSerializator
    File.WriteBytes(dir, filename, ser.ConvertObjectToBytes(lst))
End Sub

Public Sub ReadBytesAsList(dir As String, filename As String) As List
    Dim ser As B4XSerializator
    Return ser.ConvertBytesToObject(File.ReadBytes(dir, filename))
End Sub
 
Top