VB.NET刪除文件中的特定文件後的所有字節

Question

在我的VB.NET程序中我必須刪除所有在這些之後的字節：48534853直到它結束（我知道這會破壞文件）。

我該怎麼做？我已經寫了函數來替換另一個模式，並找到特定的字節，但我不知道如何消除模式後的一切。

Answer 1

使用FileStream.SetLength方法。

Using stream = New FileStream(path, FileMode.Open, FileAccess.Write) 
    fileStream.SetLength(newLength) 
End Using 

-

試試這個：

Dim pattern As Integer() = New Integer() {&H48, &H53, &H48, &H53} 
Dim p As Integer = 0 'Position in pattern. 
Using fs = New FileStream("path", FileMode.Open, FileAccess.ReadWrite) 
    For pos As Integer = 0 To fs.Length - 1 
     Dim b As Integer = fs.ReadByte() 
     If b = pattern(p) Then 
      p += 1 
      If p = pattern.Length Then 
       fs.SetLength(pos - pattern.Length + 1) 
       Return 
      End If 
     Else 
      p = 0 
     End If 
    Next 
End Using 

注意fs.ReadByte()返回字節作爲Integer。