Text in Fenster suchen/finden und anschließend den nachfolgenden Text in den Zwischenspeicher kopieren?

Padde86

Hallo zusammen,

ich habe mir mittlerweile ein paar Scripts zusammengeschrieben, die gut funktionieren.
Wenn ich etwas nicht wusste oder nicht verstanden habe, bin ich bisher immer mit Googlen ans Ziel gekommen.
Nun ist aber Schicht im Schacht, ich komme einfach nicht weiter...
Daher habe ich mich nun angemeldet und hoffe auf eure Hilfe

Es geht darum: Ich habe im "Visible Text" eines Fensters immer an der gleichen Stelle einen Wert, welcher sich jedoch verändert:

Spoiler anzeigen

...
&Versenden
abc
def
...
&Parameter
ghi
...
&Adresse
713018
183422
...

Es geht immer um die Nummer hinter "&Adresse". Wie gesagt, die Nummer verändert sich.
Meine Idee war also, dass das Script erst mal den "Visible Text" nach "&Adresse" durchsucht und anschließend eine Zeile runter geht und dann die Zeile in den Zwischenspeicher kopiert.
Diesen Wert muss ich anschließend nämlich wo anders wieder einfügen.

Habt ihr dazu eine Lösung?
Oder denke ich zu umständlich und es geht auch einfacher?

Falls ihr noch weitere Infos benötigt, lasst es mich wissen.
Danke schon mal im Voraus

Grüße
Padde

**chesstiger**

Wenn du den Teil mit dem Auslesen des ganzen "Visible Texts" schon geschafft hast, ist der Rest nur noch String-Schnippelei. Grundsätzlich zwei Möglichkeiten:
1. Händisch den Text mit allen möglichen String-Funktionen zerlegen, bis du deine Nummer hast. Ist für Anfänger leichter zu verstehen, bedeutet jedoch Aufwand und Bastelei.
2. StringRegExp nutzen. Ist deutlich schwerer zu verstehen, geht allerdings, wenn man es einmal kann, wesentlich schneller und einfacher. Außerdem ist es eleganter.

Ich habe mal die zweite Möglichkeit schnell aus dem Kopf heraus umgesetzt.

Code

Func GetNumber($sWholeText)
	Return StringRegExp($sWholeText, "(?m)^\Q&Adresse\E\n(.+)$", 3)[0]
EndFunc

Ohne Errorhandling usw... Aber das Pattern sollte stimmen.

Erklärung des Pattern

Code

Ganzes Pattern: (?m)^\Q&Adresse\E\n(.+)$
(?m): Multiline-Option => ^ bedeutet Zeilenanfang, $ bedeutet Zeilenende
^: Zeilenanfang
\Q: Der folgende Text soll keine Sonderfunktionen auslösen
&Adresse: Dieser Text muss dort stehen
\E: Aufhebung von \Q
\n: Zeilenumbruch
(.+): 
	(: Beginne Match-Gruppe (alles zwischen den Klammern wird "gespeichert")
	.: Beliebiges Zeichen außer Zeilenumbruch
	+: Wiederhole das vorherige Zeichen 1 bis unendlich mal
	): Beende Match-Gruppe
$: Zeilenende

Alles anzeigen

Das heißt, unser Ergebnis ist das, was in den runden Klammern steht. Wir schauen halt, welche Rahmenbedingungen dieser Text erfüllen muss.

Edit:
Mir dämmert gerade, dass es mit \n als Zeilenumbruch unter Windows nicht getan ist. Einfach durch ein \s* ersetzen, dann sollte auch das gehen. Hat den Hintergrund, dass Windows anders als Linux die Sequenz \r \n (Carriage Return & Line Feed, CRLF) zum Zeilenumbruch nutzt. Ich bin jetzt von Linux ausgegangen, da ist es nur \n. \s matcht alle nicht-sichtbaren Zeichen, * steht für beliebige Anzahl.
Neues Pattern:

