vbscript find im array

[stefan]

Hallo,

ich hoffe doch das mein Beitrag hier in Allgemein richtig positioniert ist.

Ich suche in vbscript eine Möglichkeit einen String in einem Array zu finden und weiß nicht was ich falsch mache.

erster Versuch:

vNom = "Z073"

Dim arrSuche, arrGefunden
string1 = "seppel"
arrSuche = Array("fritz","heinz","schorsch","seppel","franz")
  arrGefunden = Filter(arrSuche, string1)

if vNom = "Z073" And string1= arrGefunden(0)then
@include beispiel1.txt
else
@include beispiel2.txt
end if

Dies funktiniert leider nur, wenn in string1 ein Wert enthalten ist der auch im Array enthalten ist. Sonst Laufzeitfehler.

zweiter versuch:

vNom = "Z073"

Dim arrSuche, arrGefunden
string1 = "seppel"
arrSuche = Array("fritz","heinz","schorsch","seppel","franz")
  arrGefunden = Filter(arrSuche, string1)

If InStr(arrSuche, string1 ) Then
 if vNom = "Z073" then
@include beispiel1.txt
else
@include beispiel2.txt
end if
Else
 WScript.Echo "Ist nicht enthalten."
End If

Auch hier gibt es ein Laufzeitfehler :-(

Ich brauche einfach nur eine Methode find wie in Javascript. Kann mir jemand einen Tipp geben ???

Viele Grüße
Stefan