從第一陣列和最後陣列刪除字符串

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

傢伙，我怎麼能刪除字符（「）的第一和最後一個陣列？因爲如果我在一個文本文件寫的，第一和最後一個字符串有這個字符（」）。這是樣本輸出」。從第一陣列和最後陣列刪除字符串

「8時01分04秒 8時16分06秒 10時52分06秒 11點52分21秒」

在此先感謝大家好。:)

來源

2016-08-11 CeciliA

你不是在代碼的任何地方寫它。你是什麼意思「第一個和最後一個數組」 - 你是指數組中的第一個元素和數組中的最後一個元素？你只是寫出一個字符串？沒有任何意義 – dbmitch

哦對不起，我沒有看到它看起來像1字符串。是的，我想說的是數組中的第一個也是最後一個元素。只是忽略空間而放新線。 – CeciliA

每次都在一個數組中。所以它看起來像arr（0）=「08:01:04，arr（1）= 08:16:06，arr（2）= 10:52:06和arr（3）= 11:52:21」 – CeciliA

你的循環改爲

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

來源

2016-08-11 16:06:18 dbmitch

我得到了一個錯誤「變量需要 - 不能分配給這個表達式」 – CeciliA

你的代碼是什麼，什麼行給出錯誤？你意識到我只是使用你的代碼 - 當你說「08:01:04 08:16:06 10:52:06 11:52:21」是你的變量的結果時，我必須相信你......也許顯示「EndOfB.txt」的內容 – dbmitch

EndOfB.txt沒有內容。我只是把字符串。即時通訊使用它作爲數據庫。 – CeciliA

我有同樣的問題，我只能谷歌這是你應該問的問題之前，但因爲我理解，並有一段時間我自己有這個問題，我會給你一個簡單的例子，做什麼。

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

我希望這可以工作對於你來說，只需將text1.text替換爲你想編輯的字符串的名字即可。

來源

2016-08-11 14:10:59 vbdevelp

從第一陣列和最後陣列刪除字符串

回答

相關問題