Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÔÚdelphiÖÐʹÓÃPerlRegExµÄÎÊÌâ

´úÂëÈçÏ£º
Delphi(Pascal) code:

for i := 0 to 49 do
begin
reg.Subject := List[i];
reg.RegEx := '"';
reg.Replacement := '';
reg.ReplaceAll;
end;



Òò³ÌÐòÐèÒª£¬ÎÒÏëÌæ»»ListÕâ¸öÊý×éÖÐËùÓÐÔªËØµÄË«ÒýºÅ¡£µ«ÊÇreg.SubjectʼÖÕ¶¼ÊÇList[0]µÄÖµ£¬ÇëÎÊÊÇʲôԭÒòÄØ£¿


Ôõôû¿´µ½°Ñreg.subject¸üе½listÀï

for i := 0 to 49 do
  begin
    reg.Subject := List[i];
    reg.RegEx := '"';
    reg.Replacement := '';
    reg.ReplaceAll;
    List[i]:= reg.Subject;          // <- ¸üÐÂ
    label1.caption:= inttostr(i);  // <- ²âÊÔÑ­»·
  end;

¾ßÌå´úÂëÈçÏ£º

Delphi(Pascal) code:

procedure GetList();
var
MyStr:String;
reg: TPerlRegEx;
regs: TPerlRegEx;
regd: TPerlRegEx;
regss: TPerlRegEx;
List: TStrings;
Lists: TStrings;
i: Integer;
begin
reg := TPerlRegEx.Create(nil);
regs := TPerlRegEx.Create(nil);
regd := TPerlRegEx.Create(nil);
regss := TPerlRegEx.Create(nil);
List := TStringList.Create;
Lists := TStringList.Create;
//MyStrÊÇÒ»¸öÍøÒ³Àï


Ïà¹ØÎÊ´ð£º

VC++ ÖеÄ&·ûºÅ ¶ÔÓ¦µÄÊÇDelphiÖеÄÄĸö·ûºÅ£¿£¿

VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿

´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......

DelphiÔõôȡ·µ»ØÄÚÈÝÖеÄÖ¸¶¨²¿·Ö.

·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......

°²×°ÁËjre6.17ºó£¬Delphi²»Äܹرգ¿

ÈçÌ⣬ µã»÷DelphiµÄFile²Ëµ¥µÄExitÍ˳öDelphi£¬ Delphi²¿·Ö¹Ø±Õ--¼´²»ÄÜÔÙ²Ù×÷Delphi£¬µ«ÈÎÎñÀ¸ºÍ½ø³ÌÀDelphi»¹ÔÚÔËÐУ¬Ã»ÓÐÕæÕýµÄÍ˳ö¡£ÊDz»Êǰ²×°ÁËjre¸Ä±äÁËijЩ»·¾³±äÁ¿µ¼Ö£¬ÇëÎʸßÊÖÈçºÎ½â¾ö£¿ ×¢£ºÃ»°²×° ......

Delphi½øÏú´æÅ̵ãά»¤ ÅÌÓ¯¿÷¹¦ÄÜ

ÏëÇëÎʸ÷λ£ºÅ̵ãά»¤ÀïÃæ£ºÅÌÓ¯¿÷ÊýÁ¿=¿â´æÊýÁ¿+Èë¿âÊýÁ¿-³ö¿âÊýÁ¿£¬ÕâÑù×öÊǶԵÄÂð£¬

Â¥ÉÏÕý½â,ÕýÊýÅÌÓ¯ ¸ºÊýÅÌ¿÷

һ¥ÕýÈ·£¡

лл¸÷λÀ²

¾ÍÊÇ£ºÊDz»ÊÇ Êµ¼Ê¿â´æÀïµÄ¿â´æÁ¿ ÓëÄãÊÖ¶¯Êä½øÈ¥µÄÊýÁ¿Ö®¼äµ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