Search in a string / position

[MyEarth]

Hello,

I have string like this:

Auto|it|is|funny|sometime

I want to know if ex. "funny" is in the string and return the position ( in the example the number 4 )

How to do that? Thanks

[water]

Function StringInStr?

[MyEarth]

I have some problem, If i have 2 string named:

Auto

Autoit

And i want to search for "Autoit", give me the wrong result ( 1 instead of 2 )

But in general give me wrong result, i have search for the 6 element and give me 55

Edited May 31, 2013 by MyEarth

[water]

Ok, I think you need something like this:

$sString = "Auto|it|is|funny|sometime"
$sSearch = "funny"
$aWords = StringSplit($sString, "|")
For $i = 1 To $aWords[0]
    If $aWords[$i] = $sSearch Then
        MsgBox(0, "Result", "Searchword '" & $sSearch & "' found at position " & $i)
        ExitLoop
    EndIf
Next

[mrflibblehat]

Or you could use _ArraySearch

#include <Array.au3>
    $vString = "Auto|it|is|funny|sometime"

    $vArray = StringSplit($vString, "|")

    $vArraySearch = _ArraySearch($vArray, "funny")

    ConsoleWrite($vArraySearch)

[guinness]

Why don't you just search for |funny| ?

Not totally related, but might get you thinking.

#include <Constants.au3>

Example()

Func Example()
    ; String to search for the word "auto".
    Local $sString = 'This is an automatic AutoIt string with auto text.'

    ; Case sensitive (use (?i:\bauto\b) for non-case sensitive. Replace the word auto with a unqiue search
    ; identifier.
    Local $sStringRename = StringRegExpReplace($sString, '(?:\bauto\b)', '_SEARCHSTRING1234_')

    ; Now use StringInStr to find the unique identifier.
    MsgBox($MB_SYSTEMMODAL, '', StringInStr($sStringRename, '_SEARCHSTRING1234_'))

    ; Traditional approach will find auto in automatic.
    MsgBox($MB_SYSTEMMODAL, '', StringInStr($sString, 'auto'))
EndFunc   ;==>Example

[czardas]

Your string contains delimiters, so use them in the search. Ha guinness beat me to it.

Edited May 31, 2013 by czardas

[water]

The OP doesn't want to get the Character but the Word position.

[czardas]

Result of StringInStr($string, $pattern) +1 ; if searching with the delimiter included.

Edited May 31, 2013 by czardas

[water]

Still not what the OP wants.

$sString = "Auto|it|is|funny|sometime"
$sSearch = "|funny|"
ConsoleWrite(StringInStr($sString, $sSearch)+1 & @LF)

returns 12.

But the OP wants 4.

[water]

And to make it find the first or last word you need to add the delimiter to both ends.

$sString = "Auto|it|is|funny|sometime"
$sSearch = "sometime"
ConsoleWrite(StringInStr("|" & $sString & "|", "|" & $sSearch & "|") & @LF)

[guinness]

The OP doesn't want to get the Character but the Word position.

No I see that when I re-read the problem again. Sorry.

[water]

First reading, then posting

[FireFox]

Maybe this:

$sString = "Auto|it|is|funny|sometime"
$sSearch = "funny"

$iWordPos = StringInStr($sString, $sSearch) + 1

$iWord = 1

For $i = 1 To $iWordPos -1
If StringMid($sString, $i, 1) = "|" Then $iWord += 1
Next

ConsoleWrite("Word number " & $iWord & @CrLf)

[guinness]

Sometimes the problem isn't what was originally described.

[water]

I just re-read the original post. The user seems to be quite clear what he wants.

I've seen a lot of posts where the user lets us guess what he wants. This one even gives us example data and an expected result.

[czardas]

Besides the obvious StringSplit solution, here's an alternative method.

Local $sString = "Auto|it|is|funny|sometime"
Local $pattern = "funny"
Local $iposition = StringInStr("|" & $sString & "|", "|" & $pattern & "|")

Local $sStringLeft, $iOccurence = 0
If $iposition Then
    $iOccurence += 1
    $sStringLeft = StringLeft("|" & $sString, $iposition -1)
    While StringInStr($sStringLeft, "|", 0, $iOccurence)
        $iOccurence += 1
    WEnd
EndIf

MsgBox(0, "", $iOccurence)

It's similar to what FireFox posted.

Edited May 31, 2013 by czardas

[Malkey]

Another method.

Local $vString = "Auto|it|is|funny|sometime" ; or "Auto it is funny sometime" ;
Local $sFind = "funny"
Local $iNum = UBound(StringRegExp($sFind, "(" & StringRegExpReplace($vString, "(\W+)", ")|(") & ")", 3))

MsgBox(0,"Results",'"' & $sFind & '" is word number #' & $iNum & ' in "' & $vString & '"' & @LF)

; Returns:-
; "funny" is word number #4 in "Auto|it|is|funny|sometime"

[water]

As always there are many ways to skin a cat.

I'm curious which of the solutions is preferred by the OP.

[guinness]

 

Another method.

Local $vString = "Auto|it|is|funny|sometime" ; or "Auto it is funny sometime" ;
Local $sFind = "funny"
Local $iNum = UBound(StringRegExp($sFind, "(" & StringRegExpReplace($vString, "(\W+)", ")|(") & ")", 3))

MsgBox(0,"Results",'"' & $sFind & '" is word number #' & $iNum & ' in "' & $vString & '"' & @LF)

; Returns:-
; "funny" is word number #4 in "Auto|it|is|funny|sometime"

Nice example Malkey.