返回列表 上一主題 發帖

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

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-3-5 16:49 | 只看該作者

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

各位大大好：
小弟想利用regexp來取出下列字串
，而指定字串唯一的共同點是
第三個空白字串為起點並
取出空白字串後的所有字串。
小弟引用下列pattern 卻無法
匹對成功。請問應如何修正pattern
設定呢？

mPtn = "\s{3,3}.*"
A 欄字串內容如下：
A1→aa babcdefg cc dd ee ff gg hh ii
A2→aa bb cdefc dd ee ff gg hh
A3→aijklma bb cc dd ee ff
A4→aba bb cc dd ee ff gg

B欄為取出內容如下：
B1→dd ee ff gg hh ii
B2→dd ee ff gg hh
B3→dd ee ff
B4→dd ee ff gg

謝謝各位大大！
收藏 分享

diolin

帖子
65 
主題
0 
精華
0 
積分
64 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2011-11-10 
最後登錄
2019-2-27 
2#
發表於 2015-3-6 09:56 | 只看該作者
試試看

Pattern = "\s+\S+\s+\S+\s+(.*)"
B1=Execute(A1).Item(0).SubMatches(0)

TOP

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
3#
發表於 2015-3-6 10:56 | 只看該作者
本帖最後由 dechiuan999 於 2015-3-6 10:59 編輯

回復 2# diolin

大大您好：
謝謝大大的相助。
因無法利用EXCEL資料剖析
來分割字串；因而改用REGEXP
來分割字串。
依大大的方式，小弟無法將A欄
已取出的字串再利用REGEXP REPLACE
來清除。
語法如下：
  1. Sub mRegRepStr()   
  2.         
  3.     Dim mPtn As String
  4.     Dim mStr As String
  5.     Dim mRepStr As String
  6.     Dim mSht As Worksheet
  7.     Dim mRng As Range, mRng1 As Range   
  8.    
  9.     Application.ScreenUpdating = False        
  10.     mPtn = "\s+\S+\s+\S+\s+(.*)"
  11.     mRepStr = ""
  12.    
  13.     Set mSht = Worksheets("new")
  14.     With mSht
  15.         Set mRng1 = .Range("a1", .Range("a" & .Rows.Count).End(xlUp))
  16.         For Each mRng In mRng1
  17.             mStr = mRng.Value
  18.             mRng.Value = mRegexpReplace(mPtn, mStr, mRepStr)
  19.         Next
  20.     End With
  21.    
  22.     Set mSht = Nothing
  23.     Set mRng = Nothing
  24.     Set mRng1 = Nothing
  25.    
  26. End Sub

  28. Function mRegexpReplace(mPtn As String, mStr As String, mRepStr As String)
  29.    
  30.     'Regexp Replace
  31.     Dim mRegReplace As New VBScript_RegExp_55.RegExp
  32.    
  33.     Set mRegReplace = New VBScript_RegExp_55.RegExp
  34.     With mRegReplace
  35.         .Global = True
  36.         .IgnoreCase = True
  37.         .Pattern = mPtn
  38.     mRegexpReplace = .Replace(mStr, mRepStr)
  39.     End With
  40.    
  41.     Set mRegReplace = Nothing
  42. End Function
複製代碼

TOP

diolin

帖子
65 
主題
0 
精華
0 
積分
64 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2011-11-10 
最後登錄
2019-2-27 
4#
發表於 2015-3-6 13:43 | 只看該作者
轉個彎
tmp=.Execute(A1).Item(0).SubMatches(0)
mRegexpReplace=Replace(mStr, tmp, mRepStr)

TOP

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
5#
發表於 2015-3-6 17:00 | 只看該作者
回復 4# diolin


    謝謝大大！
小弟引用大大提供的方式
在replcace還是未能成功。
小弟目前對regexp仍在剛起步。
可否請大大提供小弟一個完整範例
供小弟學習否？

感恩大大！

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
6#
發表於 2015-3-6 18:37 | 只看該作者
本帖最後由 stillfish00 於 2015-3-6 18:46 編輯

回復 1# dechiuan999
兩種都可以
  1. Sub TestAA()
  2.     Dim oReg As Object
  3.     s = "aa babcdefg cc dd ee ff gg hh ii"
  4. '    s = "aa bb cdefc dd ee ff gg hh"
  5. '    s = "aijklma bb cc dd ee ff"
  6. '    s = "aba bb cc dd ee ff gg"
  7.     Set oReg = CreateObject("vbscript.regexp")
  8.    
  9.     With oReg
  10.         .Pattern = "^\S+\s+\S+\s+\S+\s+(.*)"
  11.         Debug.Print .Replace(s, "$1")   '取代match pattern的部分成為 pattern 中第一個括號內字串
  12.         
  13.         .Pattern = "^\S+\s+\S+\s+\S+\s+"      '同 "^(\S+\s+){3}"
  14.         Debug.Print .Replace(s, "")     '抓出開頭3個word , 將match pattern的部分用""取代掉
  15.     End With
  16. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
7#
發表於 2015-3-6 19:45 | 只看該作者
回復 6# stillfish00


    大大您好：
小弟已測試成功了。
小弟深知對於regexp處理文字，
有很大的POWER能力。
可惜小弟卻常常使不上力。

很感恩二位大大！

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題