Wer sich wie ich dafür interessiert, welche Signalqualität durchschnittlich erzielt wird, kann das mit dem unten stehenden Skript testen, vorausgesetzt, man verwendet die Version 11 Pro oder aufwärts.

Dazu ist die Log-Datei zu öffnen, der Cursor am Anfang der Datei zu setzen, das Skript aufzurufen und zu warten. Nach Ablauf des Skriptes wird der ermittelte Wert angezeigt.

Ergänzung: Experimentell!

Dim currentVal, totalVal, i As Integer
currentVal = 0
totalVal = 0
i = 0
SendKeys "^f",1
SendKeys "sN ",1
SendKeys "{Enter}",1
SendKeys "{Esc}",1
SendKeys "^c",1
While Clipboard$ = "sN "
SendKeys "{Left}{Right}+{Right 2}",1
SendKeys "^c",1
currentVal = Clipboard
totalVal = totalVal + currentVal
i = i+1
SendKeys "{Right}",1
SendKeys "{F3}",1
SendKeys "^c",1
Wend
MsgBox "Total Value: " + CStr(totalVal) + vbLf _
    + "Number of items: " + CStr(i) + vbLf _
    + "Average: " + CStr(Round(totalVal/i,2))
 
 

Kleine Denksportaufgabe für Fortgeschrittene: Was muss hinzugefügt werden, damit auch der Maximalwert/Minimalwert angezeigt wird?

Viel Spaß damit!
Rüdiger Wilke

Hallo Rüdiger,

nachdem das Script lange lief, kam folgende Fehlermeldung:

---------------------------
Befehle
---------------------------
Das Makro enthält diesen Fehler.

Befehl: "Dragon Signalqualität"
Zeile: 26
Position: 0
Beschreibung: (10080) Type mismatch. -

Nehmen Sie die erforderlichen Korrekturen mit "Befehl erstellen" vor.
---------------------------
OK
---------------------------

---------------------------
Editor
---------------------------
"sN " kann nicht gefunden werden.
---------------------------
OK
---------------------------

Ich habe noch ein paar andere Anregungen, aber die kann ich erst später tippen, da ich zu einem Termin muss.


Zeile 26 ist diese

MsgBox "Total Value: " + CStr(totalVal) + vbLf _
+ "Number of items: " + CStr(i) + vbLf _
+ "Average: " + CStr(Round(totalVal/i,2))

Hallo Anja,

der Fehler ist bei mir - auf einem anderen System (Büro) - zwischenzeitlich auch aufgetaucht. Siehe dazu meine Ergänzung und ändere bitte die ersten Code-Zeilen wie oben abgebildet.

Testweise kann man das Skript auch nur über bestimmte Teile der Log-Datei laufen lassen.

Grüße
Rüdiger

Hallo Rüdiger,

Number of items: 9
Average: 21,89

habe es mit wenigen Werten getestet.

Nach wie vor erscheint nach der Messagebox über die Werte noch eine zweite Messagebox mit der Mitteilung:

"sN " kann nicht gefunden werden.

Wenn es hier wirkliche Tüftler gibt, dann habe ich noch drei Vorschläge:

(1)
interessant wäre es, wie lange das Programm insgesamt lief.

(2)
wenn man dem Programm in einer Variable den Pfad zu der Log-Datei übergibt, dann sollte das Skript diese Log-Datei selbstständig öffnen und das Fenster Notepad aktivieren. Die Eingabemarke steht dann automatisch in der ersten Zeile.

(3)
in der Auswertung sollte der Zeitraum (Datum von bis) erscheinen, damit wäre die Ausgabe inklusive der maximalen und minimalen Werte rund und interessant

Aber wie gesagt, dass es wirklich nur etwas für Tüftler, die sich mit der Skriptsprache auskennen. Dazu gehöre ich nicht.

Hallo Anja,

Zitat

---

Nach wie vor erscheint nach der Messagebox über die Werte noch eine zweite Messagebox mit der Mitteilung:

"sN " kann nicht gefunden werden.

---

Das ist eine Rückmeldung der Suchfunktion in Notepad bedingt dadurch, dass keine weiteren Werte mehr zu finden sind, und notwendig, damit das Skript überhaupt zum Stehen kommt, aber nicht schlimm. Dieselbe Meldung bekommst Du, wenn Du manuell in Notepad suchst, aber nicht fündig wirst. Die Meldung könnte man aber auch im Skript "wegdrücken", wenn man möchte.

Zitat

---

interessant wäre es, wie lange das Programm insgesamt lief.

---

Auch das kann man, unter Einschränkungen, aus der Log-Datei heraus lesen, vollständig aber nur dann, wenn der Anwender/die Anwenderin immer schön und brav Dragon startet, wenn er gebraucht wird, und danach beendet. Wenn aber noch eine Dritt-Anbieter-Software im Spiel ist, die sich da einmischt und von sich aus die Dragon engine startet, ohne dass Du das merkst, oder wenn Du den Drachen einfach immer weiter laufen lässt, oder den Computer überhaupt, ist die Chronologie in der Log-Datei ein einziger Brei, in dem Du nichts Genaues mehr finden wirst.

