从第一个数组和最后一个数组字符串中删除字符

Question

Dim arr() As String
Dim a As Integer
Dim temp As String
Dim temp2 As String

a = 0

Open App.Path & "\EndOfB.txt" For Input As #1

Do While Not EOF(1)

    Line Input #1, temp
    temp2 = temp2 & "," & temp
    a = a + 1
    arr = Split(temp2, ",")

Loop 
Close #1

伙计们，我怎样才能删除第一个和最后一个数组中的字符（“）？因为如果我在文本文件中写入，第一个和最后一个字符串都有这个字符（”）。这是示例输出”。

”08:01:04 08:16:06 10:52:06 11:52:21"

提前感谢大家。 :)

Answer 1

将循环更改为

Do While Not EOF(1)

    Line Input #1, temp
    temp2 = temp2 & "," & temp
    a = a + 1
    arr = Split(temp2, ",")

    ' Strip first character from first array element
    arr(LBound(arr)) = Right$(arr(LBound(arr)), Len(arr(LBound(arr)) - 1))
    ' Strip last  character from last array element
    arr(UBound(arr)) = Left$(arr(UBound(arr)), Len(arr(UBound(arr)) - 1))


Loop 

Answer 2

我也遇到了同样的问题，我可以通过谷歌搜索它，这是你在提问之前应该做的事情，但因为我理解并且自己也遇到了这个问题一段时间，所以我会给你一个简单的例子来说明该怎么做。

Text1.Text = Mid(Text1.Text, 2)
Text1.Text = Left$(Text1.Text, Len(Text1.Text) - 1)

我希望这对您有用，只需将 text1.text 替换为您要编辑的字符串的名称即可。

Answer 3

旧线程，但为了他人的利益，我们继续。

要从字符串末尾删除特定字符或字符数组（如果已知）：

Text1.TrimEnd(Path.DirectorySeparatorChar)

这将删除操作系统特定的目录分隔符。简单又简洁。

String.TrimEnd 方法

还有相关：

String.TrimStart方法

String.Trim方法