自制替换指定串函数

2016-01-29 14:09 4 1 收藏

自制替换指定串函数,自制替换指定串函数

【 tulaoshi.com - Delphi 】

 
这是本人自己制作的替换字符串中子串的函数,他可以从字符串中找出指定子串,并替换为另一子串。


            function replacing(S,source,target:string):string;
            var site,StrLen:integer;
            begin
            {source在S中出现的位置}
            site:=pos(source,s);
             
            {source的长度}
            StrLen:=length(source);
            {删除source字符串}
            delete(s,site,StrLen);
            {插入target字符串到S中}
            insert(target,s,site);
            {返回新串}
            replacing:=s;
            end;

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/delphi/) 

来源:http://www.tulaoshi.com/n/20160129/1492665.html

延伸阅读
标签: ASP
  '*************测字符串长度************** Function CheckStringLength(txt) txt=trim(txt) x = len(txt) y = 0 for ii = 1 to x if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) 255 then '如果是汉字 y = y + 2 else y = y + 1 end if next CheckStringLength = y End Function '************* 截取字符串 ************** f...
UPDATE Friend set Name = REPLACE(Name,'脚本,'脚本之家www.jb51.net')超级简单 
标签: Web开发
JavaScript中split函数方法是将一个字符串分割为子字符串,然后将结果作为字符串数组返回。使用方法: 其中stringObj是必选项。要被分解的 String 对象或文字。该对象不会被 split 方法修改。 separator是可选项。字符串或 正则表达式 对象,它标识了分隔字符串时使用的是一个还是多个字符。如果忽略该选项,返回包含整...
void Split(CString content, CString pattern, CAtlArrayCString& strlist) {     int iPos = content.Find(pattern), iStart = 0;     while (iPos != -1)     {         strlist.Add(content.Mid(iStart, iPos - iStart));     &...
如下表:AggregationTableIdName1赵2钱1孙1李2周 如果想得到下图的聚合结果 IdName1赵孙李2钱周 利用SUM、AVG、COUNT、COUNT(*)、MAX 和 MIN是无法做到的。因为这些都是对数值的聚合。不过我们可以通过自定义函数的方式来解决这个问题。 1.首先建立测试表,并插入测试数据: 代码如下: create table AggregationTable(Id int, [Name] varcha...

经验教程

773

收藏

82
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部