InputBox Vorschläge

1. offizieller Beitrag

    Hi, ich habe ein Programm geschireben, dass alle meine Videos Auflistet usw. und das heit eine Suchfunktion. Geht es, dass es wie in Google während dem suchen max. 5 Videonamen vorschlägt?

    Einmal editiert, zuletzt von KingLoL (15. April 2011 um 15:43)

    • Offizieller Beitrag

    Wo ist dein Script? Ohne das wir wissen,was du wann und wo machst, kann man dir keine Antwort geben

    sry... hier das iss die Suchfunktion

    Spoiler anzeigen
    [autoit]

    Case $Input
    Local $SearchResult = ""
    Local $SearchResultArray = ""
    Local $aviSearch = ""
    Local $mkvSearch = ""
    Local $m2tsSearch = ""
    Local $mp4Search = ""
    Local $IFOSearch = ""
    Local $SearchString1 = GUICtrlRead($Input)
    Local $SearchString2 = GUICtrlRead($Input)
    Local $SearchString3 = GUICtrlRead($Input)
    Local $SearchString4 = GUICtrlRead($Input)
    Local $SearchStringCheck = StringSplit($SearchString1," ")
    Local $NumberCheck = $SearchStringCheck[$SearchStringCheck[0]]
    If StringInStr($SearchString1," ") = 0 Then
    $SpaceCheckYesNo = "No"
    Else
    $SpaceCheckYesNo = "Yes"
    EndIf
    If StringIsInt("" &$NumberCheck &"") = 1 Then
    $SearchString1 = StringReplace($SearchString1," " &$NumberCheck,"")
    $SearchString2 = StringReplace($SearchString2," " &$NumberCheck,"")
    $SearchString3 = StringReplace($SearchString3," " &$NumberCheck,"")
    $SearchString4 = StringReplace($SearchString4," " &$NumberCheck,"")
    $NumberCheckYesNo = "Yes"
    ElseIf StringIsInt("" &$NumberCheck &"") = 0 Then
    $NumberCheckYesNo = "No"
    EndIf

    If $SpaceCheckYesNo = "Yes" And $NumberCheckYesNo = "No" Then
    $SearchString2 = StringSplit($SearchString2," ")
    For $a = 1 To $SearchString2[0]
    For $i = 1 To $avi[0]
    If StringInStr($avi[$i],$SearchString2[$a]) And StringInStr($aviSearch,$avi[$i]) = 0 Then
    $aviSearch = $aviSearch &$avi[$i] &"|"
    EndIf
    Next
    Next
    For $a = 1 To $SearchString2[0]
    For $i = 1 To $mp4[0]
    If StringInStr($mp4[$i],$SearchString2[$a]) And StringInStr($mp4Search,$mp4[$i]) = 0 Then
    $mp4Search = $mp4Search &$mp4[$i] &"|"
    EndIf
    Next
    Next
    For $a = 1 To $SearchString2[0]
    For $i = 1 To $mkv[0]
    If StringInStr($mkv[$i],$SearchString2[$a]) And StringInStr($mkvSearch,$mkv[$i]) = 0 Then
    $mkvSearch = $mkvSearch &$mkv[$i] &"|"
    EndIf
    Next
    Next
    For $a = 1 To $SearchString2[0]
    For $i = 1 To $m2ts[0]
    If StringInStr($m2ts[$i],$SearchString2[$a]) And StringInStr($m2tsSearch,$m2ts[$i]) = 0 Then
    $m2tsSearch = $m2tsSearch &$m2ts[$i] &"|"
    EndIf
    Next
    Next
    For $a = 1 To $SearchString2[0]
    For $i = 1 To $IFO[0]
    If StringInStr($IFO[$i],$SearchString2[$a]) And $i <> $IFO[0] And StringInStr($IFOSearch,$IFO[$i]) = 0 Then
    $IFOSearch = $IFOSearch &$IFO[$i] &"|"
    ElseIf StringInStr($IFO[$i],$SearchString2[$a]) And $i = $IFO[0] And StringInStr($IFOSearch,$IFO[$i]) = 0 Then
    $IFOSearch = $IFOSearch &$IFO[$i]
    EndIf
    Next
    Next
    ElseIf $SpaceCheckYesNo = "No" Then
    For $i = 1 To $avi[0]
    If StringInStr($avi[$i],$SearchString3) Then
    $aviSearch = $aviSearch &$avi[$i] &"|"
    EndIf
    Next
    For $i = 1 To $mp4[0]
    If StringInStr($mp4[$i],$SearchString3) Then
    $mp4Search = $mp4Search &$mp4[$i] &"|"
    EndIf
    Next
    For $i = 1 To $mkv[0]
    If StringInStr($mkv[$i],$SearchString3) Then
    $mkvSearch = $mkvSearch &$mkv[$i] &"|"
    EndIf
    Next
    For $i = 1 To $m2ts[0]
    If StringInStr($m2ts[$i],$SearchString3) Then
    $m2tsSearch = $m2tsSearch &$m2ts[$i] &"|"
    EndIf
    Next
    For $i = 1 To $IFO[0]
    If StringInStr($IFO[$i],$SearchString3) And $i <> $IFO[0] Then
    $IFOSearch = $IFOSearch &$IFO[$i] &"|"
    ElseIf StringInStr($IFO[$i],$SearchString3) And $i = $IFO[0] Then
    $IFOSearch = $IFOSearch &$IFO[$i]
    EndIf
    Next
    ElseIf $SpaceCheckYesNo = "Yes" And $NumberCheckYesNo = "Yes" Then
    For $i = 1 To $avi[0]
    If StringInStr($avi[$i],$SearchString4) <> 0 And StringInStr($avi[$i],$NumberCheck) <> 0 And StringInStr($avi[$i],"(" &$NumberCheck) &")" = 0 Then
    $aviSearch = $aviSearch &$avi[$i] &"|"
    EndIf
    Next
    For $i = 1 To $mp4[0]
    If StringInStr($mp4[$i],$SearchString4) <> 0 And StringInStr($mp4[$i],$NumberCheck) <> 0 And StringInStr($mp4[$i],"(" &$NumberCheck) &")" = 0 Then
    $mp4Search = $mp4Search &$mp4[$i] &"|"
    EndIf
    Next
    For $i = 1 To $mkv[0]
    If StringInStr($mkv[$i],$SearchString4) <> 0 And StringInStr($mkv[$i],$NumberCheck) <> 0 And StringInStr($mkv[$i],"(" &$NumberCheck) &")" = 0 Then
    $mkvSearch = $mkvSearch &$mkv[$i] &"|"
    EndIf
    Next
    For $i = 1 To $m2ts[0]
    If StringInStr($m2ts[$i],$SearchString4) <> 0 And StringInStr($m2ts[$i],$NumberCheck) <> 0 And StringInStr($m2ts[$i],"(" &$NumberCheck) &")" = 0 Then
    $m2tsSearch = $m2tsSearch &$m2ts[$i] &"|"
    EndIf
    Next
    For $i = 1 To $IFO[0]
    If StringInStr($IFO[$i],$SearchString4) <> 0 And StringInStr($IFO[$i],$NumberCheck) <> 0 And $i <> $IFO[0] And StringInStr($IFO[$i],"(" &$NumberCheck) &")" = 0 Then
    $IFOSearch = $IFOSearch &$IFO[$i] &"|"
    ElseIf StringInStr($IFO[$i],$SearchString4) <> 0 And StringInStr($IFO[$i],$NumberCheck) <> 0 And $i = $IFO[0] And StringInStr($IFO[$i],"(" &$NumberCheck) &")" = 0 Then
    $IFOSearch = $IFOSearch &$IFO[$i]
    EndIf
    Next
    EndIf
    $SearchResult = $aviSearch &$mkvSearch &$m2tsSearch &$mp4Search &$IFOSearch
    $SearchResultArray = StringSplit($SearchResult, "|")
    _ArrayDelete($SearchResultArray, $SearchResultArray[0])
    $SearchResultArray[0] = $SearchResultArray[0] - 1
    $SearchStringCompiled = _ArrayToString($SearchResultArray,"|",1)
    If $SearchStringCompiled = "" Then $SearchStringCompiled = "Keine passenden Videos gefunden!"
    GUICtrlSetData($List,"")
    GUICtrlSetData($List,$SearchStringCompiled)

    [/autoit]