Italian RandomAccessFile

Spectre · Apr 2, 2014

Salve....
C'è un modo di "appendere" dei dati in un file usando RandomAccessFile?
O meglio, è possibile aprire il file (esistente ) e scriverci alla fine un valore o altro senza per forza doverlo leggere tutto nel programma e poi inserire il valore?

LucaMs · Apr 2, 2014

Posso anticipare che ricordo i file ad accesso casuale dalle prime versioni del Basic (MS), questi non li ho usati, ma immagino funzionino allo stesso modo, ovvero l'accesso ad un record dovrebbe essere diretto, senza la necessità di leggere tutto il file (gli dò un'occhiatina e ti rispondo meglio )

Altrimenti, puoi usare:
File.OpenOutput(Dir As String, FileName As String, Append As Boolean)

Impostando Append a True, aggiungi testo.

LucaMs · Apr 2, 2014

Sì, infatti funziona più o meno come i file random dei vecchi vb.

Ad esempio, con:
WriteDouble (Value AsDouble, Position AsLong)
scrivi un valore Double nella posizione che passi, ovunque essa sia all'interno del file.

Puoi guardare qui, Wiki

Spectre · Apr 2, 2014

Chiaro... sto facendo delle prove la prima scrittura va bene, pero poi quanto tento di aprire il file per "appendere" dei valori mi dice che non posso scrivere. credo che dipenda dal fatto che uso questo parametro:

B4X:

 raf.Initialize(LogTrackDirToSave,LogTrackTxtToSave, False)

Però in fase di creazione non credo si possa settare a true...

B4X:

Dim raf As RandomAccessFile

    If File.Exists(LogTrackDirToSave,LogTrackTxtToSave)=False  Then
   
        raf.Initialize(LogTrackDirToSave,LogTrackTxtToSave, False)
    Else
        raf.Initialize(LogTrackDirToSave,LogTrackTxtToSave, true)
    End If 

      Dim row(4) As String
   
    row(0) = Npoint
    row(1) = DateTime.Date(DateTime.now) & "-" & DateTime.time(DateTime.Now)
    row(2) = Round2(PointLAT,6)
    row(3) = Round2(PointLON,6)   
 
    raf.WriteObject(row, False, raf.CurrentPosition)
    raf.Close

LucaMs · Apr 2, 2014

come ti ho scritto, non ho usato quella libreria.

La studio insieme a te

Si, il terzo parametro dell'inizializzazione è giustissimo, non puoi settarlo a readonly.

Suppongo (non ho provato) che il CurrentPosition venga sì aggiornato automaticamente, ma il primo record?

Evidentemente CurrentPosition non è readonly e dovresti impostarlo tu a 0 (oppure a 1?), per il primo record.

Però: tu controlli se il file esiste e se non è così, lo crei con False... se invece esiste, lo apri con True, cioè a sola lettura?

Spectre · Apr 2, 2014

Ciao... se tenti di creare il file con attributo "True" ti da un errore, quindi per forza sei costretto a crearlo come false...
Sto provando e leggendo wiki... ma non capisco bene... CurrentPosition è come dici tu...

LucaMs · Apr 2, 2014

Credo che probabilmente quando usi Initialize il file venga creato automaticamente, se non esiste.

Quindi, prova ad usare semplicemente:

raf.Initialize(LogTrackDirToSave,LogTrackTxtToSave, False)

e poi scrivi il primo record, senza nemmeno impostare la CurrentPosition
(prima del Close, usa un Flush, per sicurezza, semmai rimanesse un buffer con dei dati)

Spectre · Apr 2, 2014

Provo ... ma mia sa che.... vediamo se Erel ci legge... ahahah

LucaMs · Apr 2, 2014

Non credo ci legga.

Finalmente ho completato il codice che stavo preparando.

Magari ceno (!) e poi provo a darti una mano, se non funziona.

Spectre · Apr 2, 2014

azz... se era vb.net... avevo già finito.... ahhaha
Mi da sempre errore o in creazione, file non esiste (parametro true) o in scrittura, che non posso scrivere...
PS non puoi non usare "current position".

se non risolvo cosi scriverò un csv e poi ogni x minuti lo carico in una list e lo riscrivo.
In gergo automazione industriale "faccio una porchetta"...

ho paura però che per log molto lunghi la memoria inizierà a scarseggiare...
Si parla di loggare delle posizioni gps ogni 10 sec magari per una giornata intera.

Spectre · Apr 2, 2014

Ciao alla fine ho fatto cosi... perché sto random ma rotto...
Credo di poter togliere anche il file Exists...
Con il true predispongo il file per "appendere" alla fine le linee...
Certo il random aveva il "compressed" ma per ora faccio cosi.

B4X:

Sub SaveTableToCSVArray(Npoint As Long, PointLAT As Double , PointLON As Double)
Dim tw As TextWriter

    If File.Exists(LogTrackDirToSave, "/" & LogTrackTxtToSave)=False  Then
        tw.Initialize(File.OpenOutput(LogTrackDirToSave,"/" & LogTrackTxtToSave, True))  
    Else
        tw.Initialize(File.OpenOutput(LogTrackDirToSave,"/" & LogTrackTxtToSave, True))
    End If
    
    tw.WriteLine(Npoint & ";" &  DateTime.Date(DateTime.now) & ";" & DateTime.time(DateTime.Now) & ";" & Round2(PointLAT,7) & ";" & Round2(PointLON,7))
    tw.Close

End Sub

LucaMs · Apr 2, 2014

Beh, una soluzione l'hai trovata.

Ma io un'occhiata a quei random gliela darò, mica possono vincere loro

LucaMs · Apr 3, 2014

Allora...

come immaginavo, con l'inizializzazione il file viene creato, se non esiste.
Ho trovato sul sito quest'esempio che funziona.

Italian RandomAccessFile

Spectre

Active Member

LucaMs

Expert

LucaMs

Expert

Spectre

Active Member

LucaMs

Expert

Spectre

Active Member

LucaMs

Expert

Spectre

Active Member

LucaMs

Expert

Spectre

Active Member

Spectre

Active Member

LucaMs

Expert

LucaMs

Expert

Attachments

Similar Threads

Italian RandomAccessFile

Active Member

Expert

Expert

Active Member

Expert

Active Member

Expert

Active Member

Expert

Active Member

Active Member

Expert

Expert

Attachments

Similar Threads

Privacy & Transparency

Privacy & Transparency