From f3d11527bd83ae40616582d2116891e9d08831ae Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Sun, 13 Nov 2022 21:22:42 +0700 Subject: More NewLine migration, Epilepsy warning fixing, and fixing update system --- ShiftOS-TheRevival/MainForms/TerminalAPI.vb | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) (limited to 'ShiftOS-TheRevival/MainForms/TerminalAPI.vb') 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 -- cgit v1.2.3