Zitat

---

wenn man dem Programm in einer Variable den Pfad zu der Log-Datei übergibt, dann sollte das Skript diese Log-Datei selbstständig öffnen und das Fenster Notepad aktivieren. Die Eingabemarke steht dann automatisch in der ersten Zeile.

---

Alles kein Problem, kann man machen, man müsste nur noch berücksichtigen, dass die Dateipfade zum Beispiel in Windows XP, Vista und Windows 7 32-bit und 64-bit jeweils unterschiedlich sind. Das aber habe ich nicht vor mir anzutun - und keine Lust auf die sich daraus ergebenden Diskussionen.

Um das auch noch zu automatisieren, könnte man eine Verknüpfung zur Log-Datei auf den Desktop legen (was ich sowieso habe, um mal schnell nachzuschauen), diese dann z.B. "Dragon Log" nennen, und dann noch die beiden folgenden Zeilen vorne an das Skript setzen:

HeardWord "starte","Dragon","Log"
Wait 0.5

Außerdem, so meine ich jedenfalls, muss es aber noch testen, kann man das Skript in der Form auch über die mit Details abgespeicherte Erkennungsansicht laufen lassen (neu in 11), zum selben Zweck, und so zum Beispiel den Tagesdurchschnitt am Ende des Tages mal kurz auswerten.

Zitat

---

in der Auswertung sollte der Zeitraum (Datum von bis) erscheinen, damit wäre die Ausgabe inklusive der maximalen und minimalen Werte rund und interessant

---

Siehe oben, andere Baustelle. Aber den Minimalwert und den Maximalwert werde ich mir noch einbauen, und auch verraten, wie das geht, wenn niemand so frei ist, einen Vorschlag zu machen.

Wie an anderer Stelle schon mal gesagt, die Skripte hier sollen Anreiz schaffen, selbst produktiv zu werden.

Mich würde auch vor allem interessieren, welche durchschnittlichen Werte andere so haben, nachdem ich mir ernsthafte Gedanken über meine, bisher jedoch nur unsystematisch beobachteten, niedrigen Werte mache, was der eigentliche Auslöser für das Skript war.

Grüße
Rüdiger

Hallo Rüdiger,

meine Zeilen sind auch dafür gedacht, Anregungen für die Auseinandersetzung mit den Scriptfunktionen zu geben

Übrigens - mit der Programmlaufzeit meinte ich die Scriptlaufzeit, also Startzeit speichern, Endzeit speichern, Differenz mit ausgeben. Da das Programm recht lange läuft.

Und der Pfad z.B. c:test...test.log ist bekannt und steht hinter der Variablen pfa.

Nun fehlt nur noch der Befehl

öffne notepad mit der Datei pfa

Aber das nur nebenbei als Ergänzung zu meinen Anregungen

Zitat

---

meine Zeilen sind auch dafür gedacht, Anregungen für die Auseinandersetzung mit den Scriptfunktionen zu geben

---

Schön, dass wir uns da einig sind.

Zitat

---

Übrigens - mit der Programmlaufzeit meinte ich die Scriptlaufzeit, also Startzeit speichern, Endzeit speichern, Differenz mit ausgeben. Da das Programm recht lange läuft.

---

Das hängt natürlich von der Größe der Datei ab, die mal länger, mal kürzer ist. Klar kann man das machen, aber ist da so wichtig? - Ich finde nicht.

Zitat

---

Und der Pfad z.B. c:test...test.log ist bekannt und steht hinter der Variablen pfa.

---

Das verstehe ich nun nicht. Bei mir lautet der Pfad zum Beispiel so:

C:UsersRüdiger WilkeAppDataRoamingNuanceNaturallySpeaking11



Rüdiger

Hat jemand ähnlich schlechte/chaotische Werte bei der Signalqualität?

Hier kommt noch mal eine überarbeitete Version des Skriptes, u.a. mit Ermittlung von Minimum/Maximum. Ich empfehle den o.g. Code zu ersetzen:

    Dim currentVal, totalVal, minVal, maxVal, i As Integer
    currentVal = 0
    totalVal = 0
    minVal = 100
    maxVal = 0
    i = 0
    SendKeys "^f",1
    SendKeys "sN ",1
    SendKeys "{Enter}",1
    Wait 0.2
    SendKeys "{Esc}",1
    SendKeys "^c",1
    While Clipboard$ = "sN "
    SendKeys "{Left}{Right}+{Right 2}",1
    SendKeys "^c",1
    currentVal = Val(Clipboard$)
    If currentVal  maxVal Then maxVal = currentVal
    totalVal = totalVal + currentVal
    i = i+1
    SendKeys "{Right}",1
    SendKeys "{F3}",1
    Wait 0.2
    SendKeys "^c",1
    Wend
    SendKeys "{Enter}",1
    Wait 0.5
    MsgBox "Total Value: " + CStr(totalVal) + vbLf _
        + "Number of items: " + CStr(i) + vbLf _
        + "Average: " + CStr(Round(totalVal/i,2)) + vbLf _
        + "Minimum: " + CStr(minVal) + vbLf _
        + "Maximum: " + CStr(maxVal)
 

 

