以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]定义一个动态集合  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169957)
--  作者：chnfo
--  发布时间：2021/7/7 15:19:00
--  [求助]定义一个动态集合
准备做一个自定义函数。
dim x as string = args(0)  \'这是一个字符串，可以有个，用分号隔开

想把字符串中的每一个元素，定义一个集合。比如x = "A1,A2,A3"

想随着这个列，扩展定义一个变动的集合组
如dim listA1,listA2,ListA3 as new list(of string) 

因为X有多少个是未知的，有2个就定义两个集合；有3个应定义三个

能不能行？
--  作者：y2287958
--  发布时间：2021/7/7 15:23:00
--  
用字典
--  作者：chnfo
--  发布时间：2021/7/7 15:23:00
--  
能说详细点吗
--  作者：y2287958
--  发布时间：2021/7/7 15:27:00
--  
Dim ss As String = "a1,a2,a3"
Dim dic As New Dictionary(Of String, object)
For Each s As String In ss.Split(",")
    Dim lst As new List(of String)
    dic.add(s,lst)
Next