Code

(?m)^\Q&Adresse\E\s*(.+)$

Padde86

Hallo chesstiger,

erst einmal VIELEN DANK für deine Antwort

Ich gehe davon aus, dass es dann ungefähr so aussehen müsste:

AutoIt

WinGetText("Mein Fenster", "")
Func GetNumber($sWholeText)
Return StringRegExp($sWholeText, "(?m)^\Q&Adresse\E\n(.+)$", 3)[0]
EndFunc


run("notepad.exe")
sleep(2000)
send("{CTRLDOWN}v{CTRLUP}")

Das hat den String dann aber noch nicht kopiert und fügt mir somit nichts (oder was altes aus der Zwischenablage) ein.
Kannst du mir bitte noch soweit auf die Sprünge helfen, dass es noch in den Zwischenspeicher kopiert?

Danke nochmal und Grüße
Padde

**autoBert**

Schau mal in der Hilfe nach ClipPut

**chesstiger**

Uah. Kann es sein, dass dir noch ein paar... Grundkenntnisse fehlen?

Du musst das Ergebnis von WinGetText in einer Variable speichern. Wie im Schulunterricht bei einem x=5, nur dass du hier einfach sowas wie $sText = WinGetText(...) schreibst. Dann kannst du mit dieser Variable weiterarbeiten. Ich habe dir eine Funktion geschrieben. Wenn wir unsere Analogie mit dem Schulunterricht weiterführen, hast du hier eine Funktion wie f(x). Das heißt, du musst in die Klammern als Argument das Ergebnis von WinGetText (=>$sText) einfügen. Das ganze speichern wir wieder: $sSearch = GetNumber($sText). Zum Schluss nutzen wir mit unserem Ergebnis noch die ClipPut-Funktion. Damit schmeißen wir etwas in die Zwischenablage: ClipPut($sSearch).
Du kannst hier ein Grundlagentutorial als PDF runterladen. Diese kurze Erklärung kann das nämlich nicht ersetzen.

Guck nochmal in meinem ersten Post, ich habe da noch was geändert.

Padde86

Hallo chesstiger,

möglicherweise fehlen noch ein paar Grundkenntnisse, ja

Ich habe mir bisher halt ein Script gemacht, welches den Autostart meines PC im Geschäft automatisiert.
Also Öffne Programm A -> warte bis aktiv -> minimiere -> öffne Programm B -> etc...

Nun bin ich dabei, weitere Abläufe zu "vereinfachen". Zusammen mit AutoHotKey gehen manche Dinge so mit einem Knopfdruck, anstatt mit vielen Klicks und manuellem Schreiben
Also die "GRUND-Grundkenntnisse" sind schon da

Unser Programm hat jedoch ein Fenster, in welches man nicht reinklicken kann.
Daher benötige ich die sechsstellige Nummer aus dem "Visible Text".
So weit sind meine Kenntnisse nun aber noch nicht, wie man ja sieht und merkt

Leider pressiert es etwas.
Ich verspreche hoch und heilig, dass ich mir die PDF nachher (und in den folgenden Tagen) zu Gemüte führe.
Habe gerade schon reingeschaut, siehe auf jeden Fall interessant aus!

Darf ich dennoch höflich darum betteln, dass du es mit kurz hinzauberst?
Nicht, weil ich zu faul bin, sondern weil es ein kleines bisschen eilt.

So sieht es bei mir aktuell aus (und funktioniert natürlich nicht):

AutoIt

$sText = WinGetText("Mein Fenster", "")
Func GetNumber($sWholeText)
	Return StringRegExp($sWholeText, "(?m)^\Q&Adresse\E\s*(.+)$", 3)[0]
$sSearch = GetNumber($sText)
ClipPut($sSearch)
EndFunc
run("notepad.exe")
sleep(2000)
send("{CTRLDOWN}v{CTRLUP}")

