vb编程问题——文本中提取特定字符

Question

现有如下文本（H:\1.txt)“...........................class="f14">我无敌</a><span class="zdq" title="更高更快更强">class="f14">我是谁</a><span class="zdq" title="更高更快更强">class="f14">怎么办啊</a><span class="zdq" title="更高更快更强">..........................” 请问，在vb中如何将以上文本中的“我无敌”、“我是谁”“怎么办啊”。。。。。。提取出来。并自动保存至H：\2.txt。（注：就是把“class="f14">”>和“</a><span class="zdq" title="更高更快更强">”中间的文字部分提取出来，写入 H:\2.txt 中 其中“...........”包含文字、字母、符号）

Answer 1

一个字符一个字符的判读，判读是不是汉字，如果是，就取出来，如果不是则不取是汉字的判断程序如下Private Sub Form_Load()
Dim InputStr As String
InputStr = InputBox("请输入字符串")
If Asc(InputStr) < 0 Then
gbascii = AscB(StrConv(InputStr, vbFromUnicode))
'区位码在16区之后的为汉字
If gbascii - 160 > 15 Then
MsgBox "是汉字,Label1不显示此字符串"
Else
MsgBox "是全角符号，Label1不显示此字符串"
End If
Else
'MsgBox "是半角英文或数字"
Label1.Caption = InputStr
End If
End Sub

Answer 2

先给你一个思路。 你可以用MID()函数 提取一行字符串中的某一个特定的字符其用法为： mid(string,起始位置,长度)例如： a=mid("1234567890",3,3)结果a="456""1234567890"中的第三个开始后面的3个字符再回到你的问题 你要的 class="f14"> 后面的字符 则可以怎样实现 mStr="class="f14">我无敌</a><span class="zdq" title="更高更快更强">" if mid(mstr,1,10)="class="f14">" then aStr==mid(mstr,10,3) end if 在这里我就只能告诉你要使用这个函数。 如果你还有疑问的话ni可以联系我。

Answer 3

用replace去掉不想要的字符。然后再分析。