Dim pattern As String = "\""item-item-\d+\"":"
Dim txt = "{""item-item-1494251246528"":{""title"":""部门"",""type"":""text"",""configvalue"":"""",""validate"":""true"",""un_print"":"""",""value"":""财务部""},""item-item-1494251261857"":{""title"":""设备名称"",""type"":""select"",""configvalue"":""电脑,打印机,复印机,传真机"",""validate"":""true"",""un_print"":"""",""value"":""打印机""},""item-item-1494251274018"":{""title"":""故障描述"",""type"":""textarea"",""configvalue"":"""",""validate"":""true"",""un_print"":"""",""value"":""卡纸""},""item-item-1494251296865"":{""title"":""附件"",""type"":""file"",""configvalue"":"""",""validate"":"""",""un_print"":"""",""value"":""""}}"
Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
Output.Show(rgx.replace(txt,""))
话说回来。这种直接使用json解析即可，搞那么复杂干嘛
加好友 
发短信
Post By：2017/6/23 15:01:00 [显示全部帖子]
