Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

Diman (2004-08-17 12:39:00) [1]
Получилось! Спасибо большое!

Diman (2004-08-17 12:33:00) [2]
В строке 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'

Anatoly Podgoretsky (2004-08-17 12:12:00) [3]
S[1] in [0..9]

Семен Сорокин (2004-08-17 11:57:00) [4]
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;

Diman (2004-08-17 11:51:00) [5]
Вот в построчной разборке не могу разобраться..
Условие есть: 1-й символ, исключая пробелы, должен быть Числом, вот из таких строк мне нужен массив. Заклинило и все тут..
Надеюсь на Вашу помощь - Мастера!

Anatoly Podgoretsky (2004-08-17 11:45:00) [6]
А дальше построчная разборка, по твоим правилам.

Diman (2004-08-17 11:35:00) [7]
Согласен, я записал RTF-файл в RichEdit:
RE.Lines.LoadFromFile(edit1.Text)
А дальше - стопор...

Anatoly Podgoretsky (2004-08-17 11:30:00) [8]
В RTF это будет тяжело, придется сообственный парсинг писать. Проще взять из RichEdit

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »