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 ModuleAlla 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