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。