Текущий архив: 2004.09.05;
Скачать: CL | DM;

Вниз

Сортировка в 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;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.023 c