请教：字符串规律取字符的代码

鄂龙蒙 · 发表于 2017-4-2 15:48

请教：
有一字符串，如：”单位：某机关姓名：张三丰职业：教授“
字符串中间有空格，想取出【某机关】【张三丰】【教授】这3个字符串，代码怎么写？
谢谢！

maditate · 发表于 2017-4-2 15:54

本帖最后由 maditate 于 2017-4-2 16:01 编辑

写错了，作废。

jiminyanyan · 发表于 2017-4-2 16:11

最好数据多点。。。。。。

phsu · 发表于 2017-4-2 16:44

Sub test()
Dim myStr As String
Dim Arr
Dim Arr1
Dim Arr2
myStr = "单位：某机关姓名：张三丰职业：教授"
Arr = Split(myStr, "")
Arr1 = Split(Arr(1), " ")
Arr2 = Split(Arr(2), " ")
MsgBox Arr1(0) & Chr(10) & Arr2(0) & Chr(10) & Arr(3)
End Sub

phsu · 发表于 2017-4-2 16:54

Sub test()
Dim myStr As String
Dim Arr
Dim Arr1
Dim Arr2
myStr = "单位：某机关姓名：张三丰职业：教授"
Arr = Split(myStr, "：")
Arr1 = Split(Arr(1), " ")
Arr2 = Split(Arr(2), " ")
MsgBox Arr1(0) & Chr(10) & Arr2(0) & Chr(10) & Arr(3)
End Sub

lss001 · 发表于 2017-4-2 17:20

本帖最后由 lss001 于 2017-4-2 17:25 编辑

Sub 引用正则表达式值()
k = Cells(Rows.Count, 1).End(xlUp).Row
ar = Range("a2:a" & k) 'a2开始放字符串"单位: 机关姓名: 张三丰  职业: 教授"
Set d = CreateObject("vbscript.regexp")
ReDim t(1 To k - 1)
For i = 1 To k - 1
With d
      .Global = True
      .Pattern = "\单位:|\姓名:|\职业:"
      Set n = .Execute(ar(i, 1))
      For Each m In n
      s = s + 1
      Va = n(s - 1).Value '字值
      t(i) = d.Replace(ar(i, 1), "") '替换
      Next
End With
Next
Range("b1:b" & k) = t
End Sub

八月十五 · 发表于 2017-4-2 18:16

Sub fn()
Dim str As String
str = "单位：某机关姓名：张三丰职业：教授"
With CreateObject("vbscript.regexp")
.Pattern = ".*?：([^：\s]+)(?:\s+|$)"
.Global = True
If .Test(str) Then MsgBox .Replace(str, "$1")
End With
End Sub

复制代码

P1ano · 发表于 2017-4-2 18:47

split 应该就可以解决了。

Simon_Zhu · 发表于 2017-4-4 13:56

Sub MyTest()
Dim myStr As String
myStr = "单位：某机关姓名：张三丰职业：教授"
With CreateObject("vbscript.regexp")
.Pattern = "\s+"
.Global = True
MsgBox .Replace(myStr, "┆")
End With
End Sub

复制代码

供参考

Simon_Zhu · 发表于 2017-4-4 16:26

再给个好玩的，看到题目突然想起的，测试了一下，代码通过......

Sub MyTest再玩一把()
Dim myStr$, myResult$
myStr = "单位：某机关姓名：张三丰职业：教授"
With CreateObject("MSScriptControl.ScriptControl")
.Language = "JavaScript"
.eval "function myRun(str){return str.replace(/\s[\x00-\xff]*/g,'┆')}"
myResult = .eval("myRun('" & myStr & "')")
End With
MsgBox myResult
End Sub

复制代码

供参考

		自动登录	找回密码
密码			免费注册

[求助] 请教：字符串规律取字符的代码

评分

评分

评分

评分

评分

最新热点 /1