Non-destructive StringSplit?

[Quinch]

Just a quick question, is there a way to perform a StringSplit without deleting the actual delimiters? I know I can go back and reinsert them with a for-to, but I'm just curious if there's a neater way to do it.

[UEZ]

No need to add them separately because StringSplit returns an array and you can add manually the delimiter when you traverse the array for any reason.

Br,

UEZ

[Quinch]

Yeah, that's basically what I meant. Alright, thanks anyway.

[Malkey]

Here are two results from performing a StringSplit without deleting the actual delimiters. Where is the delimiter suppose to go?

#include <Array.au3>

Local $sTestString = "one_two_three_four_five"

Local $aArray = _StringSplitAfter($sTestString, "_", 1)
_ArrayDisplay($aArray, "Split After Delimiter")

Local $aArray1 = _StringSplitBefore($sTestString, "_", 3)
_ArrayDisplay($aArray1, "Split Before Delimiter")


Func _StringSplitAfter($sString, $sDelimiters, $iFlag = 1)
    If $iFlag = 0 Then $iFlag = 1
    If $iFlag = 2 Then $iFlag = 3
    Return StringSplit(StringReplace($sString, $sDelimiters, $sDelimiters & "<!@#>"), "<!@#>", $iFlag)
EndFunc   ;==>_StringSplitAfter

Func _StringSplitBefore($sString, $sDelimiters, $iFlag = 1)
    If $iFlag = 0 Then $iFlag = 1
    If $iFlag = 2 Then $iFlag = 3
    Return StringSplit(StringReplace($sString, $sDelimiters, "<!@#>" & $sDelimiters), "<!@#>", $iFlag)
EndFunc   ;==>_StringSplitBefore

[Quinch]

Preferably into the latter string. Either way, it's not that big a deal, I'm just trying to keep my code as tidy as possible otherwise things get a little... unnecessarily convoluted.

[UEZ]

Here are two results from performing a StringSplit without deleting the actual delimiters. Where is the delimiter suppose to go?

#include <Array.au3>

Local $sTestString = "one_two_three_four_five"

Local $aArray = _StringSplitAfter($sTestString, "_", 1)
_ArrayDisplay($aArray, "Split After Delimiter")

Local $aArray1 = _StringSplitBefore($sTestString, "_", 3)
_ArrayDisplay($aArray1, "Split Before Delimiter")


Func _StringSplitAfter($sString, $sDelimiters, $iFlag = 1)
    If $iFlag = 0 Then $iFlag = 1
    If $iFlag = 2 Then $iFlag = 3
    Return StringSplit(StringReplace($sString, $sDelimiters, $sDelimiters & "<!@#>"), "<!@#>", $iFlag)
EndFunc   ;==>_StringSplitAfter

Func _StringSplitBefore($sString, $sDelimiters, $iFlag = 1)
    If $iFlag = 0 Then $iFlag = 1
    If $iFlag = 2 Then $iFlag = 3
    Return StringSplit(StringReplace($sString, $sDelimiters, "<!@#>" & $sDelimiters), "<!@#>", $iFlag)
EndFunc   ;==>_StringSplitBefore

Nice idea Malkey!

Br,

UEZ