求一个字符串处理函数，谢谢大家(88分)

H

himoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-02

• #1

有很多不同的字符串，如
前列腺素<#E₁<a title='E1'></a>#>原料药生产工艺及使用的生化反应器
<#E₁<a title=' 这是不需要
'></a>#> 也是不需要的
通过该函数转换完成后输出:
前列腺素E1原料药生产工艺及使用的生化反应器
另外，<#E₁<a title=' 除了<#和结尾的<a title='是一定的外，中间部分不确定是什么字符，'></a>#> 是确定的；一个字符串内会有不定数量的类似<#E₁<a title='E1'></a>#> 的子字符串。
求该函数，谢谢

 

P

power255

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-02

• #2

无言了，你用字符串替换不可以吗？把<#E₁<a title='替换为空

 

轻

轻舞肥羊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-02

• #3

建议去看正则表达式的资料
用JS的正则表达式替换应该很容易实现你的需求
DELPHI的话,要找实现正则表达式的单元

 

H

himoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-02

• #4

回复：
来自：power255, 时间：2008-4-2 15:45:41, ID：3884648
无言了，你用字符串替换不可以吗？把<#E₁<a title='替换为空
<#E₁<a title=' 除了<#和结尾的<a title='是一定的外，中间部分不确定是什么字符

 

M

man8888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-02

• #5

就得用正则表达式。
RegExp包含在vbscript.dll中所以我们必须先注册regsvr32 vbscript.dll
注(安装了Ie5后默认已经包含该控件)
在Delphi中引入"Microsoft VBs cript Regular Expressions"
主菜单->Project->Import type library->在列表中选择"Microsoft VBs cript Regular Expressions"
生成TRegExp控件
使用以

 

P

power255

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-02

• #6

<>是一对对的出现，通过这种规律性可以找到<#E₁<a title='E1'></a>#>再把''号里面的字符串提出来用替代所找到的字符串，重复找直到找不到<号

 

B

bsense

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-02

• #7

不需要那么复杂的,直接找规律