Text filtern mit StringInStr bzw. Position von Wörtern herausfinden und anwählen

http://translation.autoit.de/onlinehilfe/fu…StringInStr.htm

Dort kannst du nachlesen, wie die Funktion funktioniert.
Ebenso, dass diese Funktion dir die Position innerhalb des Strings zurückgibt.

Guten Morgen,

Das ist wahrscheinlich wieder was für die Regex Profis. Die schnuckeln dir das locker in eine Zeile

Mir persönlich fehlt da als Angabe zu deinem $sData-String ein Beispiel. Denn ich bin mit meinem Kenntnisstand auf Schleifen und Getrimme hier und Geschnippel da beschränkt. Da ist für mich von Bedeutung, wie ich den gesuchten String vom Rest abgrenzen kann. Gibt es also Absatzzeichen, oder würde dir alles in einer Zeile angezeigt werden? Unten gehe ich einfach mal von ersterem aus.

Die Position habe ich jetzt nicht dazu geschrieben. Die ergibt sich aber schon aus deiner ersten StringinString Suche + bspw. StringLen("Test1: "). Alles recht unprofessionell.. Nach diesem Schema kann man aber mit allen möglichen Texten ziemlich einfach arbeiten. Du musst nur das Prinzip mal verstanden haben, dann geht es ab

; Nur für ArrayDisplay eingebunden, damit du es dir direkt ansehen kannst. Das kann beides entfernt werden.
#include <Array.au3>


$sData = "bla blablaba bla" & @LF & "Test1: Test2-123456789" & @LF & "bla Blub bla"
MsgBox(0, "", $sData)


Local $iPosition, $aDataSplit, $aResults, $sTest2, $s123456789




$iPosition = StringInStr($sData, "Test1", 0, 1)


; Wenn Test1 gefunden wurde, dann..
If $iPosition <> 0 Then


	; Hier erstelle ich mit StringSplit ein aus dem String ein Array, das ich durchsuche.
	; getrennt wird der Text am Zeilenumbruch.
	$aDataSplit = StringSplit($sData, @LF)
	_ArrayDisplay($aDataSplit)


	; Hier wird nun das Array Zeile für Zeile auf Vorkommen von Test1 geprüft.
	For $i = 0 To UBound($aDataSplit) - 1


		; Wenn Test1 in der Zeile gefunden wurde dann..
		If StringInStr($aDataSplit[$i], "Test1") Then


			; wird die Zeile am Bindestrich geteilt, indem wieder ein Array gebildet wird.
			; Trenner ist diesmal der Bindestrich.
			$aResults = StringSplit($aDataSplit[$i], "-")


			; $Test2 ist nun alles vor dem Bindestrich, abzüglich der ersten sieben Zeichen.
			; Die lauten ja immer Test1. Wenn sich die Zeichenanzahl doch unterscheidet,
			; böte sich auch $sTest2 = StringReplace($aResults[1], "Test1: ", "") an.
			; Genauso ginge auch $sTest2 = StringTrimLeft($aResults[1], StringLen("Test1: "))
			; Viele Wege führen nach Rom ;)
			$sTest2 = StringTrimLeft($aResults[1], 7)


			; Die Zahlenreihe ist alles nach dem Bindestrich
			$s123456789 = $aResults[2]


			; Wir haben, was wir wollten. Die Schleife kann abgebrochen werden.
			ExitLoop
		EndIf
	Next


	; Hier das Ergebnis.
	MsgBox(0, "Ergebnisse", "Text lautet: " & $sTest2 & @CRLF & _
			"Zahlenreihe lautet: " & $s123456789)
EndIf

Oder mit StingSplit:

$sEingabe = "Text-123456789" ;Hier dein Eingabestring


$aTeile = StringSplit ( $sEingabe, "-", 2) ;Warum so und nicht anders kannst du in der Hilfe finden


$sErsterTeil = $aTeile[x]   ; x-> Hier die Hilfe nachlesen, damit du weist wie es funktioniert
$sZweiterTeil = $aTeile[x]  ; x-> Hier die Hilfe nachlesen, damit du weist wie es funktioniert

Grüße
Tim

Ich habe mich erst über die nachfolgenden Antworten gewundert. Aber ja, ich habe gar nicht richtig gelesen.

Dein "Test1: Test2-123456789" ist nicht eingebettet in anderen Text, sondern ist der gesamte Inhalt von $sData.
Wie oben geschrieben erschöpft es sich dann auch in dem Dreizeiler. Du musst da nur im ersten Teil "Test1: " mit Stringreplace oder StringtrimLeft entfernen.

Oder in RegEx ein ein Zeiler mit dem Pattern (?:\d{1})(\d+)

@4ern
hast du dein Pattern vorher mal getestet?
Damit wird nur 23456789 (ohne die führende 1...) gefunden.
Die zweite benötigte Information "Test2" wird damit auch nicht gematcht.

Wenn schon RegEx dann eher sowas:^\w+:\s*(\w+)-(\d+)

@Interlink
Heb dir die RegEx-Funktionen für später auf - schöne Sache aber braucht Zeit.
Die Lösungen mit StringSplit oder StringInStr/String[Trim]Left|Right/StringMid bringen dich ebenfalls ans Ziel.

RexEx ist ist ein machtvolles Werkzeug, doch kann ein Anfänger wie Interlink verstehen was da passiert ?

Grüße