Foxtable(狐表)用户栏目专家坐堂 → 为何不能删除结尾的“/”


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

主题:为何不能删除结尾的“/”

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


加好友 发短信
等级:三尾狐 帖子:712 积分:5553 威望:0 精华:0 注册:2019/11/14 9:36:00
为何不能删除结尾的“/”  发帖心情 Post By:2020/7/15 11:09:00 [只看该作者]

 
图片点击可在新窗口打开查看此主题相关图片如下:0045.png
图片点击可在新窗口打开查看

以下两种方法为何都不能删除结尾的“/”
方法一
For Each li As String In Forms("窗口1").Controls("TextBox1").Lines
    If li.EndsWith("/") Then
        li = li.TrimEnd("/")
    End If
Next

方法二
Dim t As WinForm.TextBox = Forms("窗口1").Controls("TextBox1")
For i As Integer = 0 To t.Lines.Length - 1
    If t.Lines(i).EndsWith("/") Then
        t.Lines(i) = t.Lines(i).TrimEnd("/")
    End If
Next

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106658 积分:542473 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/15 11:17:00 [只看该作者]

Dim arr() As String =  Forms("窗口1").Controls("TextBox1").Lines
For i As Integer = 0 To arr.length - 1
    If arr(i).EndsWith("/") Then
        arr(i) = arr(i).TrimEnd("/")
    End If
Next

Forms("窗口1").Controls("TextBox1").text = String.join(vbcrlf,arr)

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


加好友 发短信
等级:三尾狐 帖子:712 积分:5553 威望:0 精华:0 注册:2019/11/14 9:36:00
  发帖心情 Post By:2020/7/15 11:39:00 [只看该作者]

明白原理了,非常谢谢

 回到顶部