Benutzer:DaB./Skripte

Hallo, auf dieser Seite sammle ich meine Skripte für das Programm Auto-IT. Ich stelle die Skripte unter GNU und jeder hier (oder auch wo anders) kann sie benutzen, wie er will. Jedoch übernehme ich keine Garantie für die Funktionsfähigkeit oder hafte für Schäden (ist doch klar, oder (-;).

Verlinken

Mit diesem Skript werden Artikellisten (wie sie z.B. SQL-Abfragen liefern) verlinkt. Das Programm kann das Ende er Liste erkennen, indem es auswertet, ob ein Artikel bereits zweimal verlinkt wurde. Dies gelingt nur dann, wenn die Liste als letztes in einem Dokument steht. Falls dies nicht der Fall ist, sollte die Liste in einen Editor kopiert werden und dort bearbeitet werden, oder die Anzahl der Durchläufe ist manuell anzupassen (Standard ist 1000 Durchläufe).

Pause und KeyDelay festlegen

Sleep, 750

SetKeyDelay, 2

Das Programm 1000x wiederholen

Repeat, 1000

;Verklammern des Begriffes und entfernen des letzten Leerzeichen
 Send,{END}
 Send,{BACKSPACE}
 Send,]]
 Send,{HOME}
 Send,[[
;Markieren des Textes
 Send,{HOME}
 Send,{SHIFTDOWN}{END}{SHIFTUP}
 Send, ^x
 SetEnv, Begriff, %clipboard% 
;Ersetzen eventueller Unterstriche (bis zu 5) durch Leerzeichen
 Repeat, 5
  IfInString, Begriff,_, Gosub, UnterstrichDel
 EndRepeat
;Prüfen, ob das Dokument am Ende angelangt ist (Begriff hat schon 6 Klammern)
  IfInString, Begriff,[[[[[[, Gosub, Programmende
;Falls nicht:
 SetEnv, clipboard, %Begriff%
 Send, ^v
;Anhängen des <br>
 Send,{END}
 Send,

;Eine Zeile nach unten gehen
 Send,{DOWN}

EndRepeat

Ende

Exit

UnterstrichDel:

Eine Unterstrich wird durch ein Leerzeichen (mit Dummys) ersetzt

StringReplace, Dummy, Begriff,_,#0# #0#
SetEnv, Begriff, %Dummy%
Gosub, DummyDel

return

DummyDel:

Die Dummys(#0#) werden entfernt

Repeat, 2
StringReplace, Dummy, Begriff,#0#,
SetEnv, Begriff, %Dummy%
EndRepeat

return

Programmende:

Dieses Sub-Programm bereinigt den Begriff und beendet das Programm

StringReplace, Dummy, Begriff,[[[[[[,[[
SetEnv, Begriff, %Dummy%
StringReplace, Dummy, Begriff,]]<br]]<br]],]]

SetEnv, Begriff, %Dummy%
SetEnv, clipboard, %Begriff%
Send, ^v
Exit