SQL Server 2000 中使用正则表达式

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

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

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

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

1. DECLARE@intLengthASINTEGER
2. DECLARE@vchRegularExpressionASVARCHAR(50)
3. DECLARE@vchSourceStringasVARCHAR(50)
4. DECLARE@vchSourceString2asVARCHAR(50)
5. DECLARE@bitHasNoSpecialCharactersasBIT
7. --初始化变量
8. SET@vchSourceString='TestoneThisisatest!!'
9. SET@vchSourceString2='TesttwoThisisatest'
11. --我们的正则表达式应该类似于
12. --[a-zA-Z]{}
13. --如：[a-zA-Z]{10}...一个十字符的字符串
15. --获得字符串长度
16. SET@intLength=LEN(@vchSourceString)
18. --设置完整的正则表达式
19. SET@vchRegularExpression='[a-zA-Z]{'+CAST(@intLengthasvarchar)+'}'
21. --是否有任何特殊字符
22. SET@bitHasNoSpecialCharacters=dbo.find_regular_expression(@vchSourceString,@vchRegularExpression,0)
24. PRINT@vchSourceString
25. IF@bitHasNoSpecialCharacters=1BEGIN
26. PRINT'Nospecialcharacters.'
27. ENDELSEBEGIN
28. PRINT'Specialcharactersfound.'
29. END
31. PRINT'**************'
33. --获得字符串长度
34. SET@intLength=LEN(@vchSourceString2)
36. --设置完整的正则表达式
37. SET@vchRegularExpression='[a-zA-Z]{'+CAST(@intLengthasvarchar)+'}'
39. --是否有任何特殊字符
40. SET@bitHasNoSpecialCharacters=dbo.find_regular_expression(@vchSourceString2,@vchRegularExpression,0)
42. PRINT@vchSourceString2
43. IF@bitHasNoSpecialCharacters=1BEGIN
44. PRINT'Nospecialcharacters.'
45. ENDELSEBEGIN
46. PRINT'Specialcharactersfound.'
47. END
49. GO