Question

vb 如何截取以空格分隔的部分字符串,如“同意 李红 2011-9-23 9:23 ”,我只要“李红”，最好从右取

在WORD中可以用 书签“签发” 取到 “同意 李红 2011-9-23 9:23 ”，但我只需要“李红”，在无法修改数据库和程序的情况下，怎么直接在WORD中实现？
“同意 李红 2011-9-23 9:23 ”，内容是变量，但格式是固定的。

Answer 1

直接用SPLIT函数将字符串打散放到可调数组里，取需要的元素即可。如：
Dim a() as string
a=Split("同意 李红 2011-9-23 9:23 ")'注意使用英文小写的双引号，不是中文的，否则出错
a(1) 即是“李红”

追问

在WORD中可以用 书签“签发” 取到 “同意 李红 2011-9-23 9:23 ”，但我只需要“李红”，在无法修改数据库和程序的情况下，怎么直接在WORD中实现？
“同意 李红 2011-9-23 9:23 ”，这内容是变量，但格式是固定的。

Answer 2

Dim dataArray(),Messages As String
Messages=“同意 李红 2011-9-23 9:23 ”
dataArray = Messages.Split(Chr(32))
然后
xxxxx=dataArray(x)
dataArray(0)=同意
dataArray(1)=李红
dataArray(2)=2011-9-23
dataArray(3)=9:23
其中Chr(32)代表空格，用" "（双引号中间空格）代替也可以，不过不建议。
如果你用逗号分隔，那么Chr(32)就替换成","

Answer 3

直接用SPLIT函数将字符串打散放到可调数组里，取需要的元素即可。如：
Dim a() as string
a=Split(“同意 李红 2011-9-23 9:23 ”)
a(1) 即是“李红”

Answer 4

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, " ") '此时表示一个空格
On Error GoTo ErrX
If UBound(S) > 0 Then
Gain = S(1)
End If
Exit Sub
ErrX:
MsgBox "没有可以使用的消息!"
End Sub

Answer 5

【八公草木】：将八公山的草木视为敌人。形容心情极为紧张和恐惧。  【不遑暇食】：没有时间吃饭。形容工作紧张、辛勤。  【趁火抢劫】：趁着别人紧张时去捞取私利或害人。  【触而即发】：触：碰；即：就。原指把箭扣在弦上，拉开弓等着射出去。比喻事态发展到了十分紧张的阶段，稍一触动就立即会爆发。  【喘息未定】：喘息：呼吸急促。呼吸急促，还没有平稳下来。比喻时间短促，情况紧张，人还未歇过气来。