字符串处理

发布网友 发布时间：2022-04-20 17:48

我来回答

共6个回答

热心网友 时间：2022-04-12 21:43

{"list1":19,"list2":66,"list3":27}
这种叫作JSON格式
为什么不把它按JSON来解析呢？
用JSON官网提供的VB解析JSON模块
或者用msscript控件
在窗体上放一个msscript控件，language属性设置成javascript
写代码
Dim JSON
set json=ScriptControl1.eval("(" & text1.text & ")")
msgbox json.list1
msgbox json.list2

这样简单吧？
text1.text里边是你上边那段字符串

热心网友 时间：2022-04-12 23:01

我将你的"list1":19,"list2":66,"list3":27放在一个文本框中，你也可以放在一个文本文件里

Private Sub Form_Load()
Dim i
Dim instr
Dim list() As Integer
Dim templist() As String
Dim tempstr() As String

tempstr = Split(Text1.Text, ",")

ReDim list(UBound(tempstr))
For i = 0 To UBound(tempstr)
templist = Split(tempstr(i), ":")
list(i) = templist(1)

Next
End Sub

热心网友 时间：2022-04-13 00:36

= =+
无答案。经常就是直接关闭。很不爽。虽然这题目最好解决。而且就算是有100个字符也可以一次性解决。
可是。。关闭问题。实在不爽。不回答了。

热心网友 时间：2022-04-13 02:27

用vb
Dim list() As Variant
Private Sub Command1_Click()
list() = Array(19, 66, 27)
End Sub

我刚试了 可以

热心网友 时间：2022-04-13 04:35

那就把这个字符串按位查找。用搜索字符串的方式。

热心网友 时间：2022-04-13 07:00

使用正则表达式:
(?<=:)\d+
轻松解决