利用正则表达式提取或去除数字、字母、汉字（VSTO）

forcecommander

1. Public Function ExtractApply(ByVal Srg As String,  ByVal n As Integer )  as String
   
2.         Dim i As Integer
   
3.         Dim s, MyString As String
   
4.         Dim Bol As Boolean
   
5.         MyString = ""
   
6.         For i = 1 To Len(Srg)
   
7.             s = Mid(Srg, i, 1)
   
8.             If n = 0 Then
   
9.                 Bol = s Like "[0-9]"
   
10.             ElseIf n = 1 Then
    
11.                 Bol = s Like "[a-z,A-Z]"
    
12.             ElseIf n = 2 Then
    
13.                 Bol = s Like "[A-Z]"
    
14.             ElseIf n = 3 Then
    
15.                 Bol = s Like "[a-z]"
    
16.             ElseIf n = 4 Then
    
17.                 Bol = s Like "[一-龥]"
    
18.             ElseIf n = 5 Then
    
19.                 Bol = Asc(s) < 0
    
20.             ElseIf n = 6 Then
    
21.                 Bol = s Like "[^a-z\^A-Z\^0-9\^一-龥]"
    
22.             End If
    
23.             If Bol Then MyString = MyString & s
    
24.         Next
    
25.         If MyString = "" Then
    
26.             ExtractApply = Srg
    
27.         Else
    
28.             ExtractApply = MyString
    
29.         End If
    
30. 
    
31.     End Function

复制代码

函数参数： Srg代表要提取的原始文本，n代表要提取的内容（0：数字；1：大小写字母；2：大写字母；3：小写字母；4：汉字；5：汉字（含中文标点）；6：符号）

lbj18923823

学习了 收录哈哈 谢谢楼主分享

minjiwei

If MyString = "" Then

26.            ExtractApply = Srg

这个地方改下应该更好

wpxxsyzx

这和正则表达式好像没关系
这是一个简单的例子
Imports System.Text.RegularExpressions
Imports System.Windows.Forms
Public Class ThisAddIn

  Private Sub ThisAddIn_Startup() Handles Me.Startup
    Dim a As String = "sdfsa123"
    Dim b As New Regex("\d+")
    MessageBox.Show(b.Match(a).ToString)
  End Sub