Probleme mit Readfile... :(
Übersicht
BlitzBasic Beginners-Corner
ProtoBetreff: Probleme mit Readfile... :( |
 Do, Mai 18, 2006 21:05Antworten mit Zitat 
|
|
|---|---|---|
|
Hallo,Ich habe versucht meinem Programm eine Read&Write Funktion zu verpassen um die Umwandlund zu erleichtern. Jedoch klappt es nicht ganz...
;Function P1 to P2 .P1toP2 ;Lesen des Gameshark Codes code$= ReadFile ("code.txt") ; Code Replace code$=Replace$(code$,"D106B454","D106B5D4") code$=Replace$(code$,"D106B456","D106B5D6") code$=Replace$(code$,"8106B46","8106B5E") code$=Replace$(code$,"D106B514","D106B694") ; Erstellen des Umgewandelten Codes stream = WriteFile ("converted code.txt") WriteString (stream, code$) Könnte bitte jemand sagen was ich falsch mache? |
||
|
Cardonic |
Do, Mai 18, 2006 21:09 Antworten mit Zitat
|
|---|---|---|
|
Hi
Du must mit ReadLine() noch den Text aus der Datei lesen. Der Befehl ReadFile() öffnet nur die Datei zum lesen. mfg Cardonic |
||
| If you should go skating on the thin ice of modern life, dragging behind you the silent reproach of a million tear-stained eyes, don't be surprised when a crack in the ice appears under your feet. | ||
flohrian |
Do, Mai 18, 2006 21:13 Antworten mit Zitat
|
|
|---|---|---|
|
ReadFile musst du so behandeln wie WriteFile!
BlitzBasic: [AUSKLAPPEN]
|
||
Proto |
Do, Mai 18, 2006 21:20 Antworten mit Zitat
|
|
|---|---|---|
| Ich habe es schon davor probiert aber 1. Es zeigt mir "memory access violation" an und 2. Wie soll es denn die codes scannen? Ich dachte man muss dann code$ als Variable angeben. Die Input möglichkeit funktioniert aber Read&Write wäre viel einfacher und besser. | ||
|
|
Cardonic |
Do, Mai 18, 2006 23:05 Antworten mit Zitat
|
|---|---|---|
|
Hi
Das hier sollte funktionieren: Code: [AUSKLAPPEN] ;Function P1 to P2
.P1toP2 ;Lesen des Gameshark Codes file= ReadFile ("code.txt") code$ = "" While Not Eof(file) code$ = code$ + ReadLine(file) + Chr(13)+Chr(10) Wend CloseFile file code$ = Left(code$,Len(code$)-2) ; Code Replace code$=Replace$(code$,"D106B454","D106B5D4") code$=Replace$(code$,"D106B456","D106B5D6") code$=Replace$(code$,"8106B46","8106B5E") code$=Replace$(code$,"D106B514","D106B694") ; Erstellen des Umgewandelten Codes stream = WriteFile ("converted code.txt") WriteLine (stream, code$) CloseFile stream mfg Cardonic |
||
| If you should go skating on the thin ice of modern life, dragging behind you the silent reproach of a million tear-stained eyes, don't be surprised when a crack in the ice appears under your feet. | ||
Proto |
Fr, Mai 19, 2006 17:40 Antworten mit Zitat
|
|
|---|---|---|
Danke sehr Cardonic 
|
||
Übersicht
BlitzBasic Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group