Задание 7.05. Перекодировка текстов из MS-DOS в Windows
Составить программу перекодировки текстового файла, подготовленного редактором MS-DOS, в кодовую страницу 1251 для Windows. Следует попытаться, по возможности сохранить вид таблиц, сформированных с помощью символов псевдографики.
Совет 1 (общий)
Совет 2 (общий)
Совет 3 (общий)
Совет 4 (Си, Паскаль)
Программа 7_05.bas
DECLARE SUB TOWIN(T01251() AS INTEGER)
DIM T0125K256) AS INTEGER
INPUT "Задайте имя файла - ",SOURCE$
TOWIN T01251()
OPEN SOURCE$ FOR INPUT AS #1
OPEN "TMPWIN.TXT" FOR OUTPUT AS #2
DO WHILE NOT EOF(l)
LINE INPUT #1, A$
FOR J=l TO LEN(A$)
MID$ (A$, J, 1) =CHR$ (T01251 (ASC (MID$ (A$, J, 1) ) ) )
NEXT J
PRINT #2, A$
LOOP
CLOSE 1,2
END
SUB TOWIN(T012510 AS INTEGER)
' Сохраняем первую половину таблицы ASCII
FOR J=0 TO 127: T01251(J)=J: NEXT J
' Увеличиваем на 64 коды букв от "А" до "n"