怎么获取TEXT1里面某两个字符中间滴字显示到TETX2中

2013-01-09

如何获取TEXT1里面某两个字符中间滴字显示到TETX2中？比如TEXT里有sfds strongWWWW/strong；sacsfds st

如何获取TEXT1里面某两个字符中间滴字显示到TETX2中？
比如TEXT里有

sfds <strong>WWWW</strong>；sac
sfds <strong>WWWW</strong>；sssaasfds
 <strong>WWWW</strong>；sac
sfds <strong>WWWW</strong>；sac
sf
ds <strong>WWWW</strong>；sac
sf
ds <strong>WWWW</strong>c
sfds <strong>WWWW</strong>；sac
sf
ds <strong>WWWW</strong>；sac

如何获取<strong>WWWW</strong>中间的WWW并自动在WWW两边加上括号？？

[解决办法]

'这样试试：
text1.text=replace(text1.text,"<strong>","(")
text1.text=replace(text1.text,"</strong>",")")

[解决办法]
使用传说中的正则表达式，请sysxxxx出马
[解决办法]
instr()
mid()
去截取

或正则表达式截取。

[解决办法]
p1=0
p2=0
p1=instr(p2+1,s,"<strong>")
p2=instr(p1+1,s,"</strong>")

if p2>p1 then
text2=mid(s,p1+8,p2-p1-8)
end if

热点排行

VB

怎么获取TEXT1里面某两个字符中间滴字显示到TETX2中