VB如何截断一些用空格分隔的字符串，例如“同意李红201”。

dim dataArray（），Messages As StringMessages=“同意 Li Hong 2011-9-23 9：23 ”.

dataArray =

然后 xxxxx=dataArray（x）。

dataArray（0） = 同意。

dataArray（1） = 李红。

dataArray(2)=2011-9-23dataArray(3)=9:23

其中 Chr（32） 代表空间，其中" "（双引号）可以，但不建议这样做。

如果用逗号分隔它们，则 Chr（32） 将替换为","

使用 SPLIT 函数将字符串分散到可调整的数组中并获取所需的元素。 如：

Dim a() as string

a=Split("同意 李红 2011-9-23 9：23")'注意使用小写双引号，而不是中文，否则会出错。

a（1）为“李红”。

Dim a() as string

a=Split（“同意李红 2011-9-23 9：23 ”，Chr（32））.

msgbox a(1)

也就是《李红》。

Private Sub Command1_Click()Dim S() As String '拆分消息 Dim KnowStr As String 的数组'存储需要查询消息 Dim Gain As String'使用 KnowStr= 获取所需的数据"同意 李红 2011-9-23 9：23" '需要查询的消息。

S = Split(KnowStr, " ") '这表示错误 GoTo ErrX 上的空格

If UBound(S) >0 ThenGain = S(1)

End If

Exit Sub

ErrX:MsgBox "没有可以使用的消息！ "

End Sub

【八公草木】：视八公山的草木为敌。 被描述为极度紧张和害怕。

【别说吃饭了】：没时间吃饭。 将工作描述为紧张和勤奋。

【趁热抢劫】：利用他人的紧张情绪谋取私利或伤害他人。 [一触即用]：

Touch：触摸; 即：只是。

原来的手指将箭系在弦上，拉弓，等待射出。 隐喻的情境已经发展到非常紧张的阶段，稍有触碰就会立即爆发。 [喘息未定]：

喘息：呼吸急促。 呼吸急促，尚未稳定。

比喻很短，局势紧张，人们还没有停止呼吸。

先使用 instr 函数找到需要的字符串，然后使用 mid 函数拦截它。