以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]字符串转为集合或数组  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86397)
--  作者：lzzhx
--  发布时间：2016/6/16 15:34:00
--  [求助]字符串转为集合或数组
请都老师，把字符串   “部门编号|67|部门名称|100|上级部门编号|85|上级部门名称|105|部门编制人数|94”  转为下面的集合

{部门编号，67，部门名称，100，上级部门编号，85，上级部门名称，105，部门编制人数，94 } 后，

如何才能在删除其中一项时，把后面的数字也删除？

如：  删除  上级部门编号 后，把后面的 85  也删除

或者想完成这个功能，还有其它的方式？
--  作者：大红袍
--  发布时间：2016/6/16 16:16:00
--  

 方法一：用两个数组记录内容，一个记录列，一个记录宽度

 

 方法二：用一个字典记录内容

 

Dim str As String = "部门编号|67|部门名称|100|上级部门编号|85|上级部门名称|105|部门编制人数|94"
Dim dic As new Dictionary(Of String, String)
Dim ary As String() = str.split("|")
For i As Integer = 0 To ary.length-1 Step 2
    dic.Add(ary(i), ary(i+1))
Next

 

http://www.foxtable.com/help/topics/1945.htm