Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Datei zeichenweise einlesen und verändern

Uploader:AdministratorSebastian
Datum/Zeit:18.01.2009 17:23:04

'Beispiel für http://forum.qbasic.at/viewtopic.php?t=6229
DIM Z As STRING
Z=" "
OPEN "Test100.txt" FOR BINARY AS #1
OPEN "Test101.txt" FOR BINARY AS #2
DO UNTIL EOF(1)
    GET #1,,Z
    SELECT CASE Z
    CASE "A": Z = "0"
    CASE "B": Z = "1"
    CASE "C": Z = "2"
    END SELECT
    PUT #2,,Z
LOOP
CLOSE #2
CLOSE #1