ÔÚ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ÊÇÒ»¸öÍøÒ³Àï
Ïà¹ØÎÊ´ð£º
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
ÎÒÔÚ³ö¿â´°¿ÚдÁ˸ö·½·¨£ºADOQueryBill µÄbNum ×ֶεÄOnValidate·½·¨ ʵÏÖµÄÊdzö¿âÊýÁ¿²»ÄÜ´óÓÚÈë¿âµÄÊýÁ¿£¬·ñÔò¾ÍÖØÐÂÊäÈëÊýÁ¿£¬ÒÔÏÂÊÇÎҵĴúÂ룺
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......
´íÎóÀàÐÍ£º³ö´íÎó³¢ÊÔ¶ÁÈ¡»òдÈëÊܱ£»¤µÄÄÚ´æ¡£Õâͨ³£Ö¸Ê¾ÆäËûÄÚ´æÒÑË𻵡£
C#Ô´Âë
[DllImport("Base64.dll")]
public static extern string Base64ToStr(string Base64);
protected void Page_Load(o ......