Scribd
Upload
6 views

Text File

Computer science

Uploaded by

jaunkyhritik
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
6 views

Text File

Computer science

Uploaded by

jaunkyhritik
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 2

TEXT FILE

Sub Main()
Call WriteFile()
Call DisplayFile()
Call AppendFile()
Call DisplayFile()
End Sub

Sub WriteFile()
Dim FileHandle As IO.StreamWriter
FileHandle = New IO.StreamWriter("C:\MyFile.txt")
FileHandle.WriteLine("Ali")
FileHandle.WriteLine("Bob")
FileHandle.WriteLine("dev")
FileHandle.Close()
Console.WriteLine(" File created")
Console.ReadKey()
End Sub

Sub DisplayFile()
Dim FileHandle As IO.StreamReader
Dim FileLine As String
FileHandle = New IO.StreamReader("C:\MyFile.txt")
Do While Not FileHandle.EndOfStream
FileLine = FileHandle.ReadLine()
Console.WriteLine(FileLine)
Loop
FileHandle.Close()
Console.ReadKey()
End Sub

Sub AppendFile()
Dim FileHandle As IO.StreamWriter
FileHandle = New IO.StreamWriter("C:\MyFile.txt", True)
FileHandle.WriteLine("Sam")
Console.WriteLine(" File appended")
FileHandle.Close()
End Sub
Student
ARRAY TO TEXT FILE 0 John
1 Bob
Module Module1 2 Sam
Dim Student = {“John”, “Bob”, “Sam”}
Dim Mark = {48, 52, 27}
Mark
Sub Main() 0 48
Call WriteFile() 1 52
Call DisplayFile() 2 27
End Sub

Sub WriteFile()
Dim FileHandle As IO.StreamWriter
FileHandle = New IO.StreamWriter("D:\course\vb\MyFile2.txt")
Dim FileLineAs String

For i = 0 to 2
FileLine = Student(i) & “,” & Mark(i)
FileHandle.WriteLine(Fileline)
Next i
FileHandle.Close()
End Sub

Sub DisplayFile()
Dim FileHandle As IO.StreamReader
Dim FileLine As String
FileHandle = New IO.StreamReader("D:\course\vb\MyFile2.txt")
Do While Not FileHandle.EndOfStream
FileLine = FileHandle.ReadLine()
Console.WriteLine(FileLine)
Loop
FileHandle.Close()
Console.ReadKey()
End Sub

End Module

You might also like