返回列表 上一主題 發帖

[發問] 文字數值拆分

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2015-3-11 14:18 | 顯示全部帖子
回復 1# ayubbs
  1. Sub Test()
  2.     Dim oReg As Object, s As String, sGet As String
  3.     s = "AAA120CCC4DC"  '120
  4.     's = "120CCC4DC"    '120
  5.     's = "AAA120"       '120
  6.    
  7.     Set oReg = CreateObject("vbscript.regexp")
  8.     With oReg
  9.         .Pattern = "^[^\d]*(\d+).*$"
  10.         If .Test(s) Then
  11.             sGet = .Replace(s, "$1")
  12.             MsgBox "取出文字為: " & sGet
  13.         Else
  14.             MsgBox "字串不符合指定格式"
  15.         End If
  16.     End With
  17. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

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

回復 3# ayubbs
是的，要看你所謂的數字包含哪些格式
前面例子抓的是只有 0~9的連續數字
因為你說明的敘述只包含這種數字
如果要含小數點

.Pattern = "^[^\d]*(\d+(\.\d+)?).*$"   

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

TOP

stillfish00

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

回復 4# stillfish00
.Pattern = "^[^\d]*(\d+(\.\d+)?).*$"

簡單解釋一下，正則表示法(正規表達式)是用pattern設置規則
來判斷文字中是否能找到一段是符合規則的字串
開頭的^表示匹配文字開頭
結尾的$表示匹配文字結尾
所以是檢查文字是否完全符合
其中 \d 表示 0或1或2或....或9 的字元
[^\d] 表示非 0或1或2或....或9 的字元
. 表示任意字元
\.  才是表示小數點
* 表示前一個字元重複0次~重複無限多次
+ 表示前一個字元重複1次~重複無限多次
? 表示前一個字元重複0次 或 重複1次
( ) 括號有兩種意義,  
一是為了儲存括號匹配的文字到內部的子字串 , 也就是後來可用"$1"提取出來
一是當( )後面皆上像* + ? 時 重複的不是一個字元而是括號內的字

因此   "^[^\d]*(\d+(\.\d+)?).*$"   解釋意思就是
^  開頭是
[^\d]*  零個或N個非數字文字
\d+   1個以上連續數字
(\.\d+)?   小數點接1個以上連續數字 , 或沒有
.*   任意多個字元 , 或沒有
$  結尾

大致是這樣.........
當然這邊只是一例而已，pattern可以有很多種用法
詳細語法要自己去找正則表示法來看

另一種寫法:
  1. Sub TestGGG()
  2.     Dim oReg As Object, s As String, oMatch As Object, sGet As String
  3.     s = "取字串12.3acd"  '12.3
  4.     's = "120CCC4DC"    '120
  5.     's = "AAA120"       '120
  6.    
  7.     Set oReg = CreateObject("vbscript.regexp")
  8.     oReg.Pattern = "\d+(\.\d+)?"
  9.     Set oMatch = oReg.Execute(s)
  10.    
  11.     If oMatch.Count > 0 Then
  12.         sGet = oMatch(0)
  13.         MsgBox "取出數字為: " & sGet
  14.     Else
  15.         MsgBox "找不到數字"
  16.     End If
  17. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 能善用時間的人，必能掌握自己努力的方向。
返回列表 上一主題