Поиск строк в Pas-модуле Delphi

← →
Dr. Genius (2006-05-05 17:57) [0]

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

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

← →
Dr. Genius (2006-05-05 17:58) [1]

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

← →
TUser © (2006-05-05 18:01) [2]

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

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

← →
Loginov Dmitry © (2006-05-05 18:07) [3]

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

← →
atruhin © (2006-05-06 19:20) [4]

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

← →
Leonid Troyanovsky © (2006-05-07 08:18) [5]

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

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

Classes.TParser: if Token = toString then TokenString

--
Regards, LVT.

← →
Dr. Genius (2006-05-07 11:18) [6]

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

- надо чтобы пустые строки (такие как ‘’) игнорировались;
- обычные строки (такие как ‘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 я не нашел... Может, ссылку дадите.

← →
Loginov Dmitry © (2006-05-07 11:53) [7]

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

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

← →
Dr. Genius (2006-05-08 11:21) [8]

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

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-10 09:13) [10]

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

Поиск строк в Pas-модуле Delphi Найти похожие ветки