VB script to handle github integration

IOch habe zusammen mit Chatgpt ein VBScript zur integration von Githaub in PSPAD gemacht. Hier zur allgemeienen Verwendung
' GitTools.vbs – Git Push/Pull/Status/Diff direkt aus PSPad Option Explicit Dim module_name, fso Set fso = CreateObject("Scripting.FileSystemObject") module_name = "PB Git Tools"

' --- Menüeinträge erzeugen --- Sub Init Dim menuName menuName = "&" & module_name

addMenuItem "1. Git Push", menuName, "GitPush", "ALT+F12", "github.ico" addMenuItem "2. Git Pull", menuName, "GitPull", "ALT+F11", "github.ico" addMenuItem "3. Git Status", menuName, "GitStatus", "ALT+F10", "github.ico" addMenuItem "4. Git Diff", menuName, "GitDiff", "ALT+F9", "github.ico" End Sub

' --- Git Push mit Status-Anzeige --- Sub GitPush Dim editor, FileDir, RepoDir, msg, cmd, WshShell, exec, line, rc Dim statusLines, text

Set editor = NewEditor() editor.assignActiveEditor()

If editor.FileName = "" Then MsgBox "Keine Datei geöffnet!", vbExclamation, "Git Tools" Exit Sub End If

FileDir = fso.GetParentFolderName(editor.FileName) RepoDir = FindGitRepo(FileDir)

If RepoDir = "" Then MsgBox "Kein Git-Repository gefunden!", vbExclamation, "Git Tools" Exit Sub End If

' --- Änderungen abfragen --- Set WshShell = CreateObject("WScript.Shell") Set exec = WshShell.Exec("cmd /c cd /d """ & RepoDir & """ && git status -s")

statusLines = "" Do Until exec.StdOut.AtEndOfStream line = exec.StdOut.ReadLine() If Trim(line) <> "" Then statusLines = statusLines & ParseGitStatusLine(line) & vbCrLf End If Loop

If statusLines = "" Then MsgBox "Keine Änderungen gefunden.", vbInformation, "Git Status" Exit Sub End If

' --- Änderungen im Editorfenster anzeigen --- text = "Git-Änderungen im Repository: " & RepoDir & vbCrLf & _ String(60, "-") & vbCrLf & statusLines ShowInNewEditor text, "Git Status"

' --- Nachfrage --- rc = MsgBox("Änderungen wurden angezeigt." & vbCrLf & _ "Commit jetzt fortsetzen?", vbYesNo + vbQuestion, "Git Commit") If rc = vbNo Then Exit Sub

' --- Commit-Text abfragen --- msg = InputBox("Commit-Text eingeben:", "Git Commit", _ "Update von " & Date & " " & Time) If msg = "" Then Exit Sub

' --- Git-Befehle ausführen --- cmd = "git add . && git commit -m """ & msg & """ && git push" RunGitCommand cmd, RepoDir, "Git Push" End Sub

' --- Git Pull --- Sub GitPull RunGeneric "git pull", "Git Pull" End Sub

' --- Git Status --- Sub GitStatus RunGeneric "git status", "Git Status" End Sub

' --- Git Diff --- Sub GitDiff RunGeneric "git diff", "Git Diff" End Sub

' --- Hilfsroutine: allgemeiner Aufruf --- Sub RunGeneric(command, title) Dim editor, FileDir, RepoDir

Set editor = NewEditor() editor.assignActiveEditor()

If editor.FileName = "" Then MsgBox "Keine Datei geöffnet!", vbExclamation, "Git Tools" Exit Sub End If

FileDir = fso.GetParentFolderName(editor.FileName) RepoDir = FindGitRepo(FileDir)

If RepoDir = "" Then MsgBox "Kein Git-Repository gefunden!", vbExclamation, "Git Tools" Exit Sub End If

RunGitCommand command, RepoDir, title End Sub

' --- Hilfsroutine: Git-Befehl ausführen --- Sub RunGitCommand(command, repoDir, title) Dim WshShell, exec, output, line Set WshShell = CreateObject("WScript.Shell") Set exec = WshShell.Exec("cmd /c cd /d """ & repoDir & """ && " & command)

output = "" Do Until exec.StdOut.AtEndOfStream line = exec.StdOut.ReadLine() output = output & line & vbCrLf Loop Do Until exec.StdErr.AtEndOfStream line = exec.StdErr.ReadLine() output = output & line & vbCrLf Loop

' --- Ausgabe in neuem Editorfenster --- ShowInNewEditor output, title End Sub

' --- Hilfsroutine: sucht vom Startverzeichnis nach .git-Ordner --- Function FindGitRepo(startDir) Dim currentDir currentDir = startDir

Do Until currentDir = "" If fso.FolderExists(currentDir & "\.git") Then FindGitRepo = currentDir Exit Function End If currentDir = fso.GetParentFolderName(currentDir) Loop

FindGitRepo = "" End Function

' --- Hilfsfunktion: Statuszeile schöner machen --- Function ParseGitStatusLine(line) Dim code, file, desc

code = Trim(Left(line, 2)) file = Mid(line, 4)

Select Case code Case "M", "M ", " M" desc = "Geändert" Case "??" desc = "Neu" Case "A", "A " desc = "Hinzugefügt" Case "D", "D ", " D" desc = "Gelöscht" Case "R", "R ", " R" desc = "Umbenannt" Case "C", "C ", " C" desc = "Kopiert" Case "AM" desc = "Hinzugefügt + geändert" Case "MM" desc = "Geändert (Index + Arbeitsverzeichnis)" Case "UU" desc = "Konflikt (beide geändert)" Case Else desc = "Unbekannt (" & code & ")" End Select

ParseGitStatusLine = desc & ": " & file End Function

' --- Hilfsfunktion: Text in neuem PSPad-Fenster anzeigen --- Sub ShowInNewEditor(text, title) Dim tempFile, f, ed tempFile = GetTempName() & ".txt"

' Inhalt in temporäre Datei schreiben Set f = fso.CreateTextFile(tempFile, True, True) f.Write text f.Close

' Datei in PSPad öffnen Set ed = NewEditor() ed.OpenFile tempFile ed.assignActiveEditor() 'ed.setCaption title End Sub

Function GetTempName() Dim tempPath tempPath = fso.GetSpecialFolder(2) ' 2 = TemporaryFolder GetTempName = fso.BuildPath(tempPath, fso.GetTempName) End Function