amx

[Skript zum Einfügen von Autotext]

Skript zum Einfügen von Autotext

Begonnen von OCtopus
04. Oktober 2009, 12:08:48

Ich habe für mich ein kleines Skript gemacht, mit dem ich in jeden Editor (Notepad, Forum etc.) Autotext einfügen kann. Das Skript funktioniert mit der Skriptsprache [b]Autohotkey[/b]
http://www.autohotkey.com/download/
Ihr kopiert das Skript in eine Datei mit der Endung "ahk". Eine fertige Datei "Makros.ahk" ist angehängt. Wenn Autohotkey installiert ist, muß das Skript nur doppelgeklickt werden. Es kann auch automatisch gestartet werden, wenn Ihr das Skript (oder eine Verknüpfung) in den Autostart-Ordner legt.

[code]
/*
Der Autotext kann in jeder Textdatei mit folgendem Format enthalten sein:
  [Autotext]
  n=nicht
  mfg=Mit freundlichen Grüßen^a^aMax Meier
  mvH=Mit vorzüglicher Hochachtung^a^a~MM~
  hav=Hochachtungsvoll^a^a~HH~
  MM=Max Meier
  HH=Hans^tHuber
In dieser Datei können folgende Besonderheiten verwendet werden (s. Beispiele oben):
^a   = Absatz
^t   = Tabulator
~xx~ = Verweis auf einen anderen Autotext-Eintrag
Die Datei kann in Zeile 26 des Skripts eingetragen werden (voreingestellt: "C:\Zwi\Makros.txt").

Verwendung:
Ihr schreibt in den Editor die Kurzbezeichnung des Autotexteintrags (z. B. "mfg").
Das Skript liest mit <Alt-F3> diese Kurzbezeichnung aus und schreibt an diese Stelle
den Autotext. Wenn der entsprechende Autotext nicht vorhanden ist bleibt die Kurzbezeichnung (markiert) stehen.
*/

; Fügt Makros aus Makros.txt vor der aktuellen Cursorposition ein.
; ShortCut: <Alt+F3>
~!F3::
; Als <MakroDat> kann hier kann jeder andere Dateiname in jedem anderen Ordner verwendet werden:
MakroDat := "C:\Zwi\Makros.txt"
; Markiert die Kurzbezeichnung:
IniErg   := PreSelection2Makro(MakroDat)
; Fügt jetzt die Ersetzung ein.
SendInput, %IniErg%
return

