以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  GetComboListString去除多余分隔符的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157582)

--  作者:狐表(小白)
--  发布时间:2020/10/21 16:03:00
--  GetComboListString去除多余分隔符的问题
有数据列一、二、三列,用以下代码执行后,当某一列存在空值时分隔符号“+“就显示的不是很美观,怎么处理?比如第一、二、三列有不同空值时,如下多余的红色字体的分隔符怎么去除?谢谢!
例如:当第一列是空值时:+2+3      么实现这样的结果2+3 
         当第二列是空值时:1++3     么实现这样的结果1+3    
         当第三列是空值时: 1+2+    么实现这样的结果1+2
   当第一、二列是空值时:+3          么实现这样的结果3
   当第二、三列是空值时:1+          么实现这样的结果1
 
Dim f As String = DataTables("表A").GetComboListString("第一列","","第一列") & "|" & DataTables("表A").GetComboListString("第二列","","第二列") & "|" & DataTables("表A").GetComboListString("第三列","","第三列")
Output.Show(String.join("+",f.split("|").Distinct.ToArray))

--  作者:有点蓝
--  发布时间:2020/10/21 16:05:00
--  
Dim s As String= "+2+3++4+"
s = s.trim("+").replace("++","+")
msgbox(s)

--  作者:狐表(小白)
--  发布时间:2020/10/21 16:37:00
--  
多谢
--  作者:狐表(小白)
--  发布时间:2020/10/21 16:54:00
--  
已解决

[此贴子已经被作者于2020/10/21 17:04:23编辑过]