如何用VBScript将逗号分隔字符串的最后一个逗号替换为and？

方法一：拆分重组法 #

通过拆分字符串为数组，根据数组长度分场景处理，适配各类边界情况：

Function AddAndToList(strList)
    ' 处理空输入
    If Trim(strList) = "" Then
        AddAndToList = ""
        Exit Function
    End If
    
    ' 按", "拆分字符串为数组
    Dim arrItems
    arrItems = Split(strList, ", ")
    
    Dim arrLen
    arrLen = UBound(arrItems) + 1 ' 计算数组元素总数
    
    Select Case arrLen
        Case 1 ' 单个元素直接返回
            AddAndToList = arrItems(0)
        Case 2 ' 两个元素用"and"连接
            AddAndToList = arrItems(0) & " and " & arrItems(1)
        Case Else ' 多元素拼接前n-1项，再加"and"和最后一项
            Dim strPrefix
            strPrefix = Join(Left(arrItems, arrLen - 1), ", ")
            AddAndToList = strPrefix & " and " & arrItems(arrLen - 1)
    End Select
End Function

' 测试示例
Dim strList, strReList
strList = "512, 66, 1820, 1235, 7, 4918"
strReList = AddAndToList(strList)
WScript.Echo strReList ' 输出：512, 66, 1820, 1235, 7 and 4918

方法二：正则表达式替换法 #

利用正则匹配最后一个, 分隔符，直接替换为and，适合格式统一的字符串：

Function AddAndToListRegex(strList)
    Dim regEx
    Set regEx = New RegExp
    regEx.Global = False ' 仅替换最后一个匹配项
    regEx.Pattern = "(.*), " ' 捕获最后一个分隔符前的所有内容
    
    ' 处理空输入或无分隔符的情况
    If Trim(strList) = "" Or InStr(strList, ", ") = 0 Then
        AddAndToListRegex = strList
        Exit Function
    End If
    
    AddAndToListRegex = regEx.Replace(strList, "$1 and ")
    Set regEx = Nothing
End Function

' 测试示例
Dim strList, strReList
strList = "512, 66, 1820, 1235, 7, 4918"
strReList = AddAndToListRegex(strList)
WScript.Echo strReList ' 输出：512, 66, 1820, 1235, 7 and 4918

注意事项 #

• 若列表分隔符是逗号后无空格（如"a,b,c"），需将代码中的", "替换为",，正则表达式调整为"(.*),"
• 拆分重组法更灵活，能处理空字符串、单个元素等异常输入；正则法则更简洁高效

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