Solved

File open for input and output vb.net

Posted on 2009-04-01
2
1,881 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 48

Accepted Solution

by:
jpaulino earned 500 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

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

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…
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
Michael from AdRem Software explains how to view the most utilized and worst performing nodes in your network, by accessing the Top Charts view in NetCrunch network monitor (https://www.adremsoft.com/). Top Charts is a view in which you can set seve…
This tutorial will teach you the special effect of super speed similar to the fictional character Wally West aka "The Flash" After Shake : http://www.videocopilot.net/presets/after_shake/ All lightning effects with instructions : http://www.mediaf…

631 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