请教一查找字符串函数。就像windows搜索文件一样，包括*

Question

例如在‘fsafds<9fsdaf>88fsag’中查找‘<9*>88’则能够找到‘<9fsdaf>88’
最好能够全部替换的^^谢谢！

Answer 1

a:='fsafds<9fsdaf>88fsag'
if pos('<9fsdaf>88',a)>0 then
  a:=stringreplace(a, '<9fsdaf>88', 'abc', [rfReplaceAll]);将<9fsdaf>88替换为abc

Answer 2

是包括*的命令
例如查找‘<9*>88’能够找到‘<9fsdaf>88’

Answer 3

比较笨的方法:
a:='fsafds<9fsdaf>88fsag';
if (pos('<9',a)>0) and (length(copy(a,1,pos('<9',a)))<length(copy(a,1,pos('>88',a)))) then
  a:=stringreplace(a,copy(a,pos('<9',a),pos('>88',a)-pos('<9',a)+3), 'abc', [rfReplaceAll]);

Answer 4

还关系到配对
例如'fsafds<9sfds<9fsdaf>88fsag' 查找'<9*>88'，能够替换成 'fsafds<9sfds<9abc>88fsag' ，其中还涉及到如何配对一致的问题。
算了，我就是问问有没有这个函数，如果没有的话，我就自己写一个。
谢谢大家了，谢谢erik(狮子) ^^

Answer 5

Delphi没有这个函数,要自己写。我自己就写了一个支持'*'和'?'通配符查找函数（无替换功能）。网上有一篇文章介绍（有源码），好像就在CSDN，不过查找结果不是很正确。