您正在查看 "正则|递归|基本函数转换" 分类下的文章
2008-01-01 21:49
procedure replace(var s:string;const SourceChar:pchar;const RChar:pchar);
//第一个参数是原串，第二个是模式串，第三个是替换串
var
ta,i,j:integer;
m,n,pn,sn:integer;
SLen,SCLen,RCLen:integer;//SLen表示原串的长度，SCLen表示模式传的长度，RCLen表示替换串的长度
IsSame:integer;
newp:array of char;//用来保存替换后的字符数组
begin
SLen:=strlen(pchar(s));SCLen:=strlen(SourceChar);RCLen:=strlen(RChar);
j:=pos(string(SourceChar),s);
s:=s+chr(0);ta |
2007-12-23 20:04
一. 工具选择
DELPHI6本身没有处理正则表达式的库，只能找第三方库。在选择方面，我的标准是：
1. 不必向开发环境注册控件
2. 接口简单
3. 符合主流的perl式正则语法
4. 专业，至少应该有个看上去专业的专门网站
5. 免费
目前符合以上标准, 比较好的RegEx类库有TRegExpr ( http://www.regexpstudio.com/ )与PerlRegEx ( http://www.regular-expressions.info/ )。
TRegExpr是俄国人做的RE类库，应该说是目前国内最主流的免费RegEx类库了。纯DELPHI写成，支 |
2007-12-23 20:02
全部都在TPerlRegEx中测试通过
所有中文(不包括标点)：([\xB0-\xF7][\xA1-\xFE])+
所有GB2312-80编码：([\xA1-\xFE][\xA1-\xFE])+
所有中文空格：(\xA1\xA1)+
英文标点：[\x20-\x2F\x3A-\x40\x5B-\x60\x7B-\x7E]
|
2007-12-20 23:36
本人最近刚刚学习正则表达式；在学习的过程中，一直被中文匹配的正则表达式而困惑；试过网上一些人提供的方法，例如：[\u4E00-\u9FA5]+ 等等之类，在Delphi里面没有试成功过，很是郁闷啊；在网上下载了一个RegexBuddy工具，它好像是使用C++Builder或者Delphi编译的；当时它支持通过 \w 方式来匹配中文，但是在程序里面却没有办法；不知道它是怎么做到的；现在求在Delphi可用的中文正则表达式的写法；（我目前试用过两种第三方的正则表达式的单元来使用的；一个是(TRegExpr RegExpr.pas);另外一个是：TPer |
2007-12-20 18:42
零宽断言
接下来的四个用于查找在某些内容(但并不包括这些内容)之前或之后的东西，也就是说它们像\b,^,$那样用于指定一个位置，这个位置应该满足一定的条件(断言)，因此它们也被称为 |
2007-12-20 18:41
2007-12-20 16:40
乱码算法大全(不看你后悔：》)
2007-06-12 07:23
|
2007-12-17 23:17
Html相关
过滤大部分链接<a href ... > ... </a>
表达式：<\s*[Aa][^<]*[Hh][Rr][Ee][Ff]\s*=[^\/]*<\s*\/[aA]\s*>
所有中文(不包括标点)：
([\xB0-\xF7][\xA1-\xFE])+
所有GB2312-80编码
([\xA1-\xFE][\xA1-\xFE])+
所有中文空格
(\xA1\xA1)+
英文标点：[\x20-\x2F\x3A-\x40\x5B-\x60\x7B-\x7E]
Test04.html类型“Barina || 巴里纳(澳大利亚
|
2007-12-17 23:14
TRegExpr是正则表达式在delphi中的一个很好的实现。
是一个单独的单元，使用时直接引用即可。还自带了几个sample。
对其中的SelfTest例子加了几行注释如下：
{ basic tests }
r := TRegExpr.Create;
r.Expression := '[A-Z]';
r.Exec ('234578923457823659GHJK38');
Check (0, 19, 1);
//?在此处表示让*处于非贪婪模式
r.Expression := '[A-Z]*?';
r.Exec ('234578923 |
2007-12-16 16:21
type
orgVO=record
PK_DEPART:string;
DEPCODE:string;
DEPNAME:string;
DEPTDESC:string;
DEPPHONE:string;
DEPADDR:string;
PARENTID:string;
LEVEL:integer;
end;
递归函数:
procedure Tdlg_org.dg(vos: array of zzorgVO;tnode:TTreeNode;str:string;sum:integer);
var
i:integer;
s:string;
snode:TTree |
