Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.25;
Скачать: CL | DM;

Вниз

РЕГУЛЯРНЫЕ ВЫРАЖЕНИЯ   Найти похожие ветки 

 
Anat   (2005-08-30 17:47) [0]

Импортировал MS VBScript RegExp 5.5 и получил

VBScript_RegExp_55_tlb.pas

В соде имею

with TRegExp.Create(Self) do
try
Pattern := "<(.*?)>";
IgnoreCase := True;
Global := TRUE;
Multiline := TRUE;
mc := Execute("<p> <o>") as MatchCollection;
for i:=0 to mc.Count-1 do
что-то хочу сделать
finally
mc := nil;
Free;
end;

У меня mc.Count = 1 ( должно быть 2)
? почему


 
Digitman ©   (2005-08-30 17:58) [1]

возьми TRegExpr из

http://www.delphipages.com/edit/count.cfm?ID=1216&E=552

и не мучайся - для приведенного тобой случая он выдает ровно 2 совпадения


 
panov ©   (2005-08-30 18:08) [2]

В теме CAPS LOCK залипла?


 
palva ©   (2005-08-30 20:45) [3]

Не используйте with. Видимо, имеются переменные с тем же именем. Следующий код работает, как надо.

{$APPTYPE CONSOLE}
uses
 Variants, ActiveX, ComObj;  
var
 re, mc: OleVariant;
begin
 CoInitialize(Nil);
 re := CreateOleObject("VBScript.RegExp");
 re.Pattern := "<(.*?)>";
 re.IgnoreCase := True;
 re.Global := True;
 re.Multiline := True;
 mc := re.Execute("<p> <o>");
 WriteLn(mc.Count); // 2
 re := Unassigned;
end.



Страницы: 1 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.024 c
2-1124061849
Saton
2005-08-15 03:24
2005.09.25
Помогите ламеру разобраться!!!!


14-1125502212
БарЛог
2005-08-31 19:30
2005.09.25
Задачки по Си


2-1124013084
Гость22
2005-08-14 13:51
2005.09.25
Есть дата в виде 14.08.2005 Как переделать на 14/08/2005


4-1122454533
Freez
2005-07-27 12:55
2005.09.25
Загрузка процессора


14-1125318987
oldman
2005-08-29 16:36
2005.09.25
Влип, очкарик...