text獲取了這么一段資訊：
123456小明18男12861114
123456小紅24女50967799
123456老陳33男89282185
123456老夫子19女88919680
如何把每行性別和最后那一竄數字用正則運算式獲取分別載入ListView
uj5u.com熱心網友回復：
(男|女)(?<=(男|女))\d+
uj5u.com熱心網友回復：
正則運算式不懂，只知道簡單的陳述句方式。。
Dim ss(3) As String, sd(3, 2) As String, sr() As String, st As String
Dim i As Byte, sta As String
ss(0) = "123456小明18男12861114"
ss(1) = "123456小紅24女50967799"
ss(2) = "123456老陳33男89282185"
ss(3) = "123456老夫子19女88919680"
path = ""
For i = 0 To 3
sta = IIf(InStr(1, ss(i), "男") <> 0, "男", "女")
sr = Split(ss(i), sta)
sd(i, 0) = sr(0)
sd(i, 1) = sta
sd(i, 2) = sr(1)
Next
uj5u.com熱心網友回復：
'此代碼由“正則測驗工具 v1.1.35”自動生成，請直接呼叫TestReg程序
Private Sub TestReg()
Dim strData As String
Dim reg As Object
Dim matchs As Object, match As Object
strData = "123456小明18男12861114" & vbCrLf & _
"123456小紅24女50967799" & vbCrLf & _
"123456老陳33男89282185" & vbCrLf & _
"123456老夫子([男女])(\d+)19女88919680"
Set reg = CreateObject("vbscript.regExp")
reg.Global = True
reg.IgnoreCase = True
reg.MultiLine = True
reg.Pattern = "([男女])(\d+)"
Set matchs = reg.Execute(strData)
For Each match In matchs
'Debug.Print match.Value
Debug.Print match.SubMatches(0)
Next
End Sub
output：
1.男12861114
(1).男 (2).12861114
2.女50967799
(1).女 (2).50967799
3.男89282185
(1).男 (2).89282185
4.女88919680
(1).女 (2).88919680
uj5u.com熱心網友回復：
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/115386.html
標籤：API
上一篇：求助用VBA抓取網頁資料/新聞內容（求版主幫助～～）
下一篇：兩字符的公共子字串