将指定字符串后面的'0'字符截去[原创

2016-02-19 18:22 5 1 收藏

下面请跟着图老师小编一起来了解下将指定字符串后面的'0'字符截去[原创，精心挑选的内容希望大家喜欢，不要忘记点个赞哦！

【 tulaoshi.com - 编程语言】

{-------------------------------------------------------------------------------
　　过程名:    TForm1.RTrimZero
　　作者:      王洪生(Kevin)
　　日期:      2004.12.22
　　参数:      const AValue: string
　　返回值:    string
　　功能:      将指定字符串后面的0字符截去
　　-------------------------------------------------------------------------------}
　　function TForm1.RTrimZero(const AValue: string): string;
　　var
　　 nLen : Integer;
　　 i    : Integer;
　　 strTemp: string;
　　begin
　　 if (AValue = '') then Result := '';
　　 nLen := Length(AValue);
　　 strTemp := AValue;
　　 for i:= nLen downto 1 do
　　 begin
　　    if (AValue[i] = '0') then
　　      strTemp[i] := ' '
　　    else
　　      Break;
　　 end;
　　 Result := strTemp;
　　end;

来源:http://www.tulaoshi.com/n/20160219/1617453.html

上一篇：中文Access2000速成教程--目录
下一篇： Word中设置艺术字的阴影效果

看过《将指定字符串后面的'0'字符截去[原创》的人还看了以下文章更多>>

正则替换字符串功能

标签： Web开发

a href="1.htm"251/a 怎么用JS把251替换为 span style='background-color: #99FF99'251/span [Ctrl+A 全选注:如需引入外部Js需刷新才能执行]

oracle 字符串转成行

标签：编程语言网络编程

SELECT SUBSTR (T.RPT_ID, INSTR (T.RPT_ID,',',1,C.LV)+ 1, INSTR (T.RPT_ID,',',1,C.LV + 1)- (INSTR (T.RPT_ID,',',1,C.LV)+ 1)) &n...

测字符串长度函数

标签： 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...

字符串近似匹配算法

标签：编程语言网络编程

字符串的近似匹配，就是答应在匹配时有一定的误差，比如在字串“以前高手好久不见”中找“以前是高手”也能成功。具体地说，错误可以有三种类型：加字符（以前也是高手）、漏字符（以前高手）和替换字符（以前石膏手）。下面的函数在text中查找子串pat，最多答应有k个错误。返回的是匹配的终点（我还没想好如何确定起点，呵呵）。至于...

mysql的字符串函数

标签： MySQL mysql数据库

对于针对字符串位置的操作，第一个位置被标记为1。 ASCII(str) 返回字符串 str 的最左面字符的ASCII代码值。如果 str 是空字符串，返回 0 。如果 str 是 NULL ，返回 NULL 。 mysql select ASCII('2'); - 50mysql select ASCII(2); - 50mysql select ASCII('dx'); - 100 也可参见ORD()函...

查看更多精彩>>