673 Benutzer online
30. November 2024, 00:24:15

Windows Community



 Antworten / AufrufeThemen mit dem Stichwort filenamen
0
Antworten
7506
Aufrufe
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]

dateidatei win7win7 bgebge vistavista anzeigenanzeigen internetinternet dateinamendateinamen zguzgu 13555341691355534169 windowswindows go-windowsgo-windows ymsyms 7624755476247554 4152442941524429 5353710053537100 8507680985076809 d2sd2s dateiendateien allealle bilderbilder 4753466147534661 7867747478677474 5775291957752919 winwin namennamen 13553258841355325884 7361230573612305 softwaresoftware windowwindow 5177354051773540
2
Antworten
12618
Aufrufe
Dateinamen werden in der Symbolansicht nicht angezeigt!
Begonnen von M11
27. April 2009, 18:09:51
Ich habe W Vista SP2 und folgendes Problem: (das Problem bestand schon vor dem update auf SP 2 und hat sich mit diesem auch nicht aufgehoben)
Seit ein paar Tagen werden bei mir in der Symbolansicht (kleine, mittelgroße ...) die Dateinamen nicht mehr angezeigt!
Diverse Internetforen habe ich diesbezüglich schon durchforstet, Tipps wie die Ansicht mit gedrückter Umschalttaste zu wechseln oder kurzfristig auf das klassische Windows layout zu wechseln haben leider keine Erfolge gezeigt!
Auch das mehrmalige öffnen mit gedrückter Shift Taste funktionierte leider auch nur mit mäßigem Erfolg!
Hier noch ein Bild meiner Nichtangezeigten Dateinamen!
| | |
V V V
16
Antworten
39405
Aufrufe
Musiktitel umbenennen incl. Numerierung
Begonnen von buddy_frank
08. Dezember 2008, 14:49:23
« 1 2
Hallo!

Ich habe nun meine Hörbücher als MP3 gerippt und möchte diese nun auch gut verwalten.
Dabei möchte ich z.B. den "Titel" Namen umbennen und mit einer Numerierung versehen. Da Hörbücher im Durchschnitt so 80 Tracks haben, wäre es klasse, wenn ich dieses mit einer Software machen könnte. Wer kennt eine passende??? ?( ?( ?(

Ich stelle mir die Funktion ähnlich wie im Total Commander für die Umbenennung von Dateinamen vor.

Wer kann mir helfen???

DANKE IM VORAUS!!!!
1
Antworten
6878
Aufrufe
Dateinamen werden nicht angezeigt
Begonnen von EddyRodriguez
31. März 2008, 13:47:52
Hallo,

als ich heute meinen Dokumente-Ordner öffnete, musste ich feststellen, dass nur noch die Symbole zu sehen sind, jedoch die Namen darunter weg sind. Nur bei den Ansichten Liste, Details und Kacheln ist dies nicht so, jedoch will ich diese nicht verwenden. Eine Einstellung dazu habe ich leider nicht selbst finden können, wie man das Anzeigen der Dateinamen wieder aktiviert. Wäre sehr hilfreich, wenn mir jemand einen Tipp geben könnte.


Danke im Voraus
4
Antworten
6078
Aufrufe
Suche Programm um schnell viele Dateien umbennen kann.
Begonnen von 73r0C007
08. März 2008, 14:21:45
Hallo ich suche ein Programm, mit dem ich schnell viele Dateinamen von beliebigen Dateien ändern kann, für meine Musik benutze ich bereits MP3Tag, nun brauche ich nur noch ein Prog wo ich das mit Photos und Videos machen kann, kann mir da einer von euch nen Namen von nem Prog nennen.
MfG