TEXT FILE
Sub Main()
Call WriteFile()
Call DisplayFile()
Call AppendFile()
Call DisplayFile()
End Sub
Sub WriteFile()
Dim FileHandle As [Link]
FileHandle = New [Link]("C:\[Link]")
[Link]("Ali")
[Link]("Bob")
[Link]("dev")
[Link]()
[Link](" File created")
[Link]()
End Sub
Sub DisplayFile()
Dim FileHandle As [Link]
Dim FileLine As String
FileHandle = New [Link]("C:\[Link]")
Do While Not [Link]
FileLine = [Link]()
[Link](FileLine)
Loop
[Link]()
[Link]()
End Sub
Sub AppendFile()
Dim FileHandle As [Link]
FileHandle = New [Link]("C:\[Link]", True)
[Link]("Sam")
[Link](" File appended")
[Link]()
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 [Link]
FileHandle = New [Link]("G:\[Link]")
Dim FileLine As String Mark
0 48
For i = 0 To 2 1 52
STACK FileLine = Student(i) & "," & Mark(i)
[Link](Fileline) 2 27
Next i
[Link]()
End Sub
Sub DisplayFile()
Dim FileHandle As [Link]
Dim FileLine As String
FileHandle = New [Link]("G:\[Link]")
Do While Not [Link]
FileLine = [Link]()
[Link](FileLine)
Loop
[Link]()
[Link]()
End Sub
End Module
ModuleModule1
Dim Stack(5) AsString
Dim Top As Integer
SubMain()
Dim reply As Integer
Call Initialise()
Do
[Link]()
[Link](" MENU")
[Link](" 1 : PUSH")
[Link](" 2 : POP")
[Link](" 3 : Display")
[Link](" 4 : Exit")
[Link]()
[Link]("Enter option 1-4 : ")
reply = [Link]()
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
[Link]("Enter new name:")
NewName = [Link]()
If Top = 4 Then
[Link]("Stack is full. "& NewName &" cannot be added")
Else
Top = Top + 1
Stack(Top) = NewName
[Link](NewName&" added")
EndIf
[Link]("Press any key to continue...")
[Link]()
[Link]()
EndSub
SubPop()
If Top = -1 Then
[Link]("Stack is empty. Data cannot be removed")
Else
[Link](Stack(Top) &" removed")
Stack(Top) = "Empty"
Top = Top - 1
EndIf
[Link]("Press any key to continue...")
[Link]()
[Link]()
EndSub
SubDisplay()
[Link]("Stack contents")
Fori = 4 To 0 Step -1
[Link](" "&i&":"& Stack(i))
Nexti
[Link]("Press any key to continue...")
[Link]()
[Link]()
EndSub
EndModule