Am Rande einer größeren Diskussion im KnowBrainer-Forum wurde das oben stehende Skript ebenfalls besprochen, so dass ich es hier einmal vorstellen möchte. In dieser Form wird in DragonPad mittels Befehl "Datum einfügen" das aktuelle Datum im Format "TT.MM.JJJJ" in den Text eingefügt. Dabei wird zunächst geprüft, ob sich der Cursor hinter einer Absatzmarke oder hinter einer öffnenden runden Klammer befindet, falls nicht, wird zusätzlich ein Leerzeichen vor dem Datum eingefügt.

Das Skript ist anwendungsspezifisch eingestellt (für DragonPad), für andere Anwendungen muss der Wert "13" in der zweiten Zeile geändert werden, z.B. in "0" für Word.

Für diejenigen, die die Funktionsweise nachvollziehen möchten, noch ein paar Erläuterungen. Zunächst wird in der ersten Zeile das vorangehende Zeichen markiert, in die Zwischenablage kopiert, und die Markierung wieder aufgehoben.

In der zweiten Zeile wird der Inhalt der Zwischenablage geprüft. Wenn der ASCII-Wert des letzten Zeichens ungleich 13 ist, handelt es sich um keine Absatzmarke (in DragonPad und in WordPad), dann, aber auch wenn das letzte Zeichen keine öffnende Klammer "(" ist, wird ein Leerzeichen eingefügt.

In der dritten Zeile wird schließlich das aktuelle Datum im angegebenen Format eingefügt.

Viel Spaß beim Nachbauen und Anwenden!
Rüdiger Wilke

Thanks Rüdiger. There are many ways of setting the system date and time using scripting and one method I particularly like is using the Windows API Function as shown below. You can of course choose your own particular date and time format by adjusting the script accordingly.

Lindsay
DNS 10. 1 Professional UK English, Windows 7 64-Bit, i7 - Extreme 965, 12 GB DDR3




Uploaded with ImageShack.us

Lindsay,

thanks for showing us how to integrate Windows API functions to our scripts. Is there anything we can do with the above script to apply further formatting to the date/time output, such as in:

Format(Now,"dd.mm.yyyy") --> 11.05.2010

Rüdiger

Rüdiger

I should have been a bit more explicit in that using either Format or the Windows API function allows you to format the date and time in your preferred style so why would you use the Windows API function when it's a lot simpler to use Format. Well the answer to that explicitly is that in most instances you probably wouldn't. However what the script demonstrates is basically what the command Format does at a lower-level (in other words it just calls the Windows API function and does most of the hard work for you). In many cases this can give you greater control and flexibility over what you want to achieve and of course the example proves as an introduction to using Windows API functions.

I can't remember the exact instance but there have also been occasions when the advanced scripting command Format didn't seem to work and the API function method did.

Lindsay

Lindsay,

sorry, wrong question. Going to MSDN, which you so graciously started helping me to explore, I found that what I asked about can be done using the GetDateFormat or GetDateFormatEx functions, but that in itself is something more of a complex nature, with lots of additional work being involved, so it's probably not suitable to demonstrate for now. I should have known better.

Rüdiger

Hallo Drachenfreunde,

die Skripte sind recht interessant. Wäre es für alle Interessenten nicht besser, wenn die Skripte kopierbar wären?

Verfügt dieses Forum über eine Option, dass Skripte oder anderer Code per Java Skript ausblendbar wäre?

Eventuell wäre es alternativ möglich, die Skripte in einer Textdatei zum Download anzubieten (gibt bestimmt noch andere Alternativen).

Wer selten Skripte schreibt, der weiß, wie häufig sich dabei Fehler einschleichen können.

Hallo Anja,

das hat seine Gründe, erstens lizenztechnisch, zweitens soll es den Lerneffekt verstärken und Anreize schaffen, selbst Skripte zu schreiben, für diejenigen, deren Version über diese Option verfügt.

Also, fertige Skripte zum Download wird es hier nicht geben. Über den Code als TXT-Datei könnte ich nachdenken.

Grüße
Rüdiger

Hallo Rüdiger,

Stichwort Textdatei – das ist doch schon mal eine gute Nachricht am frühen Morgen! Es wäre auch sehr hilfreich für jene, die viel zu tun haben und ein paar Skripte ausprobieren möchten. Leider ist mein Englisch nicht so gut, dass ich die Skripte aus dem englischsprachigen Forum nutzen kann.

Hallo Drachenfreunde,

wie schreibt man das Datum in Klammern?

SendDragonKeys "("
SendKeys Format$(Date, "dd.mm.yyyy")
SendDragonKeys ")"

-> ()17.12.2011

Merkwürdigerweise wird bei oben genannten Skript zuerst der komplette Klammerausdruck geschrieben und danach das Datum. Wie schreibt man das richtig?

so soll es aussehen:

(17.12.2011)

Versuche mal:

SendKeys Format(Now, "(dd.mm.yyyy)")

- ich kann es gerade selbst nicht testen -

Hallo Rüdiger,

das funktioniert leider nicht - hatte ich schon (inkl. einiger anderer Varianten) probiert.

Dann das bitte versuchen:

Datum$ = Format(Now, "dd.mm.yyyy")
Datum$ = "(" & Datum$ & ")"
SendKeys Datum$

Sendkeys kommt anscheinend mit den Klammern nicht zurecht. Die Variante, die bei mir 100%-ig funktioniert, ist:

SendDragonKeys "("
SendKeys Format$(Date, "dd.mm.yyyy"),true
SendDragonKeys ")"

Gruß
Pascal

Zitat von P.Roch

---

Sendkeys kommt anscheinend mit den Klammern nicht zurecht.

---

Genau! Ich erinnnere mich bei der Gelegenheit daran, dass ich vor ein paar Jahren einige Skripte bei mir im Büro ändern musste, nachdem unsere Leute zum Jahrewechsel Ordner-Namen mit Klammern darin eingeführt hatten, so dass ich einige Tage im Januar erstmal nicht verstand, warum es an bestimmten Stellen hakte.

Gruß, Rüdiger

Hallo Pascal,

das ist aus den Vorschlägen die einzige Lösung, die hier funktionierte. Was bewirkt das "True"?

SendKeys Format$(Date, "dd.mm.yyyy"),true