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

伙计们如何删除第一个和最后一个数组中的字符（＆＃34;）？因为如果我在文本文件中写入，则第一个和最后一个字符串具有此字符（＆＃34;）。这是示例输出＆＃34;。

＆＃34; 08：01：04 8时16分06秒 10时52分06秒 11：52：21＆＃34;

提前感谢大家。：）

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

我有同样的问题，我只能谷歌它，这是你应该做的事情，但是因为我明白并且自己有这个问题一段时间我会给你一个简单的例子来做什么。< / p>

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

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

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

2 个答案: