1 2 3 4 5 6 7 8 9 10 11 12 13 14 | CLSOPEN "input.txt" FOR INPUT AS #1OPEN "output.txt" FOR OUTPUT AS #2DO WHILE NOT EOF(1) LINE INPUT #1, a$ FOR i = 1 TO LEN(a$) b$ = MID$(a$, i, 1) IF (ASC(b$) >= 65 AND ASC(b$) <= 90) OR (ASC(b$) >= 128 AND ASC(b$) <= 143) THEN MID$(a$, i, 1) = CHR$(ASC(b$) + 32) IF ASC(b$) >= 144 AND ASC(b$) <= 159 THEN MID$(a$, i, 1) = CHR$(ASC(b$) + 80) NEXT PRINT a$ PRINT #2, a$LOOPCLOSE |
Тестирование выполнено в программе QB64 ( Скачать )