Foxtable(狐表)用户栏目专家坐堂 → 去掉指定字符


  共有2266人关注过本帖树形打印复制链接

主题:去掉指定字符

帅哥哟,离线,有人找我吗?
蓝蚂蚁
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7909 威望:0 精华:0 注册:2016/6/11 11:10:00
去掉指定字符  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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)


 回到顶部