JavascriptProva

venerdì 6 gennaio 2012

Rimaneggiamo il file

Questo è un modo per sostituire un carattere a un altro...
Banale...
Module Module1
   Sub main()
        Dim variabile As Byte
        FileOpen(1, "C:\Users\Io\Documents\file.txt", OpenMode.Binary)
        Dim n As Integer = 1
        Do Until EOF(1)
            FileGet(1, variabile, n)
            Debug.Print(variabile)
            If variabile = 65 Then
                variabile = 66
                FilePut(1, variabile, n)
            End If
            n = n + 1
        Loop
    End Sub
End Module
Alla fine il file conterrà la sequenza "BBCDEF...", in quanto la A viene sostituita dalla B.

Ripeto, banale.
Il problema è sostituire una parentesi angolare con la sequenza <, perchè lo spazio occupato è diverso.

Nessun commento:

Posta un commento