Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

File open for input and output vb.net

Posted on 2009-04-01
2
Medium Priority
?
2,186 Views
Last Modified: 2012-05-06
In VB6 I could open a file for input then open a file for output and then write any part of a line from the input file to the output file see sample below.  

I want to do exactly the same thing in vb.net,  I have found example which show me how to read a file and write static text to a file but I can not find any help on how to write a string from the file I just opened and read.

Any help greatlt appreciated.
Private Sub Form_Load()
 
Open "C:\Users.ini" For Input As #1
Open "C:\StationID.ini" For Input As #2
 
 
Do While EOF(2) = False And EOF(1) = False
Open "C:\Config.NT" For Output As #3
Line Input #2, Temp1$
Print #3, "dos = high, umb"
Print #3, ";device=%SystemRoot%\system32\himem.sys"
Print #3, ";device=%SystemRoot%\system32\emm386.exe"
Print #3, "EMM =RAM"
Print #3, "FILES=80"
Print #3, "device=C:\utils\netid.exe /d:" & Temp1$
Print #3, ""
Print #3, "REM Added by Pervasive.SQL V8 install:"
Print #3, "DEVICE=C:\PVSW\BIN\BTRDRVR.SYS"
 
Close #3
 
Line Input #1, Temp$
FileSystem.MkDir "C:\WorkStationIDs\" & Temp$
 
FileSystem.FileCopy "C:\Config.NT", "C:\WorkStationIDs\" & Temp$ & "\Config.NT"
Loop
 
 
Unload Me
 
End Sub

Open in new window

0
Comment
Question by:smasshed
2 Comments
 
LVL 48

Accepted Solution

by:
jpaulino earned 2000 total points
ID: 24040184
In .NET you can use StreamReader and StreamWriter to do that!
Example:

        Dim fileName As String = "d:\test.txt"
        Dim fileNameOutput As String = "d:\testOutput.txt"
 
        Using writer As New IO.StreamWriter(fileNameOutput)
 
            Using reader As New IO.StreamReader(fileName)
 
                While Not reader.EndOfStream()
                    Dim result As String = reader.ReadLine()
                    writer.WriteLine(result & " some extra text")
                End While
 
            End Using
 
        End Using

Open in new window

0
 
LVL 1

Author Closing Comment

by:smasshed
ID: 31565338
Easy when you know how, thanks alot.
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Article by: Kraeven
Introduction Remote Share is a simple remote sharing tool, enabling you to see, add and remove remote or local shares. The application is written in VB.NET targeting the .NET framework 2.0. The source code and the compiled programs have been in…
A while ago, I was working on a Windows Forms application and I needed a special label control with reflection (glass) effect to show some titles in a stylish way. I've always enjoyed working with graphics, but it's never too clever to re-invent …
Are you ready to place your question in front of subject-matter experts for more timely responses? With the release of Priority Question, Premium Members, Team Accounts and Qualified Experts can now identify the emergent level of their issue, signal…
Whether it be Exchange Server Crash Issues, Dirty Shutdown Errors or Failed to mount error, Stellar Phoenix Mailbox Exchange Recovery has always got your back. With the help of its easy to understand user interface and 3 simple steps recovery proced…

783 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question