返回列表 上一主題 發帖

[發問] 數字與數字中如果有空格 要如何取代或刪除呢?

zyzzyva

帖子
109 
主題
1 
精華
0 
積分
116 
點名
0  
作業系統
win7 
軟體版本
2007 
閱讀權限
20 
註冊時間
2016-8-4 
最後登錄
2018-10-22 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2016-9-13 15:53 | 顯示全部帖子
回復 11# 小俠客
不知道您的原始資料是什麼樣子，如果這些字串不會出現在句首跟句尾，.test那邊就不用改
  1. Function IsYear (ByRef Target As String) As Boolean
  2.     Dim x, oRegexp As Object: Set oRegexp = CreateObject("vbscript.regexp")
  3.     With oRegexp
  4.         .Pattern = "\D(\d{4}年?)\D"
  5.         IsYear = .test("-" & Target & "-")
  6.     End With
  7. End Function
複製代碼

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題