Danke für deine Hilfe und auch für die nette Art und Weise, in der du es mir erklärst.
Nicht nur so "schau hier, schau dort" - wirklich ernst gemeint -> DANKE!

PS: Deine Änderung im ersten Post habe ich gesehen und berücksichtigt

Grüße
Padde

Padde86

AH ICH HABE ES !!!

Ein bisschen in der PDF weitergelesen und verstanden !!!!

AutoIt

$sText = WinGetText("Mein Fenster", "")
Func GetNumber($sText)
	Return StringRegExp($sText, "(?m)^\Q&Adresse\E\s*(.+)$", 3)[0]
EndFunc
$sSearch = GetNumber($sText)
ClipPut($sSearch)
run("notepad.exe")
sleep(2000)
send("{CTRLDOWN}v{CTRLUP}")

JUHU, DANKE !!!

**Kanashius**

So im allgemeinen: Meistens schreibt man die Funktionen nach ganz unten, da die ja überall aufgerufen werden können, ist dann etwas übersichtlicher
Demnach dann so:

AutoIt

$sText = WinGetText("Mein Fenster", "")
$sSearch = GetNumber($sText)
ClipPut($sSearch)


run("notepad.exe")
sleep(2000)
send("{CTRLDOWN}v{CTRLUP}")


Func GetNumber($sText)
	Return StringRegExp($sText, "(?m)^\Q&Adresse\E\s*(.+)$", 3)[0]
EndFunc

Alles anzeigen

Bei dem kleinen Programm hier aber eher nicht von Bedeutung

Padde86

So, nächstes großes Fragezeichen im Gesicht...

Ich möchte nun nach einem anderen Wert suchen, dafür benötige ich ab "Beleg gedruckt" sieben Zeilenumbrüche!

Müsste das dann irgendwie so aussehen?

AutoIt

Return StringRegExp($sTextOrder, "(?m)^\QBeleg gedruckt\E\s\s\s\s\s\s\s(.+)$", 3)[0]

Oder so?

AutoIt

Return StringRegExp($sTextOrder, "(?m)^\QBeleg gedruckt\E\s{7}(.+)$", 3)[0]

Aus welchen Gründe auch immer tun beide nicht

Danke & Grüße
Padde

**chesstiger**

\s* ist ja nur der Zeilenumbruch und etwaige Leerzeichen an sich. Da fehlt noch der Inhalt jeder Zeile. Wir können verallgemeinernd sagen, dass jede Zeile aus einem Haufen Zeichen und dem Zeilenumbruch am Ende besteht. Eine Zeile erfassen wir also mit .*\s*, sprich "Eine beliebige Anzahl von Zeichen und dann eine beliebige Anzahl von Whitespaces (Zeilenumbruch)". Das packen wir in eine sogenannte Non-Capturing Group ((?:...)). Das ist eine Gruppe (also etwas, was durch runde Klammern begrenzt wird), deren Ergebnis aber nicht gespeichert wird. So können wir einen Multiplikator {n} auf den gesamten Ausdruck .*\s* anwenden: (?:.*\s*){n}
Das müssen wir jetzt nur noch richtig in unserem vorherigen Pattern ((?m)^\Q&Adresse\E\s*(.+)$) einfügen. Nur wo? Nun, der Teil für die erste Zeile und den Zeilenumbruch danach muss so im ganzen bestehen bleiben, der Teil für das eigentliche Festhalten des Suchtextes auch. Also schreiben wir unser Code-Fragment dazwischen. Jetzt gilt es nur noch, den Multiplikator richtig zu wählen. Da wir schon einen Zeilenumbruch nach der ersten Zeile finden, müssen wir hier nur noch den Multiplikator 6 wählen: (?m)^\Q&Adresse\E\s*(?:.*\s*){6}(.+)$
Zu guter letzt muss natürlich noch das &Adresse ersetzt werden: (?m)^\QBeleg gedruckt\E\s*(?:.*\s*){6}(.+)$

