MyTetra Share
Делитесь знаниями!
Функция проверки правильности имени
11.05.2018
16:10
Текстовые метки: VB, VBA, проверка имени, CheckName
Раздел: VBA - Разобрать

'---------------------------------------------------------------------------------------

' Procedure : CheckName

' Purpose : Функция проверки правильности имени

'---------------------------------------------------------------------------------------

Function CheckName(sName As String)

Dim objRegExp As Object

Dim s As String

Set objRegExp = CreateObject("VBScript.RegExp")

objRegExp.Global = True: objRegExp.IgnoreCase = True

objRegExp.Pattern = "[:,\\,/,?,\*,\<,\>,\',\|,""""]"

s = objRegExp.Replace(sName, "")

CheckName = s

End Function

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования