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. Kommentare/Anregungen bitte auf der Diskussionsseite hinterlassen

Verlinken

Mit diesem Skript werden Artikellisten (wie sie z.B. SQL-Abfragen liefern) verlinkt. Das Programm kann das Ende der 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). Falls man den Text nicht in der Edit-Box bearbeitet, muss die unterstehenden Bemerkung beachtet werden. Das Script läuft bei mir mit dem Internet-Explorer 6.x. Falls es in der Edit-Box nicht funktionieren sollte, benutzt einen Editor.

;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,{END}
 Send,{SHIFTDOWN}{HOME}{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
;ANMERKUNG: Wenn man nicht die Edit-Box benutzt, muss man das nachfolgende Semikolon entfernen!!!!!!!!!!!!!!!!
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