12345678910111213141516171819202122 |
- MODULE ReadText;
- IMPORT Tx := Texts, Out;
- VAR T: Tx.Text; S: Tx.Scanner;
- n: INTEGER;
- BEGIN
- NEW(T); Tx.Open(T, 'TEXT.DAT');
- IF T.len >= 0 THEN
- Tx.OpenScanner(S, T, 0);
- Tx.Scan(S);
- Out.Int(S.class, 5); Out.String(' ---> ');
- Out.String(S.s); Out.Ln;
- Tx.Scan(S);
- Out.Int(S.class, 5); Out.String(' ---> ');
- n := S.i; Out.Int(S.i, 0); Out.Ln;
- Tx.Scan(S); INC(n, S.i);
- Out.Int(S.class, 5); Out.String(' ---> ');
- Out.Int(S.i, 0); Out.Ln; Out.Int(n, 20); Out.Ln;
- Tx.Open(T, 'OUT.DAT'); Tx.Close(T)
- ELSE Out.String('Файл не найден.'); Out.Ln
- END
- END ReadText.
|