Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];
Вниз
Сортировка в 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;
← →
Anatoly Podgoretsky © (2004-08-17 12:12) [6]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]Получилось! Спасибо большое!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.033 c
