SQL Server 字串首字母大寫轉換函數：利用 CLR 整合 JavaScript 正則實作

SQL Server 原生無內建「字串首字母大寫」(Title Case) 函數。本文提供一個純 T-SQL 純量函數 fn_toTitleCase，透過啟用 Ole Automation Procedures 建立 MSScriptControl.ScriptControl COM 物件，在 JavaScript 執行環境中使用正則表達式完成轉換，再將結果回傳 SQL Server。

前置需求：啟用 Ole Automation

EXEC sp_configure 'show advanced options', 1; RECONFIGURE;
EXEC sp_configure 'Ole Automation Procedures', 1; RECONFIGURE;

安全性警告：啟用 Ole Automation 允許 T-SQL 執行 COM 物件，擴大攻擊面。生產環境請嚴格評估風險，或改用 CLR 整合 (更安全)、應用層處理、或純 T-SQL 實作。

函數完整程式碼

USE tempdb;
GO

IF OBJECT_ID('dbo.fn_toTitleCase', 'FN') IS NOT NULL
    DROP FUNCTION dbo.fn_toTitleCase;
GO

CREATE FUNCTION dbo.fn_toTitleCase (@inStr VARCHAR(8000))
RETURNS VARCHAR(8000)
AS
BEGIN
    DECLARE @str VARCHAR(8000);
    DECLARE @object INT;
    DECLARE @r VARCHAR(800);

    -- 建構 JavaScript 程式碼字串
    SET @str = 'var data = "' + @inStr + '"; ' +
               'var reg = /\b(\w)|\s(\w)/g; ' +
               'data = data.toLowerCase(); ' +
               'data.replace(reg, function(m) { return m.toUpperCase(); });';

    -- 建立 ScriptControl COM 物件
    EXEC sp_OACreate 'MSScriptControl.ScriptControl', @object OUTPUT;
    EXEC sp_OASetProperty @object, 'Language', 'javascript';
    -- 執行 JS 並取得回傳值
    EXEC sp_OAMethod @object, 'eval', @r OUTPUT, @str;
    -- 釋放 COM 物件
    EXEC sp_OADestroy @object;

    RETURN @r;
END
GO

測試執行

SELECT dbo.fn_toTitleCase('create function fn_toTitleCase(@inStr varchar(8000)) returns varchar(8000)');

輸出結果：

Create Function Fn_Totitlecase(@Instr Varchar(8000)) Returns Varchar(8000)

運作原理說明

1. 將輸入字串嵌入 JavaScript 程式碼模板
2. 正則 /\b(\w)|\s(\w)/g 比對：單字開頭字母 (\b\w) 或 空白後字母 (\s\w)
3. 先 toLowerCase() 統一小寫，再 replace() 逐一大寫
4. 透過 sp_OAMethod ... 'eval' 在 ScriptControl 執行並取回結果

替代方案比較 (建議優先考慮)

純 T-SQL 參考實作 (無相依、生產環境建議)

CREATE FUNCTION dbo.fn_TitleCase_TSQL (@input NVARCHAR(MAX))
RETURNS NVARCHAR(MAX)
AS
BEGIN
    DECLARE @result NVARCHAR(MAX) = LOWER(@input);
    DECLARE @pos INT = 1;
    DECLARE @len INT = LEN(@result);
    DECLARE @prevChar NCHAR(1) = ' '; -- 視前一字元為空白，首字元會大寫

    WHILE @pos <= @len
    BEGIN
        DECLARE @currChar NCHAR(1) = SUBSTRING(@result, @pos, 1);
        IF @prevChar IN (' ', '-', '_', '.', '''', '(', '[', '{', CHAR(9), CHAR(10), CHAR(13))
            SET @result = STUFF(@result, @pos, 1, UPPER(@currChar));
        SET @prevChar = @currChar;
        SET @pos += 1;
    END
    RETURN @result;
END

適用場景建議

• 一次性資料清洗、匯入轉換、報表格式化 → 可接受 COM 方案
• 高頻交易、即時查詢、生產環境核心邏輯 → 必須用 CLR 或純 T-SQL
• 新專案開發 → 直接在應用層處理，資料庫只存原始資料