diff options
| author | EverythingWindows <[email protected]> | 2022-11-13 21:22:42 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-13 21:22:42 +0700 |
| commit | f3d11527bd83ae40616582d2116891e9d08831ae (patch) | |
| tree | 06cab73465261d2d4e0858509b7599ad8fb5889c /ShiftOS-TheRevival/MainForms/TerminalAPI.vb | |
| parent | 54355f9686a5a07f27de5cd3444b87509df2fd2f (diff) | |
| download | shiftos-therevival-old-f3d11527bd83ae40616582d2116891e9d08831ae.tar.gz shiftos-therevival-old-f3d11527bd83ae40616582d2116891e9d08831ae.tar.bz2 shiftos-therevival-old-f3d11527bd83ae40616582d2116891e9d08831ae.zip | |
More NewLine migration, Epilepsy warning fixing, and fixing update system
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 |