Delphi函数 处理字符串《确保字符串分号;的位置和数量符合规则》--笔记
来源:互联网 发布:ansys软件介绍 编辑:程序博客网 时间:2024/04/30 12:09
实现效果
每个项目后只跟定一个分号,
传入 ;abc;123;jkl; 返回 abc;123;jkl; //消除了,字符串第一位为分号的问题
传入 abc;;;123;;;jkl; 返回 abc;123;jkl; //消除了,字符串中项目之后跟了多余的分号;
传入 abc;;;123;;;jkl 返回 abc;123;jkl; //在字符串最后的项目补上字符串
关键函数
Delete {功能说明:删除字符串中指定的字符串。该函数有三个参数。第一个参数为要进行处理的字符串,第二个参数为从何处开始删除,第三个参数为删除的字符个数。}LeftStr(所在单元:StrUtils) {功能说明:返回字符串左边指定个数的新字符(串)。该函数有两个参数。第一个参数为完整的字符串,第二个参数为指定个数。}RightStr(所在单元:StrUtils) {功能说明:返回字符串右边指定个数的新字符(串)。该函数有两个参数。第一个参数为完整的字符串,第二个参数为指定个数。}Pos {功能说明:查找字符(串)所在位置。该函数有二个参数。第一个参数为要查找的字符(串),第二个参数为被查找字符(串)。}
Code: // 需要 uses
StrUtils单元
function DealStr(s:string):string;var s2,s3:string;var s1:widestrng; //如果要处理的字符串有汉子,应使用widestrng类型,begin s1:=''; s2:=''; s3:=''; s1:=s; if not (s1='') then begin while Pos(' ',s1)>0 do //消除字符串所有空格 begin Delete(s1,Pos(' ',s1),1); end; if rightstr(s1,1)<>';' then //字符串末尾加上';'以保证进入循环的数据完整性 begin s1:=s1+';'; end; while (Length(s1)>0) do //检测字符串s1到为0为止 begin if Pos(';',s1)=1 then //判断第一位是不是';' begin s1:=RightStr(s1, (Length(s1)-Pos(';',s1)) ); end; s3:=LeftStr(s1,Pos(';',s1));//取左边的字符串 if (s3=';')then //若左边的字符串只有分号,则舍弃 begin end else begin s2:=s2+s3; //累积符合规则的字符串 end; s1:=RightStr(s1, (Length(s1)-Pos(';',s1)) ); end; end; Result:=s2;end;
0 0
- Delphi函数 处理字符串《确保字符串分号;的位置和数量符合规则》--笔记
- Delphi字符串处理函数
- 将字符串符合规则的字符取出
- awk中的常用的字符串函数和数学函数
- pythonl列表和字符串的转换,分号、叹号的处理
- Pascal中的字符串函数和数学函数
- 将字符串中符合规则的子串取出
- 自定义函数,用户可以调用这个函数判断指定的字符串是否符合正则表达式的规则.
- Delphi高效的字符串处理
- python实现统计单词出现的位置和数量
- 处理html字符串符合json
- [delphi技术]常用的几个字符串处理函数
- 两个delphi底层字符串处理函数的注释
- JavaScript中的数组、字符串和数学函数
- Delphi中常用字符串处理函数
- Delphi中常用字符串处理函数
- Delphi中常用字符串处理函数
- Delphi中常用字符串处理函数
- china
- 启动报错:The JRE could not be found. Edit the server and change the JRE location.
- java实现一个栈
- xargs命令详解,xargs与管道的区别
- 浏览器的工作原理
- Delphi函数 处理字符串《确保字符串分号;的位置和数量符合规则》--笔记
- PIC单片机存储器拓展
- (12)Air Band OpenCV2.4.13_将两幅图片叠加
- Java创建线程的两种方式和主要区别
- DBUS及常用接口介绍
- england
- Quartus II 11.0 采用Modelsim仿真时禁止重新编译库文件
- 《第一行代码》读书笔记,先占个坑,以后慢慢填。
- 福建宁德周宁县骗子许峰 近期已经出来了 大家一定要提防这个骗子