注册 登陆
浏览模式: 标准 | 列表 Tag: 函数

ASP正则函数 大鸟哥给的好东西

ASP/Visual Basic代码
  1. Function DRexPage(Str)   
  2. Dim RegEx   
  3. If IsNull(Str) Or Str="" Then Exit Function  
  4. Set RegEx=New RegExp   
  5.     RegEx.IgnoreCase=True  
  6.     RegEx.pattern="(\&)?page=(\d)+"  
  7.     DRexPage=regEx.replace(Str,"")  '(Str,"$1")   
  8.     Set RegEx=Nothing  
  9. End Function  

在分页系统里面用到的把page后面得东西都给丢掉

Tags: 正则, 函数, 替换

快速查询PosEx与PosRightEx(转载)

快速查询posexposrightex

http://blog.csdn.net/senfore 

1.PosEx

功能说明:实现正向增强查询,跟FastCodePosEx功能相同,不依赖fastCode;

OffSet为偏移位置,通过测试,速度要比FastCodePosEx稍慢。

function PosEx(const SubStr,S:AnsiString;const Offset:Cardinal=1):Integer;
var
  iPos: Integer;
  i, j,LenS,LenSub: Integer;
  PCharS, PCharSub: PChar;
begin
  Result := 0;
  LenS:=Length(S);
  lenSub := length(Substr);
  if (LenS=0) Or (lenSub=0) then Exit;
  if (LenS-lenSub)<Offset then  Exit;

  PCharS := PChar(s);
  PCharSub := PChar(Substr);

  for I := Offset-1 to LenS-1 do
  begin
    if lens-I<LenSub then Exit;
    for j := 0 to lenSub - 1 do
    if PCharS[i + j] <> PCharSub[j] then
      break
    else if J=LenSub-1 then
    begin
      Result:=I+1;
      Exit;
    end;     
  end;
end;

2.PosRightEx

功能说明:实现反向增强查询;

OffSet为偏移位置,通过指定Offset,只查询Offset以前位置(包括Offset所在位置字符)。查询方法为从右向左最比。与PosEx效率相同。

function PosRightEx(const SubStr,S:AnsiString;const Offset:Cardinal=MaxInt):Integer;
var
  iPos: Integer;
  i, j,Len,LenS,LenSub: Integer;
  PCharS, PCharSub: PChar;
begin
  Result := 0;
  LenS:=Length(S);
  lenSub := length(Substr);
  if (LenS=0) Or (lenSub=0) then Exit;
  if Offset<LenSub then Exit;

  PCharS := PChar(s);
  PCharSub := PChar(Substr);

  Len:=Offset;
  if Len>LenS then
     Len:=LenS;

  for I := Len-1 downto 0 do
  begin
    if I<LenSub-1 then Exit;
    for j := lenSub - 1 downto 0 do
    if PCharS[i -lenSub+j+1] <> PCharSub[j] then
      break
    else if J=0 then
    begin
      Result:=I-lenSub+2;
      Exit;
    end;
  end;
end;

以上两个函数都是大小写敏感的,可以通过自己修改对比方法。

Tags: posex, posrightex, 函数, 查询

Delphi字符串部分处理函数

Ansiresemblestext返回两个字符串是否相似
Ansicontainstext返回字符串atext是否包含子串asubtext  
Ansistartstext返回字符串atext是否以子串asubtext开头…………………………
对字符串要进行处理的你不要错过!我也是过来人…………

» 阅读全文

Tags: 字符串, 处理函数, 函数

牛B一大堆的字符串处理函数

里面超多的函数 字符串的处理函数………………

» 阅读全文

Tags: 处理, 函数

Delphi删除子文件夹函数

常用的删除文件夹函数DeleteDirectory【不同于RemoveDir】这个函数删除子文件夹

» 阅读全文

Tags: 删除文件夹, 子文件夹, 删除, 函数

Delph 实现选择目录

使用SHBrowseForFolder函数来实现选择目录

» 阅读全文

Tags: 选择目录, 函数

获取汉字拼音的好函数

如果你要获取文字的头个字母那么快打开看吧……

» 阅读全文

Tags: 函数, delphi, 汉字