Oregon ho risolto ^_^
Imports System
Imports System.IO
Imports System.Text
Dim myFile As IO.FileStream
Dim Lettura As String
myFile = New IO.FileStream("slot0.sav", IO.FileMode.Open, IO.FileAccess.Read)
myFile.Seek(LaPosizioneCheMiServe, 0)
Lettura = myFile.ReadByte
MsgBox(Lettura)
Praticamente con Seek si posiziona al punto che so io, e con ReadByte mi da la cifra che normalmente cambio usando quell'editor HxD che me li mostra esadecimali
Poi per salvare il file col valore cambiato
myFile = New IO.FileStream("slot0.txt", IO.FileMode.Open, IO.FileAccess.Write)
myFile.Seek(LaPosizioneCheMiServe, 0)
Dim bteWrite As Byte = LaNuovaCifraSceltaDaMe
myFile.WriteByte(bteWrite)
Funziona Benissimo
GRAZIE PER LA PAZIENZA OREGON![]()
![]()
![]()


Rispondi quotando
