深度发掘SQL Server 2000 UDF（下）

领测软件测试网

　　 
　　大小写转换函数
　　
　　该函数有两个参数：@String和@Capitalize_What。
　　
　　依据 @Capitalize_What的值，函数有不同的功能：
　　
　　¨ @Capitalize_What ＝ ‘string’“
　　

　　函数将 @string的第一个非空字符转换成大写， 其余部分改为小写。
　　
　　¨ @Capitalize_What ＝ ‘sentence’
　　
　　函数将 @string中的每一句的首个非空字符转换为大写，句子其余部分转换为小写。断句的依据是’.’、’!’、’?’
　　
　　¨ @Capitalize_What ＝ ‘word’
　　
　　函数将 @string中的每个词都转换成首字符大写，其余小写的形式。
　　
　　CREATE FUNCTION dbo.Capitalize (
　　
　　-- Capitalize the first character of every word,
　　
　　-- sentence, or the whole string. Put the rest to lowercase.
　　
　　@String VARCHAR (8000),
　　
　　@Capitalize_What VARCHAR (8) = ’string’
　　
　　-- String: Capitalize the first letter of the string
　　
　　-- Sentence: Capitalize the first letter of every sentence.
　　
　　-- Delimiters: ./!/?
　　
　　-- Word: Capitalize the first letter of every word.
　　
　　-- Delimiters: any characters other than letters and digits.
　　
　　)
　　
　　RETURNS VARCHAR(8000)
　　
　　AS
　　
　　BEGIN
　　
　　DECLARE @Position SMALLINT,
　　
　　@Char CHAR(1),
　　
　　@First_Char CHAR (1),
　　
　　@Word_Start SMALLINT
　　
　　SET @Capitalize_What = LOWER( @Capitalize_What )
　　
　　SET @Word_Start = 0
　　
　　IF @Capitalize_What IN (‘word’, ‘sentence’)
　　
　　BEGIN
　　
　　SET @Position = DATALENGTH( @String )
　　
　　WHILE @Position >= 0 BEGIN
　　
　　SET @Char = CASE @Position
　　
　　WHEN 0 THEN ’.’
　　
　　ELSE UPPER( SUBSTRING(
　　
　　@String, @Position,
　　
　　1 ) )
　　
　　END
　　
　　IF @Char BETWEEN ’A’ AND ’Z’
　　
　　OR @Char BETWEEN ’0’ and ’9’ BEGIN
　　
　　SET @Word_Start = @Position
　　
　　SET @First_Char = UPPER( @Char )
　　
　　END
　　
　　ELSE BEGIN
　　
　　IF @Capitalize_What = ’word’
　　
　　OR @Char in ( ’.’, ’!’, ’?’ ) BEGIN
　　
　　IF @Word_Start > 0
　　
　　AND @First_Char BETWEEN ’A’
　　
　　AND ’Z’
　　
　　SET @String = STUFF(
　　
　　@String, @Word_Start,
　　
　　1, @First_Char )
　　
　　SET @Word_Start = 0
　　
　　END
　　
　　END
　　
　　SET @Position = @Position - 1
　　
　　END
　　
　　END
　　
　　ELSE BEGIN -- Capitalize the first character
　　
　　SET @Position = 0
　　
　　WHILE @Position < DATALENGTH( @String )
　　
　　BEGIN
　　
　　SET @Position = @Position + 1
　　
　　SET @Char = UPPER( SUBSTRING( @String,
　　
　　@Position, 1 ) )
　　
　　IF @Char BETWEEN ’A’ AND ’Z’
　　
　　OR @Char BETWEEN ’0’ AND ’9’ BEGIN
　　
　　SET @String = STUFF( @String,
　　
　　@Position, 1, @Char )
　　
　　SET @Position = 9999
　　
　　END
　　
　　END
　　
　　END
　　
　　RETURN( @String )
　　
　　END
　　
　　go
　　
　　小结
　　
　　SQL Server 2000 的 UDF的应用是很广泛的，它会给编程人员带来极大的便利。您可以建立自己的’system’ UDF，存在Master数据库中，可以为任何数据库进行调用。
　　
　　UDF也有不足，我们知道系统函数可以任意调有，不管您使用大写、小写或者大小写混合。UDF却不行，它是大小写敏感的。
　　
　　在未来的版本中，我希望微软为UDF增加默认值的功能，以后我们可以这样定义一个函数。
　　
　　CREAT FUNCTION dbo.Test_default
　　
　　（ @parm int = 0 ）
　　
　　RETURN INT
　　
　　AS
　　
　　BEGIN
　　
　　RETURN ( @parm )
　　
　　END
　　
　　UDF中诸如此类的小问题还有不少，希望UDF的功能越来越强大，我们编程人员工作起来就会越来越轻松。

文章来源于领测软件测试网 https://www.ltesting.net/