如何在TSQL中实现VBA Format函数的@、!用户自定义字符串格式等效功能？

首先明确VBA中两个占位符的核心规则：

• !：指定按左到右顺序填充占位符（无该标识时默认从右到左填充）
• @：字符占位符，单个@对应原字符串中的1个字符，原字符串长度不足@总数时右侧补空格，超出时多余字符按对齐规则保留

SQL Server自带的FORMAT函数基于.NET格式化体系，没有直接对应VBA这两个自定义字符串占位符的语法，无法直接通过原生FORMAT实现，以下是两种可行落地方案：

方案1：固定格式快速实现（性能最优，适合格式规则不变的场景） #

你给出的示例格式!@@-@-@@@@本质是取输入字符串前2位、第3位、第4-7位用横杠拼接，直接用原生字符串函数即可实现：

DECLARE @Input NVARCHAR(100) = '12DFR89' -- 支持数字、字符串混合输入
SELECT CONCAT(
    LEFT(@Input,2),
    '-',
    SUBSTRING(@Input,3,1),
    '-',
    SUBSTRING(@Input,4,4)
) AS FormatResult

执行输出结果为12-D-FR89，和VBA运行效果完全一致。

方案2：通用自定义函数实现（适配动态变化的格式规则） #

如果格式是动态传入的，可以封装通用自定义函数兼容所有@、!占位符组合，逻辑和VBA原生处理规则对齐：

CREATE FUNCTION dbo.VBA_Format_Str
(
    @Input SQL_VARIANT, -- 兼容Variant类混合类型输入
    @Format NVARCHAR(200)
)
RETURNS NVARCHAR(MAX)
AS
BEGIN
    -- 空值预处理
    IF @Input IS NULL SET @Input = ''
    IF @Format IS NULL RETURN CAST(@Input AS NVARCHAR(MAX))

    DECLARE @InputStr NVARCHAR(MAX) = CAST(@Input AS NVARCHAR(MAX))
    DECLARE @LeftAlign BIT = 0
    DECLARE @InputLen INT = LEN(@InputStr)
    DECLARE @FormatPos INT = 1
    DECLARE @InputPos INT = 1
    DECLARE @Result NVARCHAR(MAX) = ''

    -- 识别左对齐标识
    IF LEFT(@Format,1) = '!'
    BEGIN
        SET @LeftAlign = 1
        SET @FormatPos = 2
    END

    -- 遍历格式串生成结果
    WHILE @FormatPos <= LEN(@Format)
    BEGIN
        DECLARE @CurrChar NCHAR(1) = SUBSTRING(@Format, @FormatPos, 1)
        IF @CurrChar = '@'
        BEGIN
            SET @Result += CASE WHEN @InputPos <= @InputLen THEN SUBSTRING(@InputStr, @InputPos,1) ELSE ' ' END
            SET @InputPos += 1
        END
        ELSE
        BEGIN
            SET @Result += @CurrChar
        END
        SET @FormatPos += 1
    END

    RETURN @Result
END

调用示例 #

SELECT dbo.VBA_Format_Str('12DFR89', '!@@-@-@@@@') AS FormatResult
-- 输出：12-D-FR89

注意事项 #

• 大批量数据处理且格式固定时，优先选择方案1的原生字符串拼接方案，性能远高于自定义函数。
• 函数入参使用SQL_VARIANT类型，兼容数字、字符串混合的输入场景，和VBA Variant类型处理逻辑一致。

内容的提问来源于stack exchange，提问作者Samuel V