PASCAL - Datei öffnen

Computer: Software & Programmierung Programmierung allgemein
#1

Wie kann ich mit PASCAL eine Datei öffnen und mir sie anzeigen lassen, aber nur in Nullen und Einsen!!! Und wie kann ich alle Zeichen zählen lassen?

Wer weiss was??

MfG neRo

#2

hmh…ich denke du redest von einer binären Datei. Wie sind den eine Kriterieren für „Nullen und Einsen“ ? Alles was grösser ist als 0 wird als 1 interpretiert oder wie ? Du weisst, dass eine solche Datei pro Zeichen (char/byte) Werte von 0…255 darstellt…

Die Procs sind Reset, BlockRead, FileSize, Close

#3

Hi Nero,

so gehts!

Gruß
Ted

program nero;

const file1='C:\TEMP\TEST.TXT';
var f:file of byte;
 buffer,maske,i:byte;
 anzahl:longint;

begin
 anzahl:=0;
 {Datei öffnen}
 assign(f,file1);
 reset(f);
 while (not eof(f)) do
 begin
 read(f,buffer);
 anzahl:=anzahl+1;
 maske:=128;
 for i:=1 to 8 do
 begin
 if ((buffer and maske) = maske) then write('1')
 else write('0');
 maske:=maske div 2;
 end;
 writeln;
 end;
 close(f);
 writeln;
 writeln('Die Datei enthält ',anzahl,' Zeichen.');
 readln;
end.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]