AutoHotkey Community

MsgBox % _InStr("this is a test this is a test", "this", False, 0)

MsgBox % InStr("this is a test this is a test", "this", False, 0)

InStr(Haystack, Needle, CaseSensitive=False, StartingPos=1, Count=1) {
    scs := A_StringCaseSense
    StringCaseSense % CaseSensitive ? "On" : A_StringCaseSense="Off" ? "Off" : "Locale"
    StringGetPos, p, Haystack, % Needle, % (StartingPos>0 ? "L" : "R") . Count, % Abs(StartingPos) - (StartingPos>0)
    StringCaseSense % scs
    return ErrorLevel ? 0 : p+1
}

StrPos(Haystack, Needle, PosFlag="1", Count="1") {
  StringGetPos, pos, Haystack, % Needle, % (PosFlag>0 ? "L": "R") . Count, % PosFlag>0 ? PosFlag : StrLen(%Haystack%)-PosFlag
  return pos
}

;   myPos := StrPos(Haystack, Needle, p=1, w="L", m=1, s=0, r=0)
; Haystack
;   Whose contents will be searched
; Needle
;   The string to search for
; Position or Pointer (p and return of this function):
;   If positive, it is a position in left to right
;   If negative, it is a position in right to left
;   If 0, it is an error
;   If ommited, the default is 1
; Direction or Way (w) :
;   If not specified, the search direction is in normal way (left to right)
;   Else use "R" for reverse it (right to left)
; Occurence or Match (m) :
;   If ommited, the default is 1
;   Else the function find the umpteenth occurence
; String Case Sensitivity (s) :
;   If not specified, the function use the current case sensitivity
;   Else use "On", "Off" or "Locale"
; Relative or Returned Result (r) :
;   If not specified, the return have the same reading order and sign than pos
;   Else use "R" for force the return position in right to left
;   And "L" for force the return position in left to right
; note: R = right to left, reverse, relative,...


StrPos(Haystack, Needle, p=1, w="L", m=1, s=0, r=0) {
    s0 := A_StringCaseSense
StringCaseSense % s="On" ? "On" : s="Off" ? "Off" : s="Locale" ? "Locale" : s0
StringGetPos, result, Haystack, % Needle, % w . m, % ((w="L" && p>0) || (w="R" && p<0)) ? abs(p)-1 : StrLen(Haystack)-abs(p)
StringCaseSense % s0
    return  ErrorLevel ? 0 : ((p<0 && r=0) || (r="R")) ? -(StrLen(Haystack)-result+1-StrLen(Needle)) : result+1
}