2013-07-02 2 views
0

Я написал некоторый код в Visual Basic 6, который меняет содержимое файла, однако у меня проблемы с преобразованием этого кода в .NET, поскольку VB.NET читает только текстовую часть файла , Может кто-нибудь, пожалуйста, покажет мне эквивалент VB.NET этого кода. Я считаю, что это не только поможет мне, но и всему сообществу SOF :).Код VB.NET для изменения содержимого файла

Public Function NeutralizeFile(strFile As String, strOut As String) As Boolean 
On Error GoTo ErrDelete 
Dim File As String 
Open strFile For Binary As #1 
File = Space(LOF(1)) 
Get #1, , File 
Close #1 
File = StrReverse(File) 
Open strOut For Binary As #1 
Put #1, , File 
Close #1 
Kill strFile 
ErrDelete: 
End Function 

ответ

0
Public Sub NeutralizeFile(ByVal PathIn As String, ByVal PathOut As String) 
    Try 
     Dim data() As Byte = IO.File.ReadAllBytes(PathIn) 
     Array.Reverse(data) 
     IO.File.WriteAllBytes(PathOut, data) 
    Catch ex As Exception 
     MsgBox("Error") 
    End Try 
End Sub 
0

Попробуйте

Public Sub NeutralizeFile(strFile As String, strOut As String) 
    Try 
     Dim StreamReader1 As New IO.StreamReader(strFile) 
     Dim StreamWriter1 As New IO.StreamWriter(strOut) 

     StreamWriter1.Write(StrReverse(StreamReader1.ReadToEnd)) 

     StreamReader1.Close() 
     StreamReader1.Dispose() 

     StreamWriter1.Close() 
     StreamWriter1.Dispose() 

     IO.File.Delete(strFile) 
    Catch ex As Exception 
     MsgBox("Error") 
    End Try 
End Sub 
Смежные вопросы