diff options
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/TerminalAPI.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/TerminalAPI.vb | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/ShiftOS-TheRevival/MainForms/TerminalAPI.vb b/ShiftOS-TheRevival/MainForms/TerminalAPI.vb index 667d2ef..715e075 100644 --- a/ShiftOS-TheRevival/MainForms/TerminalAPI.vb +++ b/ShiftOS-TheRevival/MainForms/TerminalAPI.vb @@ -46,4 +46,25 @@ End If End If End Sub + + Public Sub Terminal_RunTerminalFile(filename As String) + Dim sr As System.IO.StreamReader + If My.Computer.FileSystem.FileExists(Console.CurrentDirectory & "\" & filename) Then + Dim fileext As New IO.FileInfo(Console.CurrentDirectory & "\" & filename) + If fileext.Extension = ".scr" Then + sr = My.Computer.FileSystem.OpenTextFileReader(Console.CurrentDirectory & "\" & filename) + Dim linenum As Integer = IO.File.ReadAllLines(Console.CurrentDirectory & "\" & filename).Length + Dim i As Integer = 1 + While i <= linenum + command = sr.ReadLine() + Console.DoCommand() + NewLine(Nothing) + i = i + 1 + End While + sr.Close() + Else + + End If + End If + End Sub End Module |