Public Function ChineseExist(sText) As Boolean ‘\u6709\u65e0\u6c49\u5b57
Dim oRegExp As Object
Set oRegExp = CreateObject(“VBScript.RegExp”)
oRegExp.Pattern = “[\\u4e00-\\u9fa5]”
oRegExp.Global = True
ChineseExist = oRegExp.Test(sText)
Set oRegExp = Nothing
End Function<\/p>\n\n\n\n
Public Function NumberSeries(ByVal sText As String) As Variant ‘\u63d0\u53d6\u6587\u5b57\u4e2d\u7684\u7eaf\u6570\u5b57,\u4ee5\u6570\u7ec4\u7684\u5f62\u5f0f\u8fd4\u56de Public Function PureLetter(sText) As Boolean ‘\u7eaf\u5b57\u6bcd Public Function PureNumber(sText) As Boolean ‘\u7eaf\u6570\u5b57 Public Function ReplaceExp(ByVal sText As String, ByVal sPattern As String, ByVal sNew As String) As String ‘\u6587\u5b57\u66ff\u6362 Public Function IsUrl(ByVal sText As String) As Boolean ‘\u5408\u6cd5 Url Public Function IsMail(ByVal sText As String) ‘\u5408\u6cd5 eMail Public Function ChineseCount(ByVal sText As String) As Long ‘\u6c49\u5b57\u6570\u91cf Public Function CheckID(ByVal sText As String, ByVal iFunction As Integer) As String ‘\u6838\u67e5 ID, \u5224\u65ad\u8bc1\u4ef6\u53f7\u7801\u662f\u5426\u6b63\u786e, \u6216\u63d0\u53d6\u51fa\u751f\u65e5\u671f,\u6216\u8fd4\u56de\u6027\u522b, \u6216\u8fd4\u56de\u5e74\u9f84
Dim oRegExp As Object
Dim oMatches As Object ‘\u5339\u914d\u5b57\u7b26\u4e32\u96c6\u5408\u5bf9\u8c61
Dim oMatch As Object ‘\u5339\u914d\u5b57\u7b26\u4e32
Set oRegExp = CreateObject(“Vbscript.RegExp”)
Dim iCount As Integer
Dim TempArray() As Double
With oRegExp
.Global = True ‘True\u8868\u793a\u5339\u914d\u6240\u6709, False\u8868\u793a\u4ec5\u5339\u914d\u7b2c\u4e00\u4e2a\u7b26\u5408\u9879
.IgnoreCase = True ‘True\u8868\u793a\u4e0d\u533a\u5206\u5927\u5c0f\u5199, False\u8868\u793a\u533a\u5206\u5927\u5c0f\u5199
.Pattern = “([0-9])?.<\/a>+|([0-9])+” ‘\u5339\u914d\u5b57\u7b26\u6a21\u5f0f(\u4e0d\u8bc6 + – % \u53f7)
Set oMatches = .Execute(sText) ‘\u6267\u884c\u6b63\u5219\u67e5\u627e\uff0c\u8fd4\u56de\u6240\u6709\u5339\u914d\u7ed3\u679c\u7684\u96c6\u5408\uff0c\u82e5\u672a\u627e\u5230\uff0c\u5219\u4e3a\u7a7a
For Each oMatch In oMatches
ReDim Preserve TempArray(0 To iCount)
TempArray(iCount) = oMatch.Value
iCount = iCount + 1
Next
End With
NumberSeries = TempArray
Set oRegExp = Nothing
Set oMatches = Nothing
End Function<\/p>\n\n\n\n
Dim oRegExp As Object
Set oRegExp = CreateObject(“VBScript.RegExp”)
oRegExp.Pattern = “^[A-Za-z]+$”
oRegExp.Global = True
PureLetter = oRegExp.Test(sText)
Set oRegExp = Nothing
End Function<\/p>\n\n\n\n
Dim oRegExp As Object
Set oRegExp = CreateObject(“VBScript.RegExp”)
oRegExp.Pattern = “^[0-9]+$”
oRegExp.Global = True
PureNumber = oRegExp.Test(sText)
Set oRegExp = Nothing
End Function<\/p>\n\n\n\n
Dim oRegExp As Object
Set oRegExp = CreateObject(“VBScript.RegExp”)
oRegExp.Pattern = sPattern ‘\u8bbe\u7f6e\u6a21\u677f\u5c5e\u6027
oRegExp.IgnoreCase = True ‘\u5ffd\u7565\u5927\u5c0f\u5199
oRegExp.Global = True ‘\u5339\u914d\u6240\u6709\u641c\u7d22\u9879\u8fd8\u662f\u53ea\u5339\u914d\u7b2c\u4e00\u9879
oRegExp.MultiLine = True ‘\u662f\u5426\u5728\u591a\u884c\u4e2d\u641c\u7d22
ReplaceExp = oRegExp.Replace(sText, sNew)
Set oRegExp = Nothing
End Function<\/p>\n\n\n\n
On Error GoTo ERR_Url
Dim oRegExp As Object
IsUrl = False
Set oRegExp = CreateObject(“VBScript.RegExp”)
oRegExp.Pattern = “(((ht|f)tps?:\/\/)|(www.))([\\w-]+.)+[\\w-:]+(\/[\\w- .\/?%#;&=]*)?”
oRegExp.Global = True
IsUrl = oRegExp.Test(sText)
Set oRegExp = Nothing
ERR_Url:
End Function<\/p>\n\n\n\n
On Error GoTo ERR_Mail
Dim oRegExp As Object
IsMail = False
Set oRegExp = CreateObject(“VBScript.RegExp”)
oRegExp.Pattern = “\\w+([-+.]\\w+)@\\w+([-.]\\w+)<\/em>.\\w+([-.]\\w+)*”
oRegExp.Global = True
IsMail = oRegExp.Test(sText)
Set oRegExp = Nothing
ERR_Mail:
End Function<\/p>\n\n\n\n
Dim oRegExp As Object
Dim oMatchs As Object
Set oRegExp = CreateObject(“VBScript.RegExp”)
oRegExp.Global = True
oRegExp.Pattern = “[\\u4e00-\\u9fa5]”
Set oMatchs = oRegExp.Execute(sText) ‘\u6210\u529f\u5339\u914d\u7684 Match \u5bf9\u8c61\u96c6\u5408
ChineseCount = oMatchs.Count
Set oRegExp = Nothing
End Function<\/p>\n\n\n\n
Dim oItem As Object
Dim iSum As Integer
Dim FactorArray As Variant, CRCArray As Variant
Dim I As Integer
Dim sBirthDate As String
FactorArray = Array(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2) ‘\u8eab\u4efd\u8bc1\u53f7\u52a0\u6743\u56e0\u5b50
CRCArray = Array(“1”, “0”, “X”, “9”, “8”, “7”, “6”, “5”, “4”, “3”, “2”) ‘\u6700\u540e\u4e00\u4f4d\u6709\u6548\u6821\u9a8c\u4f4d
If Len(sText) = 18 Then ‘\u5224\u65ad\u662f\u5426\u4e3a18\u4f4d
Set oRegExp = CreateObject(“Vbscript.RegExp”)
oRegExp.Pattern = “[A-Za-z0-9]{1}” ‘\u5e94\u7528\u6b63\u5219\u8868\u8fbe\u5f0f\u5206\u62c6\u621018\u4e2a1\u4f4d\u6570\uff0c\u6b64\u6b65\u53ef\u4ee5\u5e94\u7528mid\u51fd\u6570\uff0c\u4f46\u6b63\u5219\u8868\u8fbe\u5f0f\u4f1a\u6548\u7387\u4f1a\u66f4\u9ad8
oRegExp.Global = True
Set oItem = oRegExp.Execute(sText)
For I = 0 To 16
iSum = oItem(I) * FactorArray(I) + iSum
Next I
If CRCArray(iSum Mod 11) = UCase(oItem(17)) Then
Select Case iFunction
Case 1 ‘\u5224\u65ad\u8bc1\u4ef6\u53f7\u7801\u662f\u5426\u6b63\u786e
CheckID = “True”
Case 2 ‘\u63d0\u53d6\u51fa\u751f\u65e5\u671f
CheckID = Format(Mid(sText, 7, 8), “0-00-00”)
Case 3 ‘\u8fd4\u56de\u6027\u522b
If oItem(16) Mod 2 = 0 Then CheckID = “Female” Else CheckID = “Male”
Case 4 ‘\u8fd4\u56de\u5468\u5c81\u5e74\u9f84
sBirthDate = Format(Mid(sText, 7, 8), “0-00-00”)
If Month(sBirthDate) < Month(Date) Then CheckID = DateDiff(“yyyy”, sBirthDate, Date) ElseIf Month(sBirthDate) > Month(Date) Then
CheckID = DateDiff(“yyyy”, sBirthDate, Date) – 1
ElseIf Day(sBirthDate) > Day(Date) Then
CheckID = DateDiff(“yyyy”, sBirthDate, Date) – 1
Else
CheckID = DateDiff(“yyyy”, sBirthDate, Date)
End If
End Select
Else
CheckID = “False” ‘\u9519\u8bef
End If
Else
CheckID = “Invalid” ‘\u975e\u4e2d\u56fd\u5c45\u6c11\u8eab\u4efd\u8bc1
End If
End Function<\/p>\n","protected":false},"excerpt":{"rendered":"