;******************************************************************************
; Ersetzt einen <EString> durch einen Makrostring aus <MakroDat>:
Ersetzung(EString, MakroDat)
{
  ; Ersetzt den ermittelten String.
  ; Holt die Ersetzung:
  IniRead, IniErg, %MakroDat%, Autotext, %EString%, %A_Space%
  ; Ersetzt alle Strings zwischen Tilden mit weiteren Ersetzungsstrings.
  LOOP ; Sucht alle Vorkommen von "~"
  {
     StringGetPos, Stelle1, IniErg,~
     IF Stelle1<0
        Break
     StringGetPos, Stelle2, IniErg,~, L2
     Abfrage := SubStr(IniErg, Stelle1+2, Stelle2-Stelle1-1)
     IniRead, TildeErg, %MakroDat%, Autotext, %Abfrage%, %A_Space%
     StringReplace, IniErg, IniErg, ~%Abfrage%~ , %TildeErg%, All
  }
  ; Ersetzt Absatzzeichen (^a) etc. mit AHK-typischen Befehlen.
  StringReplace, IniErg, IniErg,^a,`n, All
  StringReplace, IniErg, IniErg,^t,{TAB}, All
  Return IniErg
}

;******************************************************************************
; Ermittelt das letzte Wort vor der aktuellen Cursorposition:
PreSelection()
{
  ; Sichert den Inhalt des Clipboards und leert das Clipboard.
  AlterClipboardInhalt := ClipboardAll ; Sichern des Inhaltes von Clipboard
  Clipboard =
  ; 1. Teil: Ermittelt den zu ersetzenden String.
  Länge := 0
  SonderZ := ".,?,;"
  LOOP ; Ermittelt das maßgebliche ganz Wort vor der aktuellen Cursoposition
  {
     Send, +{LEFT} ; Ein makiertes Zeichen nach links
     Auswahl := Selection(true) ; ermittelt die aktuelle Markierung
     StringLeft, Links, Auswahl, 1 ; Das äußerste linke Zeichen der Markierung
     CharNr := ASC(Links)
     IsSonderZ := false
     IF Links in ä,ö,ü,Ä,Ö,Ü,ß
        IsSonderZ := true
     ; Steigt aus bei Leerzeichen, Sonderzeichen, Absatzzeichen etc.
     ; Es gelten nur Ziffern, Buchstaben und Umlaute:
     IF NOT ((CharNr>=48 AND CharNr<=57) OR (CharNr>=65 AND CharNr<=90) OR (CharNr>=97 AND CharNr<=122) OR IsSonderZ)
        GoTo Zurück
     ; Wenn es nicht mehr weiter nach Links geht (Dateianfang)
     IF StrLen(Auswahl)=Länge
        GoTo Fertig
     StringLen, Länge, Auswahl
  }
  Zurück:
  ; Geht wieder eine Cursorposition nach Rechts:
  Send, +{RIGHT}
  Fertig:
  ; Ermittelt die maßgebliche jetzt aktuelle Markierung:
  Auswahl := Selection(true)
  ; Zurücksichern des alten Clipboardinhalts:
  ClipBoard := AlterClipboardInhalt    ; Alten Inhalt des Clipboards wiederherstellen
  Return Auswahl
}

;******************************************************************************
; Kombination aus PreSelection() und Ersetzung()
PreSelection2Makro(MakroDat)
{
  ; Ermittelt den zu ersetzenden String:
  Auswahl := PreSelection()
  ; Ersetzt den ermittelten String:
  IniErg  := Ersetzung(Auswahl, MakroDat)
  Return IniErg
}

;******************************************************************************
; Ermittelt den aktuell markierten Text, die aktuell markierte Datei etc.:
Selection(OhneSichern = false, Warten = 5)
{
  IF NOT OhneSichern
     AlterClipboardInhalt := ClipboardAll ; Sichern des Inhaltes von Clipboard
  Clipboard =
  Send ^c                              ; Kopiert die Datei
  ClipWait, %Warten%                   ; Warte auf neuen Inhalt im Clipboard. 5 wg. Netzlaufwerken, die ggf. langsamer sind.
  RückG := ClipBoard                   ; Speichern des Namens zur weiteren Verarbeitung
  IF NOT OhneSichern
     ClipBoard := AlterClipboardInhalt    ; Alten Inhalt des Clipboards wiederherstellen
  Return RückG
}
[/code]

software ohne keine zwischen win7 bgg go-windows 2000 anzeigen einer windows vista vergleich viste yms www vist dual home fehler anzeige d24 laptop ausschalten bekomme installation games spiel 2008 core

weitere Antworten anzeigen »»

[CS 1.6, zu wenig fps bei vista -.-]

CS 1.6, zu wenig fps bei vista -.-

Begonnen von lollypopper
16. März 2008, 20:40:30

Hi dudes :) 

Also ich habe mir n neuen pc bestellt:

- AMD Athlon64 X2 4400+ (2,3 GHz)
- 2.048 MB DDR2 800
- NVIDIA GeForce 8600 GT 256 MB
- 160 GB - SATA
- Microsoft Windows Vista Home Premium, 32bit
- T-online DSL 16000
- Samsung SyncMaster 931BW
- Auflösung: 1024*768
- extreme masters gui

Wieso ich mir so n "schlechten" pc geholt habe? Ich will damit nur cs 1.6 und mal ne runde wc3 zocken :)

CS 1.6: Ich habe aktuelle treiber installiert, auch schon andere probiert, vsync aus und mich durch verschieden 100fps threads gewülhlt. Ich kriege einfach keine spielbaren fps zahlen hin :( Habe wenn ich nur rumlaufe, also ohne gegner so ~70fps, aber z.B auf dem stofftier DM server zwischen 15-60fps. Es ist einfach unspielbar.

Ich haber ein laptop, den ich davor zum zocken benützt habe. Und dort genau das gleiche Problem :(

- Intel® Core™2 Duo Prozessor T5500(1,66GHz, 2MB 2LC, FSB 667)
- nVIDIA Geforce Go 7400 mit 128VRAM und Turbo Cache Technologie
- 1024MB DDR II RAM 533
- und Microsoft Windows Vista Home Premium,32 bit -.-

Beim laptop dachte ich, das es am Arbeitsspeicher liegt. Weil vista+turbocache+dualcore halt schon ein bischen viel für 1024 MB ram sin
Habe mit vielen Leuten verglichen. Alle die ein gleiches oder ähnliches system besitzen, haben 100fps. Allerdings mit Xp. Ich bin echt verzweifelt. Was kann ich tun?

Hat jemand rat?

MFG

weitere Antworten anzeigen »»

[Wie den 2. Kern aktivieren??]

Wie den 2. Kern aktivieren??

Begonnen von HeatHunter
23. April 2007, 16:02:34

Mein System:
AMD X2 3800+
MSI K8n Neo4f
HIS 1950 XT
....

Ich habe folgendes Problem.

Wärend der letzten Zeit muss ich es irgendwie geschaft habe, meinen 2. Kern zu deaktivieren. Ich habe in einem anderen Froum gelesen, dass das in Verbindung mit dem Installieren und Deinstallieren der ATI Treiber stehen kann. Gibt es irgendwie ne Möglichkeit, den Kern wieder zu aktivieren?


Treiber neuinstallieren, Systemwiederherstellun (fehlender Wiederherstellungspunkt) und so standart Zeug hilft alles nicht..

Hat jemand von euch schonmal von dem Problem gelesen??

weitere Antworten anzeigen »»