Read a file line by line: Difference between revisions

Read a file line by line (view source)

153 bytes added , 3 years ago

m

→‎{{header|Pascal}}: assign Outputfile not InputFile as in and output ( copy and paste ) File is binary file Text for Textfiles

Anonymous user

Revision as of 00:45, 31 December 2020 (view source) Thundergnat (talk \| contribs) m (Regularize non-standard header markup) ← Older edit		Revision as of 07:42, 31 December 2020 (view source) rosettacode>Horst.h m (→‎{{header\|Pascal}}: assign Outputfile not InputFile as in and output ( copy and paste ) File is binary file Text for Textfiles) Newer edit →
Line 2,468: =={{header\|Pascal}}== {{Works with\|Free Pascal}} <lang pascal>(* Read a file line by line )▼ Works for text files. "testin.txt" must exist in directory of program and you must have read/write access. No IO-Checks. ▲<lang pascal>( Read a text-file line by line ) program ReadFileByLine; var InputFile,OutputFile: ~~File~~text; TextLine: String; begin Assign(InputFile, '~~c:\~~testin.txt'); Reset(InputFile); Assign(~~InputFile~~OutputFile, '~~c:\~~testout.txt'); Rewrite(~~InputFile~~OutputFile); while not Eof(InputFile) do begin ReadLn(InputFile, TextLine); ( do someting with TextLine *) WriteLn(OutputFile, TextLine) end;