DELPHI 正则

zhan1219 2011-05-24 08:49:19

str:=1.笔记本 2.语言 MJHNBG
my := TRegExpr.Create;
my.Expression := '2.[A-Z\u4e00-\u9fa5][\s]+([A-Z0-9]{6})+';
if my.Exec(str) then

想提取2.语言 后的六个字母和数字组成的字符,
序号1-9之间不定,序号后有可能是英文和中文组合或英文、中文
要提取的六位字符固定在最后一个(序号2.数据+[空格])后面
...全文
66 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
gobiz 2011-05-25
  • 打赏
  • 举报
回复
正则表达式是在文本中找规律,与你的那个序号不序号的无关。
gobiz 2011-05-25
  • 打赏
  • 举报
回复
哦,没看到还有数字,那么就是 [\s]+([0-9A-Z]{6})
gobiz 2011-05-25
  • 打赏
  • 举报
回复
没有再多的示例数据了吗?

那么就用这个 [\s]+([A-Z]{6}) 绝对可以提出来了。

下次多举出一些示例数据!

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