delphi 提取字符串'{''NAME'':''测试2'',''DEPCODE'':''NULL'',''ID'':''0000001'',''USER_TYPE'':''1@本行员工''}' 分别提取name、DEPCODE、ID、USER_TYPE的值
时间: 2023-12-21 11:27:44 浏览: 41
可以使用正则表达式来提取字符串中的值。以下是 Delphi 中提取字符串的示例代码:
```delphi
uses
RegularExpressions;
function ExtractValue(const input, key: string): string;
var
regex: TRegEx;
match: TMatch;
begin
regex := TRegEx.Create('(?<=' + key + ''':''\s*'')[^'']+(?='')');
match := regex.Match(input);
if match.Success then
Result := match.Value
else
Result := '';
end;
var
input: string;
name, depcode, id, user_type: string;
begin
input := '{''NAME'':''测试2'',''DEPCODE'':''NULL'',''ID'':''0000001'',''USER_TYPE'':''1@本行员工''}';
name := ExtractValue(input, 'NAME');
depcode := ExtractValue(input, 'DEPCODE');
id := ExtractValue(input, 'ID');
user_type := ExtractValue(input, 'USER_TYPE');
end.
```
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)