摘要:
1.提取字符串中指定子字符串前的字符串 FunctionBefore(Src:string;S:string):string; Var F:Word; begin F:=POS(Src,S); ifF=0then Before:=S else Before:=COPY(S,1,F-1); end; eg:Before('123','helloworld_123')返回结果:helloworld_ 2.提取字符串中指定子字符串后的字符串 functionAfter(Src:string;S:string):string; var F:Word; begin ... 阅读全文
posted @ 2012-07-03 14:52 ╰★张志峰★╮ 阅读(7050) 评论(0) 推荐(0) 编辑