txtファイルの最後の単語を削除する

Question

おはよう

私は4行の "txt"という名前のtxtファイルを持っています。 私の問題は、最後の3行の最後の2語を削除したいということです。

"vol" 
"vui one high" one high 
"vui one front " two high 
"vuil high front "  three high 

および削除するには、言葉が引用符の後、2：

これは、txtの中に私のテキストです。

---

私は、コードを持っていますが、現時点では、それはここでしか言葉 を交換することができますが、私のコードの先頭である：そのあなたができるすべてのヘルプ/アドバイス

Sub CommandButton1_Click() 

    Dim sBuf As String 
    Dim sTemp As String 
    Dim iFileNum As Integer 
    Dim sFileName As String 

    ' Edit as needed 
    sFileName = "C:\Users\bquinty\Desktop\txt.txt" 

    iFileNum = FreeFile 
    Open sFileName For Input As iFileNum 

    Do Until EOF(iFileNum) 
    Line Input #iFileNum, sBuf 
    sTemp = sTemp & sBuf & vbCrLf 
    Loop 
    Close iFileNum 

    sTemp = Replace(sTemp, "word to remplace", "word wanted") 

    'Save txt file as (if possible) 

    iFileNum = FreeFile 
    sFileName = "C:\Users\bquinty\Desktop\txt.txt" 
    Open sFileName For Output As iFileNum 

    Print #iFileNum, sTemp 

    Close iFileNum 


    End Sub 

---

感謝ください。

Answer 1

始まりと答えRead/Parse text file line by line in VBA

を使用して：

Sub test() 

    Dim FileNum As Integer 
    Dim DataLine As String 
    Dim newDataLine() As String 

    FileNum = FreeFile() 
    Open "c:\Delete_NOW.txt" For Input As #FileNum 

    While Not EOF(FileNum) 
     Line Input #FileNum, DataLine 
     newDataLine = Split(DataLine, " ") 
     If UBound(newDataLine, 1) > 3 Then ReDim Preserve newDataLine(UBound(newDataLine, 1) - 3) 
    Wend 
End Sub