Vorteilhaft ist nach meiner Beobachtung, die Erkennungsansicht mit Details zu speichern, und das Skript über die dabei erzeugte Datei laufen zu lassen.

Grüße
Rüdiger Wilke

Bei mir ergibt sich beispielsweise

Total Value 4279
Number of items: 146
Average: 29,31
Minimum: 10
Maximum: 38.

Der Wert 10 kam nur einmal vor, erkannt wurde , also wohl ein Störgeräusch. Die meisten Werte liegen gefühlt zwischen 25 und 35. So chaotisch ist es nicht. Die Fehlermeldung von der niedrigen Audioqualität kann ich beim bösesten Willen nicht generieren...

Gruß, Marius Raabe

Grübel...

Hallo Rüdiger,

eine kurze Ergänzung zu Deinem Beitrag Nummer 7:

ich finde es grundlegend interessant, wie lange ein Skript läuft. Da ich bisher noch keinen Programmschnipsel gefunden habe, der das löst, habe ich das hier rein getippt, in der Hoffnung, dass jemand dafür die Lösung kennt.

Zum Stichpunkt Pfad:

nehmen wir mal an, meine Log-Datei liegt hier:

C:TestDragon. Log

was muss ich schreiben, damit diese über ein Skript in Notepad geöffnet wird?

Variable = C:TestDragon. Log
starrte Variable mit Notepad. Exe
bringe das Fenster Editor (Notepad) in den Vordergrund

So musste umgangssprachlich das Skript aussehen, da die Erweiterung log bei mir mit einem anderen Programm verknüpft ist.

Ich wollte nur in Erfahrung bringen, wie das funktioniert, um das Skript entsprechend zu erweitern.

Liebe Anja,

selbst die Frau, Du jedenfalls. Wenn Du das Skript geöffnet hast, geh mal unten rechts auf "Hilfe", scrolle nach unten etwa bis zur Mitte, und folge dort den Links für die Skript-Hilfe. Suche darin nach dem Befehl "AppBringUp", und Du wirst es finden - und eine Menge nützlicher Sachen mehr, die man einfach mal ausprobieren muss.

Viel Spaß dabei!
Rüdiger

Zitat von Drachenfee

---

ich finde es grundlegend interessant, wie lange ein Skript läuft. Da ich bisher noch keinen Programmschnipsel gefunden habe, der das löst, habe ich das hier rein getippt, in der Hoffnung, dass jemand dafür die Lösung kennt.

---

Hallo Anja,

alles Nötige dafür findest Du hier:

http://dragon-spracherkennung.forumprofi...st761.html#p761

Grüße
Rüdiger

Auf besonderen Wunsch...

... neueste Version des Skriptes mit Angabe der Laufzeit, außerdem werden Werte von -1 (HeardWord) nicht aufgenommen.

Jetzt muss es aber gut sein damit.

    Dim currentVal, totalVal, minVal, maxVal, i As Integer
    currentVal = 0
    totalVal = 0
    minVal = 100
    maxVal = 0
    i = 0
    timeStarted = Now
    SendKeys "^f",1
    SendKeys "sN ",1
    SendKeys "{Enter}",1
    Wait 0.2
    SendKeys "{Esc}",1
    SendKeys "^c",1
    While Clipboard$ = "sN "
    SendKeys "{Left}{Right}+{Right 2}",1
    SendKeys "^c",1
    currentVal = Val(Clipboard$)
    If currentVal > 0 Then
    If currentVal  maxVal Then maxVal = currentVal
    totalVal = totalVal + currentVal
    i = i+1
    End If
    SendKeys "{Right}",1
    SendKeys "{F3}",1
    Wait 0.1
    SendKeys "^c",1
    Wend
    Wait 0.5
    SendKeys "{Enter}",1
    Wait 0.5
    timeEnded = Now
    timeElapse = timeEnded - timeStarted
    MsgBox "Total: " + CStr(totalVal) + vbLf _
        + "Items: " + CStr(i) + vbLf _
        + "Average: " + CStr(Round(totalVal/i,2)) + vbLf _
        + "Minimum: " + CStr(minVal) + vbLf _
        + "Maximum: " + CStr(maxVal) + vbLf + vbLf _
        + "Started: " + Format(timeStarted,"hh:mm:ss") + vbLf _
        + "Ended: " + Format(timeEnded,"hh:mm:ss") + vbLf _
        + "Elapsed: " + Format(timeElapse,"hh:mm:ss")