如何在VBScript中创建子串数组并修改元素内容？

1. 生成指定的子串数组 #

通过循环遍历原字符串，按每2个字符为一组拆分，即可构建目标数组。示例代码如下：

Dim Full_string, NA(), i, strLen
Full_string = "XYZABC"
strLen = Len(Full_string)
' 计算数组长度：总长度除以每组字符数（此处为2）
ReDim NA((strLen \ 2) - 1)

For i = 0 To UBound(NA)
    ' 从原字符串对应位置截取2个字符
    NA(i) = Mid(Full_string, (i * 2) + 1, 2)
Next

' 验证输出
For i = 0 To UBound(NA)
    WScript.Echo "NA(" & i & ") = """ & NA(i) & """"
Next

运行后输出结果：

NA(0) = "XY"
NA(1) = "ZA"
NA(2) = "BC"

2. 修改数组元素的单个字符 #

VBScript中的字符串是不可变类型，无法直接通过NA(0)(0) = "D"的方式修改单个字符。需要先将目标子串转换为字符数组，修改对应位置后再转回字符串：

' 以修改NA(0)的第一个字符为例
Dim charArr
' 将子串拆分为字符数组
charArr = Split(StrConv(NA(0), vbUnicode), Chr(0))
' 移除Split自动生成的末尾空元素
ReDim Preserve charArr(UBound(charArr) - 1)

' 修改索引0位置的字符
charArr(0) = "D"

' 将字符数组转回字符串，赋值回原数组
NA(0) = Join(charArr, "")

' 验证修改结果
WScript.Echo "修改后NA(0) = """ & NA(0) & """" ' 输出：修改后NA(0) = "DY"

如果需要频繁修改，可封装成复用函数：

Function ModifyStringChar(str, index, newChar)
    If index < 0 Or index >= Len(str) Then
        ModifyStringChar = str ' 索引越界时返回原字符串
        Exit Function
    End If
    Dim charArr
    charArr = Split(StrConv(str, vbUnicode), Chr(0))
    ReDim Preserve charArr(UBound(charArr) - 1)
    charArr(index) = newChar
    ModifyStringChar = Join(charArr, "")
End Function

' 使用示例
NA(0) = ModifyStringChar(NA(0), 0, "D")
WScript.Echo "NA(0) = """ & NA(0) & """" ' 输出：NA(0) = "DY"

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