第1个回答 2007-06-05
使用 Mid() 函数。
示例:
sHTML="abc<strong>def</strong>"
如果前一个<strong>在一段文字sHTML中是唯一的,首先定位“<strong>”的位置,BeginNum=Instr(sHTML,"<strong>"),同样,再确定</strong>的位置,EndNum=Instr(sHTML,"</strong>"),在示例中,BeginNum=4,EndNum=15,然而我们要得到的是“def”,只有三个字符,这时可以这样计算,15-4=11,"<strong>"总共是8个字符,11-8=3,OK。
源码:
dim sHTML
sHTML="abc<strong>def</strong>" '=后即为你获取的源代码
BeginNum=Instr(sHTML,"<strong>")+8 '知道这个8是哪里来的了吧?与上面解释不同,这里我们要定位我们需要文字的开头第一个字符的位置,即"def"中“d”的位置
EndNum=Instr(BeginNum,sHTML,"</strong>")
Text2.Text = Mid(sHTML, BeginNum, EndNum - BeginNum)
Mid(全部内容,开头位置[,需要的字符个数])