Italian edit file per modificare una riga

[tmtube73]

buongiorno a tutti, ho creato un file txt con 2 righe

anno
numero

esempio contenuto
2022
72

sapete dirmi come aprire il file incrementare il 72 e salvare il file?
grazie.

 

[Gianni M]

Con lo stesso modo con cui hai creato il file ???

 

[tmtube73]

no aspetta un attimo

'creo il file contatore

        ScriviTxt.Initialize(File.OpenOutput(File.DirInternal, "contatore.txt", True))
        ScriviTxt.WriteLine(year & CRLF & "0" & CRLF)
        ScriviTxt.Close

leggo il file contatore

    Dim strLinea As String
    dim contatore as long
    LeggiTxt.Initialize(File.OpenInput(File.DirInternal, "contatore.txt"))
    strLinea = LeggiTxt.ReadLine
    strLinea = LeggiTxt.ReadLine
    contatore = strLinea
    LeggiTxt.Close

io devo leggere il valore del contatore e poi inserire un numero in più
mi stai dicendo che devo prima leggere il valore del contatore poi incrementare una variabile e poi scrivere la variabile nel file contatore.txt?
non c'è un apertura in modalità edit del file diretta che legge modifica e salva ?

 

[tmtube73]

per incrementare il contatore devo fare qualcosa di questo tipo?

If File.Exists(File.Dirinternal,"contatore.txt") Then
        Dim strLinea As String
        Dim incrementa As Long
        Dim annoletto As Long

        LeggiTxt.Initialize(File.OpenInput(File.DirInternal, "contatore.txt"))
        strLinea = LeggiTxt.ReadLine
        annoletto=strLinea
        strLinea = LeggiTxt.ReadLine
        incrementa=strLinea+1           

        'creo il file contatore
        ScriviTxt.Initialize(File.OpenOutput(File.DirInternal, "contatore.txt", True))
        ScriviTxt.WriteLine(annoletto & CRLF & incrementa & CRLF)
        ScriviTxt.Close
        
End If

????

 

[Xfood]

Io salverei e leggerei una mappa

 

[LucaMs]

Io salverei e leggerei una mappa

Meglio ancora un KeyValueStore (così non devi leggere e scrivere l'intera Map ogni volta che aggiorni).

 

[tmtube73]

avete qualche esempio da mostrarmi dei due metodi?

 

[LucaMs]

avete qualche esempio da mostrarmi dei due metodi?

https://www.b4x.com/android/forum/threads/b4x-kvs-keyvaluestore-library.120234/

 

[Xfood]

avete qualche esempio da mostrarmi dei due metodi?

questo e' il metodo che utilizzo io

'===================================================================================

'==============================================================================================
    'Gestione File Ini / Mappa
    If File.Exists(File.Dirinternal,"contatore.txt") Then
        Dim strLinea As String
        Dim incrementa As Long
        Dim annoletto As Long
       Dim Fileini As Map
      Fileini=File.Readmap(File.Dirinternal,"contatore.txt")
     
        annoletto=MyMap.Get("annoletto")
       strLinea = MyMap.Get("strLinea")
        incrementa=strLinea+1           
        File.WriteMap(File.Dirinternal,"contatore.txt",Fileini)

    'Fine gestione file ini
    '=============================================================================================