Italian edit file per modificare una riga

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

    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

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

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

'==============================================================================================
    '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
    '=============================================================================================