字符串处理通用函数(收藏)

原创 2007年09月19日 17:57:00
字符串处理通用函数

function LeftStr(S:string;Count:integer):string;
begin  //获取字符串左边起n个字符
  LeftStr:=Copy(s,1,Count);
end;

function RightStr(S:string;Count:integer):string;
begin  //获取字符串右边起n个字符
  RightStr:=Copy(s,Length(s)-Count+1,Count);
end;

function ReplaceStr(S:string;OldStr,NewStr:string):string;
var i,j:integer;
    ss:string;
begin  //替换字符串 (其实Delphi已经提供对应的函数了StringReplace)
  i:=1;
  ss:='';
  j:=length(OldStr);
  while i<=length(s) do
begin
if LowerCase(copy(s,i,j))=LowerCase(OldStr)
then
begin
ss:=ss+NewStr;
inc(i,j);
end
else
begin
ss:=ss+s[ i ];
inc(i,1);
end;
end;
Result:=ss;
end;

function LTrim(S:string):string;
begin //删除字符串左边空格
s:=s+'*';
s:=Trim(s);
Delete(s,length(s),1);
end;

function RTrim(S:string):string;
begin //删除字符串右边空格
s:='*'+s;
s:=Trim(s);
Delete(s,1,1);
end;

function LDelete(S,Sub:string):string;
begin //删除字符串左边的某一所有字符
while LeftStr(S,1)=sub do
Delete(S,1,1);
LDelete:=s;
end;

function RDelete(S,Sub:string):string;
begin //删除字符串右边的某一所有字符
sub:=copy(sub,1,1);
while RightStr(S,1)=sub do
Delete(S,length(s),1);
RDelete:=s;
end;

function MDelete(S,Sub:string):string;
begin //删除字符串中包含的某一所有字符
sub:=copy(sub,1,1);
while Pos(sub,s)>0 do
    Delete(S,Pos(sub,s),1);
  MDelete:=s;
end;

function GetCodeNo(NoStr:string;NoLen:integer):string;
begin  //生成一个在数字前面自动补零编码
  NoStr:=Trim(NoStr);
  Result:=copy('00000000000000000000',1,NoLen-length(NoStr))+NoStr;
end;
 

C通用函数:ASCII与十六制字符串互相转换

在用QT做一个串口通讯软件。在接收数据时,一般的串口收发软件的数据窗口都有ASCII显示模式,也可以转换成HEX十六进制模式。这样有利调试。 因此写了两个函数进行转换,其中ASCII转16进制算法...

【叶子函数分享三十六】SQL2000/2005字符串拆分为列表通用函数

【叶子函数分享三十六】SQL2000/2005字符串拆分为列表通用函数

系统参数的设计,通用方法提取,页面处理map字符串并显示系统参数(增强版)

一、系统参数表设计 系统参数表及其查询相应其他表并生成参数表的语句(比如查询下边的仓库表,把仓库id和name也对应的系统启动时放到servletApplication中) /*=========...

字符串处理通用类

配合单例类一起使用,可以获取Xml表中存储的模型的具体位置,转换成可以直接使用的Vector3和Vector4类型的变量。using UnityEngine; using System.Collect...

5.单行函数,多行函数,字符函数,数字函数,日期函数,数据类型转换,数字和字符串转换,通用函数(case和decode)

 1  多行函数(理解:有多个输入,但只输出1个结果)          SQL>select count(*) from emp;          COUNT(*) ...

SQL Server字符串处理函数大全

  • 2014年07月09日 18:02
  • 37KB
  • 下载

常用字符串处理函数

  • 2013年08月29日 09:22
  • 50KB
  • 下载

DELPHI字符串处理函数大全(收藏在此方便以后查找使用)

uses StrUtils;【字符串函数大全】 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; ...
  • bjtbjt
  • bjtbjt
  • 2013年08月05日 21:51
  • 3482

字符串处理函数(9KB)

  • 2006年02月23日 09:05
  • 8KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:字符串处理通用函数(收藏)
举报原因:
原因补充:

(最多只允许输入30个字)