Help with string manipulation

[Guest cariveau3680]

What am I doing wrong here?

I am trying to cut down strings like "c:\mydocs\myzips\testfile.zip" to "c:\mydocs\myzips" & "c:\mydocs\myzips\testfile" but it's not outputting anything

Global $StringTemp = ""

$StringIn = InputBox("StringTrimmer", "Please input a string to trim")
$DelIn = InputBox("StringTimmer", "Please input a delimiter")

$Ans = _StringTrimmer($StringIn, $DelIn)

MsgBox(0, "StringTrimmer", $StringIn & " trimmed with " & $DelIn & " is" & @CRLF & $Ans)

Func _StringTrimmer($String, $Del)
    $StringArray = StringSplit($String, $Del)
    For $Loop = 1 To $StringArray[$StringArray[0] - 1]
        $StringTemp = $StringTemp & $StringArray[$Loop]
        $StringTemp = $StringTemp & $Del
    Next
    Return $StringTemp
EndFunc

forgive me if this has been addressed

[Jos]

your For statement is wrong... should be:

For $Loop = 1 To $StringArray[0] - 1

[Guest cariveau3680]

thanks