Testweise hat es so funktioniert. Wenn nicht, melde dich.

**Kanashius**

Weil chess dich hier mit RegEx erschlägt geb ich dir das mal mit Splitten, dann kannst du es auch einfacher selbst probieren^^

AutoIt

#include <array.au3>;nur für arraydisplay
;$sText = WinGetText("[active]", "")
$sText="..."&@crlf&"&Versenden"&@crlf&"abc"&@crlf&"def"&@crlf&"..."&@crlf&"&Parameter"&@crlf&"ghi"&@crlf&"..."&@crlf&"&Adresse"&@crlf&"713018"&@crlf&"183422"&@crlf&"..."
$sSearch = GetNumber($sText,"&Adresse",9)
if $sSearch<>"Error" then;trat kein Fehler auf, kommt das ganze ins Notepad
	ClipPut($sSearch)
	run("notepad.exe")
	sleep(2000)
	send("{CTRLDOWN}v{CTRLUP}")
endif


Func GetNumber($sText,$search,$next);Text übergeben, Suchbegriff übergeben, Anzahl Zeilen darunter übergeben
	$ar=StringSplit($sText,@crlf,1+2);Hier wird der String an Zelenumbrüchen aufgeteilt.
	_ArrayDisplay($ar);nur zum angucken für dich, kannst die zeile rausnehmen, ebenso wie den include oben
	$index=-1
	for $i=0 to UBound($ar)-1 step 1;Hier guckt man mit Ubound($ar), wie viele Einträge das Array hat und geht diese alle durch (0 und ubound()-1, da der index bei 0 anfängt)
		if StringInStr($ar[$i],$search) then;wenn der gesuchte string in der zeile enthalten ist, wollen wir uns diese merken
			$index=$i
			ExitLoop;damit wir den rest des arrays nicht mehr durchsuchen müssen, springen wir hier einfach aus der for-schleife heraus
		endif
	next
	if $index=-1 then;hier gucken wir, ob der index gesetzt wurde, also der gesuchte text gefunden wurde, sonst gibts ne fehlermeldung.
		MsgBox(16,"Error",$search&" not found!")
	else
		;hier prüfen wir nochmal, ob der index auch erreichbar ist, falls nach &Adresse beispielsweise kein text mehr kommt
		if $index+$next>UBound($ar)-1 then
			MsgBox(16,"Error","Index: "&$index+$next&" not found!")
		else
			return $ar[$index+$next];ansonsten geben wir den string an dem jeweiligen index zurück.
		endif
	endif
	;trat ein Fehler auf, geben wir Error zurück
	return "Error"
EndFunc

Alles anzeigen

Falls du was nicht verstehst, einmal ausführen und dir das Array einmal ansehen. Sonst gerne noch Fragen.
Das RegEx, was Chesstiger benutzt ist meiner Meinung nach für so eine simple Aufgabe eigentlich nicht nötig^^, aber wenn mans kann ist gut

MfG Kanashius

**chesstiger**

Man gewöhnt es sich lieber schon früh an. Natürlich, es geht auch anders... Aber RegExp ist einfach einen ganzen Tacken schneller, sowohl beim Schreiben als auch beim Ausführen.

Vergleich

Code

=== AutoIt Function Performance Test ===
We're comparing 2 functions:
	1. StringSearch mit StringRegExp (chesstiger)
	2. Stringsearch mit Stringfunktionen (Kanashius)


--- Test with 10^0=00000001 runs ---
	1. Whole time: 0.0247 ms => Average: 0.0247 ms
	2. Whole time: 0.0919 ms => Average: 0.0919 ms
---  Function 1 was the fastest  ---


--- Test with 10^1=00000010 runs ---
	1. Whole time: 0.0606 ms => Average: 0.0061 ms
	2. Whole time: 0.3452 ms => Average: 0.0345 ms
---  Function 1 was the fastest  ---


