- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 为何不能删除结尾的“/” (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152563)
-- 发布时间：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
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
-- 发布时间：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)
-- 发布时间：2020/7/15 11:39:00
--
明白原理了，非常谢谢