StringInStr - Position(en) gesuchten Inhalt in String abfangen (mehrfach)

1. offizieller Beitrag

20. April 2017 um 08:15

#1

Hallo zusammen,

für die Funktion StringInStr gibt es die Möglichkeit eine Position einen definierten Inhalt zu bestimmen.

Code

#include <MsgBoxConstants.au3>


; Retrieve the character position of where the string 'white' first occurs in the sentence.
Local $iPosition = StringInStr("This is a sentence with whitespace. White is twice hier. White.", "white")
_ArrayDisplay($iPosition)
MsgBox($MB_SYSTEMMODAL, "", "The search string 'white' first appears at position: " & $iPosition)

Nun wie sieht es mit mehreren Stellen aus (s. Beispiel) ?
Danke und Gruß

Oscar

Moderator

Reaktionen

8

Beiträge

7.357
20. April 2017 um 09:00

Offizieller Beitrag
- #2
Es gibt bei StringInStr einen Parameter der sich "start" nennt. Wenn Du dort die zuletzt gefundene Postion (plus 1) einträgst, dann findet der Befehl die nächste Position im String.
MfG. Oscar
Forum: Arduino, Elektronik, AutoIt
tubsids

Schüler

Beiträge

79
20. April 2017 um 10:20
- #3
Hallo Oscar,
aber ich möchte jede Fund haben. Wie erwische ich nun alle gefundene Stellen?
Danke und Gruß
autoiter

Poweruser

Beiträge

1.441
20. April 2017 um 11:01
- #4
Einfach in einer Schleife das Vorgeschlagene tun,

Zitat von Oscar

Es gibt bei StringInStr einen Parameter der sich "start" nennt. Wenn Du dort die zuletzt gefundene Postion (plus 1) einträgst, dann findet der Befehl die nächste Position im String.

bis StringInStr 0 zurückgibt.
Grüße autoiter
chesstiger

Forenmaskottchen

Beiträge

1.555
20. April 2017 um 20:08
- #5
Entweder das oder du arbeitest mit dem Occurence-Parameter. Sollte auch gehen, in etwa so:
[autoit]

#include <Array.au3>
[/autoit][autoit][/autoit][autoit]
$sText = "CatDogBirdDogTrashpandaTigerDogCatWulfQuokkaDog"
$sSearch = "Dog"
[/autoit][autoit][/autoit][autoit]
$aPos1 = StringFindAllPos1($sText, $sSearch)
_ArrayDisplay($aPos1, "Start-Variante")
$aPos2 = StringFindAllPos2($sText, $sSearch)
_ArrayDisplay($aPos2, "Occurrence-Variante")
[/autoit][autoit][/autoit][autoit]
Func StringFindAllPos1($sText, $sSearch)
;works with "start" parameter
Local $aPos[0]
Local $iPos = 0
While True
$iPos = StringInStr($sText, $sSearch, False, 1, $iPos + 1)
If $iPos = 0 Then ExitLoop
_ArrayAdd($aPos, $iPos)
WEnd
Return $aPos
EndFunc
[/autoit][autoit][/autoit][autoit]
Func StringFindAllPos2($sText, $sSearch)
;works with "occurrence" parameter
Local $aPos[0]
Local $iCount = 1
While True
$iPos = StringInStr($sText, $sSearch, False, $iCount)
If $iPos = 0 Then ExitLoop
$iCount += 1
_ArrayAdd($aPos, $iPos)
WEnd
Return $aPos
[/autoit][autoit][/autoit][autoit]
EndFunc
[/autoit]
[Tutorial] Sauber Programmieren
[Tutorial] GDI+ Rundumschlag
[Blockierte Grafik: http://service.sebastian-walter.net/datediff/chess.php]
tubsids

Schüler

Beiträge

79
20. April 2017 um 22:23
- #6
Danke chesstiger und Autoiter für Vorschläge!

21. April 2017 um 17:57

#7

Yoar gut meine Lösung wäre diese:

AutoIt

;<Date&Ver&Aut) 21.04.2017 15:54 _ 0.1 _ Candyland
;<Task) Wo & wie häufig in einem String ein Wort vorkommt
;<Comment) Nicht Perfekt aber sollte aufzeigen in welche richtung es inetwa geht
#include <file.au3>


Local $Files[2] = [@ScriptDir & "\Words.txt", @ScriptDir & "\text.txt"]


;<==ScriptBegin==>
Local $Words_O = FileOpen($Files[0])
Local $Words_R = FileReadToArray($Words_O)
FileClose($Words_O)


Local $Search_RLines = _FileCountLines($Files[1])
Local $Search_O = FileOpen($Files[1])


Local $OCCURENCE, $count, $Position, $LookForWords, $READ_LINE, $STERNCHENS, $STERNCHENS_1, $CASESENSE = 0
For $i = 1 to $Search_RLines Step 1


	$READ_LINE = FileReadLine($Search_O, $i)
	$count = 0
	$Position = '|'


	For $is = 0 To UBound($Words_R) - 1 Step 1


		$OCCURENCE = 1


		Do


			$LookForWords = StringInStr($READ_LINE, $Words_R[$is], $CASESENSE, $OCCURENCE)


			If $LookForWords > 0 Then


				$count = $count + 1
				$Position &= $LookForWords & '-' & $Words_R[$is] & '|'
				$OCCURENCE = $OCCURENCE + 1


				$STERNCHENS_1 = StringLen($Words_R[$is])
				$STERNCHENS = ''
				For $ist = 1 To $STERNCHENS_1 Step 1
					$STERNCHENS &= '*'
				Next
				$READ_LINE = StringReplace($READ_LINE, $Words_R[$is], $STERNCHENS, $OCCURENCE, $CASESENSE)


			EndIf


		Until $LookForWords = 0


	Next


	If $count > 0 Then
		ConsoleWrite('Line ' & $i & ' Banned Words @Position' & $Position & @CRLF)
	Else
		ConsoleWrite('Line ' & $i & ' has Zero Banned Words' & @CRLF)
	EndIf


Next
FileClose($Search_O)
;<==/ScriptBegin==>

Alles anzeigen

Beispiel ist im Anhang.

In deinem Webbrowser ist JavaScript deaktiviert. Um alle Funktionen dieser Website nutzen zu können, muss JavaScript aktiviert sein.