SQL Server 2000 中使用正则表达式

这两天有个需求，需要在数据库中判断字符串的格式，于是从网上搜集了一些资料，整理了一下。

下面这个是一个自定义函数，用户可以调用这个函数判断指定的字符串是否符合正则表达式的规则.

1. CREATE FUNCTION dbo.find_regular_expression
2.  (
3.   @source varchar(5000),   --需要匹配的源字符串
4.   @regexp varchar(1000),  --正则表达式
5.   @ignorecase bit = 0  --是否区分大小写，默认为false
6.  )
7. RETURNS bit  --返回结果0-false，1-true
8. AS
9.  BEGIN
11.  --0（成功）或非零数字（失败），是由 OLE 自动化对象返回的 HRESULT 的整数值。
12.   DECLARE @hr integer 
14. --用于保存返回的对象令牌，以便之后对该对象进行操作
15.   DECLARE @objRegExp integer   DECLARE @objMatches integer
17. --保存结果
18.   DECLARE @results bit
19.   
20. /*
21. 创建 OLE 对象实例,只有 sysadmin 固定服务器角色的成员才能执行 sp_OACreate,并确定机器中有VBScript.RegExp类库
22. */
23.   EXEC @hr = sp_OACreate 'VBScript.RegExp', @objRegExp OUTPUT
24.   IF @hr <> 0 BEGIN
25.    SET @results = 0
26.    RETURN @results
27.   END
28. /*
29. 以下三个分别是设置新建对象的三个属性。下面是'VBScript.RegExp'中常用的属性举例：
30.     Dim regEx,Match,Matches         '建立变量。
31.     Set regEx = New RegExp         '建立一般表达式。
32.     regEx.Pattern= patrn         '设置模式。
33.     regEx.IgnoreCase = True         '设置是否区分大小写。
34.     regEx.Global=True                             '设置全局可用性。
35.     set Matches=regEx.Execute(string)             '重复匹配集合
36.     RegExpTest = regEx.Execute(strng)      '执行搜索。
37.    for each match in matches                    '重复匹配集合
38.    RetStr=RetStr &"Match found at position "
39.    RetStr=RetStr&Match.FirstIndex&".Match Value is '"
40.    RetStr=RetStr&Match.Value&"'."&vbCRLF Next
41.    RegExpTest=RetStr
43. */
44.   EXEC @hr = sp_OASetProperty @objRegExp, 'Pattern', @regexp
45.   IF @hr <> 0 BEGIN
46.    SET @results = 0
47.    RETURN @results
48.   END
49.   EXEC @hr = sp_OASetProperty @objRegExp, 'Global', false
50.   IF @hr <> 0 BEGIN
51.    SET @results = 0
52.    RETURN @results
53.   END
54.   EXEC @hr = sp_OASetProperty @objRegExp, 'IgnoreCase', @ignorecase
55.   IF @hr <> 0 BEGIN
56.    SET @results = 0
57.    RETURN @results
58.   END 
59. --调用对象方法
60.   EXEC @hr = sp_OAMethod @objRegExp, 'Test', @results OUTPUT, @source
61.   IF @hr <> 0 BEGIN
62.    SET @results = 0
63.    RETURN @results
64.   END
65. --释放已创建的 OLE 对象
66.   EXEC @hr = sp_OADestroy @objRegExp
67.   IF @hr <> 0 BEGIN
68.    SET @results = 0
69.    RETURN @results
70.   END
71.  RETURN @results
72.  END

下面是一个简单的测试sql语句，可以直接在查询分析器中运行。

 

1. DECLARE @intLength AS INTEGER
2. DECLARE @vchRegularExpression AS VARCHAR(50)
3. DECLARE @vchSourceString as VARCHAR(50)
4. DECLARE @vchSourceString2 as VARCHAR(50)
5. DECLARE @bitHasNoSpecialCharacters as BIT
7. -- 初始化变量
8. SET @vchSourceString = 'Test one This is a test!!'
9. SET @vchSourceString2 = 'Test two This is a test'
11. -- 我们的正则表达式应该类似于
12. -- [a-zA-Z ]{}
13. -- 如： [a-zA-Z ]{10}  ...  一个十字符的字符串
15. -- 获得字符串长度
16. SET @intLength = LEN(@vchSourceString)
18. -- 设置完整的正则表达式
19. SET @vchRegularExpression = '[a-zA-Z ]{' + CAST(@intLength as varchar) + '}'
21. -- 是否有任何特殊字符
22. SET @bitHasNoSpecialCharacters = dbo.find_regular_expression(@vchSourceString, @vchRegularExpression,0)
24. PRINT @vchSourceString
25. IF @bitHasNoSpecialCharacters = 1 BEGIN
26.  PRINT 'No special characters.'
27. END ELSE BEGIN
28.  PRINT 'Special characters found.'
29. END
31. PRINT '**************'
33. -- 获得字符串长度
34. SET @intLength = LEN(@vchSourceString2)
36. -- 设置完整的正则表达式
37. SET @vchRegularExpression = '[a-zA-Z ]{' + CAST(@intLength as varchar) + '}'
39. -- 是否有任何特殊字符
40. SET @bitHasNoSpecialCharacters = dbo.find_regular_expression(@vchSourceString2, @vchRegularExpression,0)
42. PRINT @vchSourceString2
43. IF @bitHasNoSpecialCharacters = 1 BEGIN
44.  PRINT 'No special characters.'
45. END ELSE BEGIN
46.  PRINT 'Special characters found.'
47. END
49. GO