--- Test with 10^2=00000100 runs ---
	1. Whole time: 0.4600 ms => Average: 0.0046 ms
	2. Whole time: 2.9973 ms => Average: 0.0300 ms
---  Function 1 was the fastest  ---


--- Test with 10^3=00001000 runs ---
	1. Whole time: 5.4861 ms => Average: 0.0055 ms
	2. Whole time: 30.8255 ms => Average: 0.0308 ms
---  Function 1 was the fastest  ---


--- Test with 10^4=00010000 runs ---
	1. Whole time: 47.7362 ms => Average: 0.0048 ms
	2. Whole time: 300.0551 ms => Average: 0.0300 ms
---  Function 1 was the fastest  ---


--- Test with 10^5=00100000 runs ---
	1. Whole time: 443.0035 ms => Average: 0.0044 ms
	2. Whole time: 2982.0079 ms => Average: 0.0298 ms
---  Function 1 was the fastest  ---


=== Results & Speed Ranking ===
	1. Function 1 with 6 wins
	2. Function 2 with 0 wins
=> Function 1 ('StringSearch mit StringRegExp (chesstiger)') is the fastest.

Alles anzeigen

Und er hat ja schon einen Teil von RegExp verstanden, sieht man ja an den (guten) Versuchen.

Padde86

Hallo Kanashius und chesstiger,

haha unfassbar mit AutoIt kann man sogar Benchmarks laufen lassen, welche Funktion schneller ist!? Wahnsinn!

Ich möchte mich natürlich auf jeden Fall bei euch beiden bedanken, dass ihr euch das angeschaut und euch die Zeit genommen habt, euch damit auseinanderzusetzen!

Kanashius hat weiter oben geschrieben, dass es sich um ein "kleines Programm" handelt.
So klein ist es aber gar nicht - mein eines Script hat 46 Zeilen und das andere 104 Zeilen.
Gut, für eure Verhältnisse ist das wahrscheinlich WINZIG

Da ich immer am weiter Schreiben bin, werden sich mir sicherlich noch ein paar Fragen stellen.
Wer Interesse am Code hat, dem schicke ich ihn gerne mal im Ganzen.
Da hier aber geschäftliche Infos lesbar sind, möchte ich ihn nicht öffentlich posten - ich gehe davon aus, dass Ihr Verständnis dafür habt.

Ich verbleibe demütig und dankbar

Grüße
Padde

x0r

Statt

AutoIt

send("{CTRLDOWN}v{CTRLUP}")

verwende ich seit Jahren

AutoIt

Send("^c")

gab noch nie Probleme...

Padde86

Hallo,

ich mal wieder

Frage:

AutoIt

Func GetAnsprechpartner($sText)
	Return StringRegExp($sText, "(?m)^\Test Test Test\E\s*(?:.*\s*){10}(.+)$", 3)[0]
 EndFunc

Dieser Funktion sucht ja ab "Test Test Test" in der 11ten Zeile (nach unten).
Wie kann man das umbiegen, dass er von dort aus "nach oben" sucht?
Ich hoffe, ihr versteht

Danke im Voraus.

Grüße
Padde

**Kanashius**

Und hier die Lösung, für das Script, das ich oben schon genutzt hatte. (Leider ungetestet, bin in der Uni->Linux Laptop)

AutoIt

