3 svar · 199 visningar · startad av PsyDonia
Hur göt man för att öppna en fil och ändra just den fjärde byten i en fil t.ex.
Nån som förstår vad jag menar.
Det jag vill göra är att.
Öppna en fil.
Leta reda på vilket som är byte 4 sen sen ersätta den men något annat.
Har funderat lite kan man göra något sånt här kanske.
Dim strReplace
strReplace = "G"
Open "Finamnet" For Binary As #1
Seek #1, 4
Put #1, , strReplace
Close #1
Får testa elller nån som kanske vet.
Har testat nu men funkar inte som planerat
Kan tänka mig att ditt problem beror på att du försöker skriva ner en variant. Om du dekalarerar den som byte så borde det gå bättre:
Dim bReplace As Byte, lFree As Long
lFree = FreeFile
bReplace = Asc("G")
Open "Filnamnet" For Binary As #lFree
Seek #lFree, 4
Put #lFree, , bReplace
Close #lFree
Ett annat tips: Använd aldrig explicita filnummer. Om du låter Windows sköta det via FreeFile så slipper du alla problem.
Löste det på ett väldigt krångligt Glömde visst att deklarera den som byte.
ok ska tänka på det tipset.
tack ska testa.
Funkade..