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