Func GetNumber($sText,$search,$next,$oncurrence=0);Text übergeben, Suchbegriff übergeben, Anzahl Zeilen darunter übergeben, Wievieltes auftauchen
	if $oncurrence<0 then
 		MsgBox(16,"Error","Oncurrence <0")
		return "Error"
	endif
    	$ar=StringSplit($sText,@crlf,1+2);Hier wird der String an Zelenumbrüchen aufgeteilt.
    	;_ArrayDisplay($ar);nur zum angucken für dich, kannst die zeile rausnehmen, ebenso wie den include oben
    	$index=-1
    	for $i=0 to UBound($ar)-1 step 1;Hier guckt man mit Ubound($ar), wie viele Einträge das Array hat und geht diese alle durch (0 und ubound()-1, da der index bei 0 anfängt)
    		if StringInStr($ar[$i],$search) then;wenn der gesuchte string in der zeile enthalten ist, wollen wir uns diese merken
			if $oncurrence=0 then
	    			$index=$i
    				ExitLoop;damit wir den rest des arrays nicht mehr durchsuchen müssen, springen wir hier einfach aus der for-schleife heraus
			else
				$oncurrence-=1
			endif
    		endif
    	next
    	if $index=-1 then;hier gucken wir, ob der index gesetzt wurde, also der gesuchte text gefunden wurde, sonst gibts ne fehlermeldung.
    		MsgBox(16,"Error",$search&" not found!")
    	else
    		;hier prüfen wir nochmal, ob der index auch erreichbar ist, falls nach &Adresse beispielsweise kein text mehr kommt
    		if $index+$next>UBound($ar)-1 or $index+$next<0 then
    			MsgBox(16,"Error","Index: "&$index+$next&" not found!")
    		else
    			return $ar[$index+$next];ansonsten geben wir den string an dem jeweiligen index zurück.
    		endif
    	endif
    	;trat ein Fehler auf, geben wir Error zurück
    	return "Error"
    EndFunc

Alles anzeigen

Ist vielleicht ein bisschen mehr Quellcode, ich denke, dass du die Änderungen aber entsprechend selber hättest machen können, da es verständlicher ist.

MfG Kanashius.

Padde86

Ich bräuchte wirklich nur die Funktion, dass er eine Zeile oberhalb von (z.B.) "EUR" sucht.

Geht irgendwas in diese Richtung hier?

AutoIt

Func GetAnsprechpartner1($sText)
	Return StringRegExp($sText, "(?m)^\QEUR\E\s*(?:.*\s*){-1}(.+)$", 3)[0]
 EndFunc

Ich habe "-1" eingesetzt. Das funktioniert NICHT!
Aber gibt es eine Möglichkeit in dieser Richtung?

x0r

ka worums grade geht, aber eine zeile oberhalb von "x":

AutoIt

Global $suchen = "EUR"
Global $cb = ClipGet()


einsoberhalb($cb)


Func einsoberhalb($text)
	$lines = StringSplit($text, @CR)


	for $i = 1 to $lines[0]
		if StringInStr($lines[$i], "EUR") Then ConsoleWrite($lines[$i-1] & @CR)
	Next
EndFunc

Alles anzeigen

Padde86

Hallo x0r, und danke!

Return StringRegExp($sText, "(?m)^\QEUR\E\s*(?:.*\s*){1}(.+)$", 3)[0]

Das fett markierte ist doch ein "Quantifier", oder?
Lassen sich keine negative Quantifier benutzen?

**Andy**

Zitat von Padde86

Lassen sich keine negative Quantifier benutzen?

Du hast die Funktion der Regular Expressions nicht verstanden...
Wieso lässt du dir nicht einfach die Zeile VOR dem EUR ausgeben anstatt die danach?

AutoIt

$text="bla" & @crlf&"blub"& @crlf&"test"& @crlf& "tralala EUR..." & @crlf& "ende"&@crlf


$ret=StringRegExp($text, "(?m)(^.+$)\r\n(?:^.+EUR.+)", 3)  


msgbox(0,0,$text & @crlf & $ret[0])

(?m) multiline, ^und $ sind Anfang und Ende der Zeile
(^.+$) ^Zeilenanfang .+ eins oder mehr Zeichen $ Zeilenende in Klammern ist dein MATCH!!!
\r\n CR und LF
(?: nicht matchende Gruppe
^.+EUR.+) Zeileninhalt enthält EUR

der Match enthält die Zeile, welche VOR der Zeile mit EUR steht