6
« on: February 24, 2017, 09:14:06 PM »
Всем добрый вечер. суть проблемы такая
имеем сохраненную в файл страницу, из этого файла нужно удалить все строки которые начинаются с 0x0D (т.е. с интера),
перепробовал почти все, но вместо выбивания интера мы имеем в файлах число 13 (десятичный код интера)
т.е. я не могу указать STRFILTER четко выбрать и убрать все строки которые начинаются с интер (возврат каретки) (перепробовал все коды интера и знаки перед "" [] {} менял кодировки текстового файла от 866 до 1251 и пр.
что делаю не так?
вот код
DEFINE($aaa,1)
$ENTER = 0x0D
start:
TFWrite ("filtrstrok.txt", STRREADLN ("Buffer.txt", $aaa))
$Stroka = STRREADLN ("filtrstrok.txt", $aaa)
$Stroka2 = STRFILTER ($Stroka, " ", 0)
$Stroka2 = STRFILTER ($Stroka, [0x0D], 0)
TFWRITE ("output.txt", $Stroka2)
INC ($aaa, 1)
IF($aaa = $var)
HALT
END_IF
GOTO (start)