;===============================================================================
;
; Function Name:   _StringSplitOnce($STRING, $DELIM [, $OCCURENCE=1])
; Description:     Splits a string on given occurence of delimiter
; Parameter(s):    $STRING      String to split
;                  $DELIM       Delimiter
;                  $OCCURENCE   Occurence of Delimiter ('-' starts from the right side, Default=1)
; Requirement(s):  
; Return Value(s): Succes       Array[0]=left side / Array[1]=right side of splittet string
;                  Failure      Set error
;                                   @error = 1  No string given
;                                   @error = 2  No delimiter given
;                                   @error = 3  Delimiter not in string
; Author(s):       BugFix (bugfix@autoit.de)
;
;===============================================================================
Func _StringSplitOnce($STRING, $DELIM, $OCCURENCE=1)
	If $STRING = '' Then Return SetError(1)
	If $DELIM = '' Then Return SetError(2)
	Local $Out[2]
	Local $len = StringLen($STRING)
	Local $pos = StringInStr($STRING, $DELIM, 1, $OCCURENCE)
	If @error Then Return SetError(3)
	$Out[0] = StringLeft($STRING, $pos-1)
	$Out[1] = StringRight($STRING, $len-$pos)
	Return $Out
EndFunc ;==>_StringSplitOnce