VB.NET

VB.NET RSS

Reading/Writing Binary Files

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Jul 2008

Posts: 13

Reputation: Ixeman is an unknown quantity at this point

Solved Threads: 0

Ixeman

Offline

Newbie Poster

Reading/Writing Binary Files

Sep 13th, 2008

Ok Well, in vb6 it's completely easy.

For an example, im trying to convert this to vb.net but im kinda struggling.

For Example, i don't know what the new get and put statements are in vb.net.

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim aS As String
Dim aF As String
Open App.Path & "\s.exe" For Binary #1
aS = Space(LOF(1))
Get #1, , aS
Close #1
Dim aS As String
Dim aF As String
Open App.Path & "\s.exe" For Binary #1
aS = Space(LOF(1))
Get #1, , aS
Close #1

And in my view of conversion is

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim aS As String
Dim aF As String
 FileOpen(1, "\s.exe", OpenMode.Binary, OpenAccess.ReadWrite)
       aS = Space(LOF(1))
            FileGet(1, aS)
            FileClose(1)
Dim aS As String
Dim aF As String
 FileOpen(1, "\s.exe", OpenMode.Binary, OpenAccess.ReadWrite)
       aS = Space(LOF(1))
            FileGet(1, aS)
            FileClose(1)

NOTE: THen of course i forgot to add the put statements so the bytes and data would be able to be written into the file. I forgot to add it, and too lazy to add it -.-'. So if anyone knows how i can use the "put" statements in vb.net along with "get" statements.

So if anyone have any information or ideas please share.

Last edited by Ixeman; Sep 13th, 2008 at 2:53 am.

•

Join Date: Sep 2008

Posts: 148

Reputation: samir_ibrahim is on a distinguished road

Solved Threads: 16

samir_ibrahim samir_ibrahim is offline

Offline

Junior Poster

Re: Reading/Writing Binary Files

Sep 13th, 2008

 Help with Code Tags 
 vb.net Syntax (Toggle Plain Text) 
Dim swFile As System.IO.StreamWriter
swFile = System.IO.File.CreateText("c:\myfile.txt")
swFile.Write("MyText")
swFile.Close()
 
Dim srFile As System.IO.StreamReader
Dim sTextRead As String
srFile = System.IO.File.OpenText("c:\myfile.txt")
sTextRead = srFile.Read()
Debug.Print(sTextRead)
srFile.Close()
Dim swFile As System.IO.StreamWriter
swFile = System.IO.File.CreateText("c:\myfile.txt")
swFile.Write("MyText")
swFile.Close()

Dim srFile As System.IO.StreamReader
Dim sTextRead As String
srFile = System.IO.File.OpenText("c:\myfile.txt")
sTextRead = srFile.Read()
Debug.Print(sTextRead)
srFile.Close()

This is not exactly what you want, but it will give you an idea.

ps: if someone see's that there is better code or my code is not correct or lack please point to it because I am still learning