標題: [發問] 請問要如何檢查 是否含有 "簡體中文" [打印本頁]

---

作者: vanguarx    時間: 2015-5-21 15:20     標題: 請問要如何檢查 是否含有 "簡體中文"

我用下列來檢查資料是否含有中文,

請問要如何檢查 是否含有 "簡體中文"

1. ' 檢查是否有中文
   
2. 
   
3.    str1 = Worksheets("sheet2").Cells(i, 5).Value
   
4.    str2 = Worksheets("sheet2").Cells(i, 1).Value
   
5. 
   
6.    Set reg = CreateObject("vbscript.regexp")
   
7.    With reg
   
8.         .Global = True
   
9.         .ignorecase = True
   
10.         .Pattern = "[\u4e00-\u9fa5]"
    
11.    End With
    
12.    If reg.test(str1) Or reg.test(str2) Then
    
13.    
    
14.      MsgBox ("第" & i & "行有錯誤")
    
15.      Rows(i).Select
    
16.    
    
17.      MsgBox str1 & "  錯誤 !! 資料包含中文"
    
18.      Exit Sub

複製代碼

---

作者: radys    時間: 2015-5-21 16:32

.Pattern = "[\u4e00-\u9fa5]" 是unicode繁簡所有中文的編碼，
用這個沒辦法單獨挑出簡體字

---

作者: vanguarx    時間: 2015-5-22 10:44

那請問 有單獨針對 簡體中文 的編碼嗎？

---

作者: bobomi    時間: 2015-5-22 13:25

[attach]21016[/attach]
偷雞法

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)