Сортировка в RTF-файле

← →
Diman (2004-08-17 11:19) [0]

Есть RTF-файл.Нужно выбрать строки с цифрами в отдельный массив.
Пример RTF-файла:
йцукннегшшщ
кегнегшшгшг
123 456 458 523
258 741 963 965
125 789 845
ьтиммсмчяэ
кегнгщшзззлрап
Помогите пожалуйста!!!

← →
Anatoly Podgoretsky © (2004-08-17 11:30) [1]

В RTF это будет тяжело, придется сообственный парсинг писать. Проще взять из RichEdit

← →
Diman (2004-08-17 11:35) [2]

Согласен, я записал RTF-файл в RichEdit:
RE.Lines.LoadFromFile(edit1.Text)
А дальше - стопор...

← →
Anatoly Podgoretsky © (2004-08-17 11:45) [3]

А дальше построчная разборка, по твоим правилам.

← →
Diman (2004-08-17 11:51) [4]

Вот в построчной разборке не могу разобраться..
Условие есть: 1-й символ, исключая пробелы, должен быть Числом, вот из таких строк мне нужен массив. Заклинило и все тут..
Надеюсь на Вашу помощь - Мастера!

← →
Семен Сорокин © (2004-08-17 11:57) [5]

var _i, _j : integerl _str: string; _ok : boolean; for _i := 0 to RichEdit.Lines.Count-1 do begin _str := RichEdit.Lines[_i]; _ok := true; for _j := 1 to Length(_str) do if not (_str[_j] in [" ", "0".."9"]) then begin // строка не подходит _ok := false; Break end; if _ok then // Добавляем _str в массив end;

S[1] in [0..9]

← →
Diman (2004-08-17 12:33) [7]

В строке for _j := 1 to Length(_str) do
пишет ошибку
[Error] rtf1.pas(61): Missing operator or semicolon
а в предпоследнем end;
_ok := false;
Break
end;
ошибку:
[Error] rtf1.pas(68): Incompatible types: "Integer" and "procedure, untyped pointer or untyped parameter"

← →
Diman (2004-08-17 12:39) [8]

Получилось! Спасибо большое!

Сортировка в RTF-файле Найти похожие ветки