vb 如何截取以空格分隔的部分字符串,如“同意 李红 2011-9-23 9:23 ”,我只要“李红”，最好从右取 DOS 批处理 将一个以空格为分隔符的字符串中特定格式的字符...

\u5728vb.net\u4e2d ,\u8981\u4ee5\u7b2c\u4e09\u4e2a\u7a7a\u683c\u622a\u53d6\u4e00\u6bb5\u5b57\u7b26\u4e32

Dim s As String = "asdasdfasdf asdfasdf 12sdfsdf asdfa"
Dim arr() As String = Split(s, " ")
Dim \u524d\u90e8\u5206 = String.Join(" ", arr, 0, 3)
Dim \u540e\u90e8\u5206 = String.Join(" ", arr, 3, arr.Length - 3)


\u56de\u7b54\u95ee\u9898\uff0c\u4fdd\u8bc1\u54c1\u8d28 ^_^

@echo off
setlocal enabledelayedexpansion
FOR %%i in (\u5f20\u4e09 67ew89 \u674e\u56db 56ee789) do (echo %%i | findstr [0-9]>nul && (set n=%%i & echo !n!) )
pause

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

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)就替换成","

直接用SPLIT函数将字符串打散放到可调数组里，取需要的元素即可。如：
Dim a() as string
a=Split(“同意 李红 2011-9-23 9:23 ”)
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, " ") '此时表示一个空格
On Error GoTo ErrX
If UBound(S) > 0 Then
Gain = S(1)
End If
Exit Sub
ErrX:
MsgBox "没有可以使用的消息!"
End Sub

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

扩展阅读：表格 和 表名之间有空隙 ... vb中空格算不算一个字符 ... 停连符号 正v和倒v ... vb输出空格的函数 ... 表格接不上空了一大截 ... vb 取得text当前的行序 ... vba 截取字符串中的一部分 ... vba截取单元格字符串 ... 如何删除分栏符 分隔符 ...