Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [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