以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  去掉指定字符  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136973)
--  作者：蓝蚂蚁
--  发布时间：2019/6/25 17:17:00
--  去掉指定字符

   

Dim str As String
    str=""
    Dim cntdrs As List(Of DataRow)= DataTables("贮存内容表").Select("勾选=True")
    For Each cntdr As DataRow In cntdrs
        str &= "、" & cntdr("贮存条件")
        str = str.trim("、")
        d2("贮存条件") ="贮存于" & str
    Next

 

根据“贮存内容表”的勾选行，上面代码运行后，其d2("贮存条件") 的内容为：“贮存于相对湿度不超过80%、通风良好、远离含氯类消毒制品、的室内。”

问题：如何修改代码把最后一个“、”去掉。谢谢！（即变成：贮存于相对湿度不超过80%、通风良好、远离含氯类消毒制品的室内。）

补充：根据代码生成的“、”的个数不固定的。

[此贴子已经被作者于2019/6/25 17:23:10编辑过]
--  作者：狐狸爸爸
--  发布时间：2019/6/25 17:31:00
--  
\'\'\'...
Dim s As String = "贮存于相对湿度不超过80%、通风良好、远离含氯类消毒制品、的室内。"
dim i as integer = s.LastIndexOf("、")
s = s.SubString(0,i)  & s.SubString(i+1)
return s
--  作者：有点甜
--  发布时间：2019/6/25 17:35:00
--  

比如

 

\'\'\'
Dim str As String = "贮存于相对湿度不超过80%、通风良好、远离含氯类消毒制品、的室内。"
Dim idx = str.LastIndexOf("、")
If idx >= 0 Then
    str = str.SubString(0, idx) & str.SubString(idx+1)
End If
msgbox(str)