delphi string.split 按照任意字符串分割语句
delphi string.split 按照任意字符串分割语句
1、就是把一个指定的字符串用指定的分割符号分割成多个子串,放入一个 TStringList 中
function ExtractStrings(Separators, WhiteSpace: TSysCharSet;
Content: PChar;
Strings: TStrings): Integer;
比如要把 'abc,defg,hijkl';
按照逗号','分割开:
var
Res: TStringList;
Count: Integer;
begin
s
:= 'abc,defg,hijkl';
Res := TStringList.Create;
Count := ExtractStrings([','], [],
PChar(s), Res);
ShowMessage('共分割出 ' + IntToStr(Count) + ' 个子串');
ShowMessage(Res.Text);
Res.Free;
end;
2、Split函数(自建)
var
I: Integer;
S: string;
A: TArray<string>;
begin
S := 'AAA分割bbb分割ccc';
A := S.Split(['分割']);
for I := 0 to High(A) do
ShowMessage(A[I]);
end;
输出结果为:
AAA
BBB
CCC
var
str: string;
arr: TArray<string>;
begin
str := 'A-1,B-2,,,C-3,D-4';
arr := str.Split([',']); // arr[0] = A-1; Length(arr) = 6
arr := str.Split([','], TStringSplitOptions.ExcludeEmpty); // 忽略空项; Length(arr) = 4
arr := str.Split([','], 2); // 只提取前 2
arr := str.Split([',', '-'], ExcludeEmpty); //arr[0] = A; Length(arr) = 8
arr := str.Split([',,,'], None); // 分隔符可以是一个字符串数组
end;
最新文章
- IOS 杂笔-11(实现在外部无法改变UIView的size)
- Visual Studio 2015上安装Entity Framework Power Tools
- google closure--继承模块一:goog.inherits()
- I2C VHDL程序
- sublime Text-Theme
- git .gitignore 文件 解决二进制文件冲突问题
- python之时间函数
- 新建搜索bar
- Microsoft Word Regular Expression
- Webform和MVC,为什么MVC更好一些?
- Intel DPDK 全面解读
- System V IPC 之消息队列
- JN_0003:JS定义变量的3种方式
- Java类的加载和对象创建流程的详细分析
- LeetCode Smallest Range
- TensorFlow-tensorboard可视化
- swiper 下拉刷新混乱
- <;asp:TextBox>;<;asp:LinkButton>;<;input button>;调用后台方法后刷新页面
- Babel的配置和使用
- douban_转自熊博网——牛逼顿