Scribd
Upload
7 views

Text File and Stack

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
7 views

Text File and Stack

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/ 3

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
ARRAY TO TEXT FILE

Module Module1
Student
‘Dim Student(2) As string
‘Student(0) = “John” 0 John
‘Student(1) = “Bob” 1 Bob
‘Student(2) = “Sam” 2 Sam

Dim Student = {"John", "Bob", "Sam"}


Dim Mark = {48, 52, 27}

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

Sub WriteFile()
Dim FileHandle As IO.StreamWriter
FileHandle = New IO.StreamWriter("G:\MyFile2.txt")
Dim FileLine As String Mark
0 48
For i = 0 To 2 1 52
STACK FileLine = Student(i) & "," & Mark(i)
FileHandle.WriteLine(Fileline) 2 27
Next i
FileHandle.Close()
End Sub

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

End Module
ModuleModule1
Dim Stack(5) AsString
Dim Top As Integer

SubMain()
Dim reply As Integer
Call Initialise()
Do
Console.WriteLine()
Console.WriteLine(" MENU")
Console.WriteLine(" 1 : PUSH")
Console.WriteLine(" 2 : POP")
Console.WriteLine(" 3 : Display")
Console.WriteLine(" 4 : Exit")
Console.WriteLine()
Console.Write("Enter option 1-4 : ")
reply = Console.ReadLine()
SelectCase reply
Case 1
CallPush()
Case 2
CallPop()
Case 3
CallDisplay()
EndSelect
LoopUntil reply = 4
EndSub
Sub Initialise()
Top = -1
For i = 0 To 4
Stack(i) = "Empty"
Next
EndSub

Sub Push()
DimNewNameAsString
Console.Write("Enter new name:")
NewName = Console.ReadLine()
If Top = 4 Then
Console.WriteLine("Stack is full. "& NewName &" cannot be added")
Else
Top = Top + 1
Stack(Top) = NewName
Console.WriteLine(NewName&" added")
EndIf
Console.Write("Press any key to continue...")
Console.ReadKey()
Console.Clear()
EndSub

SubPop()
If Top = -1 Then
Console.WriteLine("Stack is empty. Data cannot be removed")
Else
Console.WriteLine(Stack(Top) &" removed")
Stack(Top) = "Empty"
Top = Top - 1
EndIf
Console.Write("Press any key to continue...")
Console.ReadKey()
Console.Clear()
EndSub

SubDisplay()
Console.WriteLine("Stack contents")
Fori = 4 To 0 Step -1
Console.WriteLine(" "&i&":"& Stack(i))
Nexti
Console.Write("Press any key to continue...")
Console.ReadKey()
Console.Clear()
EndSub

EndModule

You might also like