Benutzer:DaB./Skripte

Hallo, auf dieser Seite sammle ich meine Skripte für das Programm AutoIt. 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 (-;).
Weitere AutoIT-Skripts und andere nützliche Programme können unter Wikipedia:Helferlein gefunden werden. Komentare/Anregungen bitte auf der Diskusionsseite hinterlassen

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,<br>
;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]],]]<br>
 SetEnv, Begriff, %Dummy%
 SetEnv, clipboard, %Begriff%
 Send, ^v
 Exit