[已解决]字符串截取

z4214488

字符串

“    1.1.7.1  其中：政府平台”，想要截取成为“其中：政府平台”，怎么写代码？

字符串长度和前面需要截取的长度不是固定的~~~

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-3-29 13:31

1. Sub aaa()
   
2.   Dim str$
   
3.   str = "    1.1.7.1  其中：政府平台"
   
4.   With CreateObject("vbscript.regexp")
   
5.     .Pattern = "[\x00-\xff]"
   
6.     .Global = True
   
7.     MsgBox .Replace(str, "")
   
8.   End With
   
9. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

以什么条件判断截取范围，是以“其中：”为keyword吗？，还是有其他规律？

大灰狼1976

是的话就用split用keyword分一下，再取后半部分，前面加上keyword内容就行了

z4214488

大灰狼1976 发表于 2017-3-29 11:34
以什么条件判断截取范围，是以“其中：”为keyword吗？，还是有其他规律？

就是想要截取其中的汉字部分~~~

五月初五

试试看

1. Sub fb()
   
2.     Dim str As String
   
3.     str = "    1.1.7.1  其中：政府平台"
   
4.     With CreateObject("vbscript.regexp")
   
5.         .Pattern = "\s*(?:\d\.?)*\s*(\W+)"
   
6.         .Global = True
   
7.         MsgBox .Replace(str, "$1")
   
8.     End With
   
9. End Sub
   

复制代码

大灰狼1976

1. Sub aaa()
   
2.   Dim str$
   
3.   str = "    1.1.7.1  其中：政府平台"
   
4.   With CreateObject("vbscript.regexp")
   
5.     .Pattern = "[\x00-\xff]"
   
6.     .Global = True
   
7.     MsgBox .Replace(str, "")
   
8.   End With
   
9. End Sub

复制代码