asp读取字符串中指定的字符

例如：string=“显示器|4$键盘|2$主板|3$鼠标|6$硬盘|1$内存|2$键盘|1$鼠标|1$”想要的结果是：显示器，4，1 键盘，3，2 主板，3，1 鼠标，7，2 硬盘，1，1 内存，2，1
也就是显示的第一个字段是名称（如：显示器、键盘等）；要的第二个字段是名称后面的数字（如：显示器后面是4），如果遇到重复的名称则累加数量（如：键盘和鼠标都出现重复，则数量累加：键盘是2+1，鼠标是6+1）；要的第三个字段是名称出现的次数（如显示器出现1次，就是1，键盘和鼠标分别出现2次，就是2）
流香羽的代码运行问题：
If arrResult(0, i) = Then
这里是arrResult(0, i) 等于空么？

''不好意思，代码没有环境调试
''很多错误没有直接发现，我帮你修正了，你不需要重新提问题
string=“显示器|4$键盘|2$主板|3$鼠标|6$硬盘|1$内存|2$键盘|1$鼠标|1$”
Dim i
Dim arrString, arrTemp
Dim arrResult(2,0)
arrString = Split(string, "$")
For i = 0 to UBound(arrString)
arrTemp = Split(arrString(i))
If UBound(arrTemp) = 1 Then
addArray arrTemp(0), arrTemp(1)
End If
Next

For i = 0 to UBound(arrResult, 2)
Response.Write arrResult(0, i) & "," & arrResult(1, i) & "," & arrResult(2, i)
Next

Function addArray (strName, intId)
Dim i, j
Dim blnHas
blnHas = false
For i = 0 to UBound(arrResult, 2)
If arrResult(0, i) = strName Then
blnHas = True
arrResult(1, i) = arrResult(1, i) & " , " & intId
arrResult(2, i) = arrResult(2, i) + 1
End If
Next
If not blnHas Then
j = UBound(arrResult, 2) + 1
Redim Preserve arrResult(2, j)
arrResult(0, j) = strName
arrResult(1, j) = intId
arrResult(2, j) = 1
End If
End Function

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/ppv72q8vv.html