請問如何取出REGEXP指定的空格之後字串呢？ - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問如何取出REGEXP指定的空格之後字串呢？

返回列表下一主題上一主題發帖

[發問] 請問如何取出REGEXP指定的空格之後字串呢？

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2015-3-6 18:37 | 顯示全部帖子

本帖最後由 stillfish00 於 2015-3-6 18:46 編輯

回復 1# dechiuan999
兩種都可以

Sub TestAA()
Dim oReg As Object
s = "aa babcdefg cc dd ee ff gg hh ii"
' s = "aa bb cdefc dd ee ff gg hh"
' s = "aijklma bb cc dd ee ff"
' s = "aba bb cc dd ee ff gg"
Set oReg = CreateObject("vbscript.regexp")
With oReg
.Pattern = "^\S+\s+\S+\s+\S+\s+(.*)"
Debug.Print .Replace(s, "$1") '取代match pattern的部分成為 pattern 中第一個括號內字串
.Pattern = "^\S+\s+\S+\s+\S+\s+" '同 "^(\S+\s+){3}"
Debug.Print .Replace(s, "") '抓出開頭3個word , 將match pattern的部分用""取代掉
End With
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 並非有錢魷是快樂，問心無愧心最安。

返回列表下一主題上一主題