Question

VB如何获取 textbox中部分内容

textbox内容如下“Hello，World。<b>百度一下，你就知道 </b>，ABCDEFG”
如何获取从<b>到</b>中的内容？

Answer 1

截取关键字就可以了，如：

Dim s As String
s = Text1.Text  
Msgbox Split(Split(s, "<b>")(1), "</b>")(0)

Answer 2

用下面代码可实现：
sub main（）
Dim s As String
s = Text1.Text
Msgbox Split(Split(s, "<b>")(1), "</b>")(0)
end sub

关于此例中用到的Split函数的相关知识：
返回一个下标从零开始的一维数组，它包含指定数目的子字符串。
语法
Split(expression[, delimiter[, count[, compare]]])
Split函数语法有如下几部分：
部分描述expression必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。delimiter可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。count可选的。要返回的子字符串数，–1表示返回所有的子字符串。compare可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。

设置值
compare参数的设置值如下：
常数值描述vbUseCompareOption–1用Option Compare语句中的设置值执行比较。vbBinaryCompare0执行二进制比较。vbTextCompare1执行文字比较。vbDatabaseCompare2仅用于Microsoft Access。基于您的数据库的信息执行比较。