| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Поиск строк в Pas-модуле Delphi [D6, Win95/98]

Dr. Genius ©   (2006-05-05 17:57:00) 

Здравствуйте!

Как можно определить строки в Pas-модуле Delphi? То есть строки, заключенные в апострофы.

---

Dr. Genius   (2006-05-10 09:13:00) [1]

Спасибо! Все работает!

---

Loginov Dmitry   (2006-05-08 16:11:00) [2]

Dr. Genius   (08.05.06 11:21) [8]
Понятия не имкю, как пользоваться TParser'ом.

Вот пример:

procedure TForm1.btnFindAllStringsClick(Sender: TObject);
var
 Parser: TParser;
 Ms: TMemoryStream;
begin
 MemoPascalStrings.Clear;
 Ms := TMemoryStream.Create;
 Memo1.Lines.SaveToStream(Ms);
 Ms.Seek(0, soFromBeginning);
 Parser := TParser.Create(Ms);

 while Parser.Token <> toEOF do
 begin
   if Parser.Token = toString then
     MemoPascalStrings.Lines.Append(Parser.TokenString);
   Parser.NextToken;
 end;

 Parser.Free;
 Ms.Free;
end;

Среди недостатоков этого парсера отмечу, что невозможно вернуться, т.е. начать анализировать текст сначала (каждый раз парсер следует создавать заново). Хотя это скорее всего глюк (т.е. ошибка разработчиков класса).

---

Dr. Genius   (2006-05-08 11:21:00) [3]

Понятия не имкю, как пользоваться TParser'ом.

---

Loginov Dmitry   (2006-05-07 11:53:00) [4]

Dr. Genius   (07.05.06 11:18) [6]
StringConv я не нашел... Может, ссылку

А чем варианты [3] и [5] не устраивают?

---

Dr. Genius   (2006-05-07 11:18:00) [5]

Никак не могу додуматься до алгоритма поиска этих самых строк (заключенных в апострофы). Тут я обнаружил много нюансов:

- надо чтобы пустые строки (такие как ‘’) игнорировались;
- обычные строки (такие как ‘This is some string’) записывались в некую строку;
- также, чтобы корректно находились (и тоже записывались) строки, содержащие в себе апострофы (такие как, ‘I’’m your program’).

Вот до чего я пока додумался, но это еще далеко не то, что мне надо:

for I := 1 to Length (S) do
if (S [I] = '''') and (S [I + 1] <> '''') and (S [I - 1] <> '''') then…;
(S – это строка, куда записывается содержимое PAS-модуля Delphi):

А модуль StringConv я не нашел... Может, ссылку дадите.

---

Leonid Troyanovsky   (2006-05-07 08:18:00) [6]

> atruhin ©   (06.05.06 19:20) [4]

>  Далее ищешь апостроф и дной функцией извлекаешь строку.


Classes.TParser: if Token = toString then TokenString

--
Regards, LVT.

---

atruhin   (2006-05-06 19:20:00) [7]

Для быстрого решения найди сайт Alex Konshin у него выложен модуль StringConv очень полезные функции для парсинга/сборки. Далее ищешь апостроф и дной функцией извлекаешь строку.

---

Loginov Dmitry   (2006-05-05 18:07:00) [8]

Используй класс TParser в модуле Classes

---

TUser   (2006-05-05 18:01:00) [9]

Читай на тему "Конечные автоматы". У тебя будет три входных символа - апостроф, не-апостроф и перевод строки. Состояния - не в строке, в строке, встретили апостроф в строке, нетерминированная строка.

Хорошая книжка - В.В. Мозговой.

---

Dr. Genius   (2006-05-05 17:58:00) [10]

Я имею ввиду, как их (строки) считать в некую строковую переменную.

---

Наверх