StringSplit - strange behavior ? or bug ?

[mLipok]

Repro script:

#include <MsgBoxConstants.au3>
#include <array.au3>
Local $sData1 = "NR KONTA: 47 1020" & @CRLF & _
        "NR KONTA: 62 2030" & @CRLF & _
        "NR KONTA: 64 1910" & @CRLF & _
        "NR KONTA: 30 2030" & @CRLF & _
        "NR KONTA: 03 1020" & @CRLF & _
        "NR KONTA: 77 1020" & @CRLF & _
        "NR KONTA: 35 1090" & @CRLF & _
        "NR KONTA: 28 1240" & @CRLF & _
        "NR KONTA: 07 1020" & @CRLF & _
        "NR KONTA: 29 1240" & @CRLF & _
        ""
Local $sData2 = StringReplace($sData1, "NR KONTA: 62 2030", "Nr KONTA: 62 2030")

Local $aTest1 = StringSplit($sData1, 'NR KONTA:', 1)
_ArrayDisplay($aTest1, '$aTest1')

Local $aTest2 = StringSplit($sData2, 'NR KONTA:', 1)
_ArrayDisplay($aTest2, '$aTest2')

Local $aTest3 = StringSplit($sData2, 'Nr KONTA:', 1)
_ArrayDisplay($aTest3, '$aTest3')

If $aTest1[$aTest1[0]] <> $aTest2[$aTest2[0]] Then
    MsgBox($MB_SYSTEMMODAL, "Question", " Why ? " & @CRLF & " $aTest1[$aTest1[0]] <> $aTest2[$aTest2[0]] " & @CRLF & $aTest1[$aTest1[0]] & " <> " & $aTest2[$aTest2[0]], 10)
EndIf

If $aTest1[2] == $aTest2[2] and $aTest1[3] == $aTest2[3] Then
    MsgBox($MB_SYSTEMMODAL, "Question", "Why second and third element in $aTest1 and $aTest2 are still the same ?", 10)
EndIf

MsgBox($MB_SYSTEMMODAL, "Question", "Why $aTest3 contains so little data ?", 10)
 

.

Question are in MsgBox.

 

Regards

mLipok

 

EDIT:

modified "Repro Script" - included remarks from post #2

Edited March 13, 2014 by mLipok

[mikell]

I would like an explanation about this one too 

Local $aTest2 = StringSplit($sData2, 'Nr KONTA:', 1)
_ArrayDisplay($aTest2, '$aTest2')

[mLipok]

Good point. 

I modified "Repro Script" to take into account the additional question.

[BrewManNH]

StringSplit is obviously case sensitive in regards to the delimiter.

[mLipok]

Yes, there is no doubt. 

 

Why, though, in the third example, the array contains only:

Row|Col 0
[0]|2
[1]|
[2]| 47 1020

Why this piece of code:

Local $aTest3 = StringSplit($sData2, 'Nr KONTA:', 1)
_ArrayDisplay($aTest3, '$aTest3')

Does not give such results:

---

The alleged result for $aTest3[1] 

NR KONTA: 47 1020
 

---

The alleged result for  $aTest3[2] 

64 1910
NR KONTA: 30 2030
NR KONTA: 03 1020
NR KONTA: 77 1020
NR KONTA: 35 1090
NR KONTA: 28 1240
NR KONTA: 07 1020
NR KONTA: 29 1240

---

Edited March 14, 2014 by mLipok

[Melba23]

mLipok,

Interesting. It seems that StringSplit does not like spaces in a delimiter when using $STR_ENTIRESPLIT. If you remove the space it works as expected:

#include <Array.au3>

Local $sData1 = "NR KONTA: 11 1111" & @CRLF & _
        "NR KONTA: 22 2222" & @CRLF & _
        "Nr KONTA: 33 3333" & @CRLF & _
        "NR KONTA: 44 4444" & @CRLF & _
        "Nr KONTA: 55 5555" & @CRLF & _
        "NR KONTA: 66 6666" & @CRLF & _
        "Nr KONTA: 77 7777" & @CRLF & _
        "NR KONTA: 88 8888" & @CRLF & _
        "Nr KONTA: 99 9999" & @CRLF & _
        "NR KONTA: 00 0000" & @CRLF & _
        ""
Local $sData2 = StringReplace($sData1, "NR KONTA", "NR_KONTA")

Local $aTest1 = StringSplit($sData1, 'NR_KONTA:', 1)
_ArrayDisplay($aTest1, 'Org - NR')

Local $aTest2 = StringSplit($sData2, 'NR_KONTA:', 1)
_ArrayDisplay($aTest2, 'Mod - NR')

Local $aTest3 = StringSplit($sData2, 'Nr_KONTA:', 1)
_ArrayDisplay($aTest3, 'Mod - Nr')

So I think a bug - or at least a mention in the Help file if it is too difficult to fix in the short term.

M23

[czardas]

This bug has been around for at least the last two stable releases. I'm amazed it hasn't been reported until now.

[mikell]

Melba,

It's not a trouble with spaces, it looks like a trouble with case sensitivity management

#include <Array.au3>

Local $sData1 = "ab1aB2ab3ab4ab5"

Local $aTest1 = StringSplit($sData1, 'ab', 1)
; expected result :
; 
; 1aB2
; 3
; 4
; 5
_ArrayDisplay($aTest1, '$aTest1')

Local $aTest2 = StringSplit($sData1, 'aB', 1)
; expected result :
; ab1
; 2ab3ab4ab5
_ArrayDisplay($aTest2, '$aTest2')

[mLipok]

I do some further test:

NEW REPRO:

expandcollapse popup

#include <MsgBoxConstants.au3>
#include <array.au3>
Local $sData1 = "NR KONTA: 47 1020" & @CRLF & _
        "NR KONTA: 62 2030" & @CRLF & _
        "NR KONTA: 64 1910" & @CRLF & _
        "NR KONTA: 30 2030" & @CRLF & _
        "NR KONTA: 03 1020" & @CRLF & _
        "NR KONTA: 77 1020" & @CRLF & _
        "NR KONTA: 35 1090" & @CRLF & _
        "NR KONTA: 28 1240" & @CRLF & _
        "NR KONTA: 07 1020" & @CRLF & _
        "NR KONTA: 29 1240" & @CRLF & _
        ""

Local $sData2 = StringReplace($sData1, "NR KONTA: 62 2030", "Nr KONTA: 62 2030")
ClipPut($sData2)

Local $aTest1 = StringSplit($sData1, 'NR KONTA:', 1)
_ArrayDisplay($aTest1, '$aTest1')

Local $aTest2 = StringSplit($sData2, 'NR KONTA:', 1)
_ArrayDisplay($aTest2, '$aTest2')

Local $aTest3 = StringSplit($sData2, 'Nr KONTA:', 1)
_ArrayDisplay($aTest3, '$aTest3')

If $aTest1[$aTest1[0]] <> $aTest2[$aTest2[0]] Then
    MsgBox($MB_SYSTEMMODAL, "Question", " Why ? " & @CRLF & " $aTest1[$aTest1[0]] <> $aTest2[$aTest2[0]] " & @CRLF & $aTest1[$aTest1[0]] & " <> " & $aTest2[$aTest2[0]], 10)
EndIf

If $aTest1[2] == $aTest2[2] and $aTest1[3] == $aTest2[3] Then
    MsgBox($MB_SYSTEMMODAL, "Question", "Why second and third element in $aTest1 and $aTest2 are still the same ?", 10)
EndIf

MsgBox($MB_SYSTEMMODAL, "Question", "Why $aTest3 contains so little data ?", 10)



$sData1 = StringReplace($sData1, " KONTA:", "_KONTA:")
$sData2 = StringReplace($sData1, "NR_KONTA: 62 2030", "Nr_KONTA: 62 2030")


MsgBox($MB_SYSTEMMODAL, "New $sData1 Content", $sData1, 10)
MsgBox($MB_SYSTEMMODAL, "New $sData2 Content", $sData2, 10)
Local $aTest = StringSplit($sData1, @CRLF, 1)
_ArrayDisplay($aTest, 'New $aTest')

Local $aTest1 = StringSplit($sData1, 'NR_KONTA:', 1)
_ArrayDisplay($aTest1, 'New $aTest1')

Local $aTest2 = StringSplit($sData2, 'NR_KONTA:', 1)
_ArrayDisplay($aTest2, 'New $aTest2')

Local $aTest3 = StringSplit($sData2, 'Nr_KONTA:', 1)
_ArrayDisplay($aTest3, 'New $aTest3')

this issue still occurs

 

and new test

Local $aTest = StringSplit($sData1, @CRLF, 1)
_ArrayDisplay($aTest1, 'New $aTest')

gives new bad results

 

EDIT:
Repro Script corrected - thanks to mikell (post #12)

Edited March 14, 2014 by mLipok

[mLipok]

It's not a trouble with spaces, it looks like a trouble with case sensitivity management

 

I think different

look at my new test

Local $aTest = StringSplit($sData1, @CRLF, 1)

_ArrayDisplay($aTest1, 'New $aTest')

[mLipok]

TrackTicket #2671

[mikell]

Isn't it a typo in there

Local $aTest = StringSplit($sData1, @CRLF, 1)
_ArrayDisplay($aTest1, 'New $aTest')

using $aTest1 instead of $aTest ?

That's why I built my previous example code as simple as possible, to bring out the case sensitivity issue

[mLipok]

Isn't it a typo in there

Local $aTest = StringSplit($sData1, @CRLF, 1)
_ArrayDisplay($aTest1, 'New $aTest')

using $aTest1 instead of $aTest ?

 

 

[mikell]

So I suggest that you delete (if possible) or modify your trac ticket and use inside it a much more simple example code, to bring out the issue in an as eloquent as possible way and get rid of spaces, crlf and all W characters etc

[mLipok]

You mean something like this:

#include <MsgBoxConstants.au3>
#include <array.au3>
Local $sData1 = "NR_KONTA:471020" & @CRLF & _
        "NR_KONTA:622030" & @CRLF & _
        "NR_KONTA:641910" & @CRLF & _
        "NR_KONTA:302030" & @CRLF & _
        "NR_KONTA:031020" & @CRLF & _
        "NR_KONTA:771020" & @CRLF & _
        "NR_KONTA:351090" & @CRLF & _
        "NR_KONTA:281240" & @CRLF & _
        "NR_KONTA:071020" & @CRLF & _
        "NR_KONTA:291240" & @CRLF & _
        ""

Local $sData2 = StringReplace($sData1, "NR_KONTA:622030", "Nr_KONTA:622030")
;~ClipPut($sData2)

Local $aTest1 = StringSplit($sData1, 'NR_KONTA:', 1)
_ArrayDisplay($aTest1, '$aTest1')

Local $aTest2 = StringSplit($sData2, 'NR_KONTA:', 1)
_ArrayDisplay($aTest2, '$aTest2')

Local $aTest3 = StringSplit($sData2, 'Nr_KONTA:', 1)
_ArrayDisplay($aTest3, '$aTest3')

EDIT:

or even this:

#include <MsgBoxConstants.au3>
#include <array.au3>
Local $sData1 = _
        "NR_KONTA:471020" & @CRLF & _
        "NR_KONTA:622030" & @CRLF & _
        "NR_KONTA:641910" & @CRLF & _
        "NR_KONTA:302030" & @CRLF & _
        "NR_KONTA:291240" & @CRLF & _
        ""

Local $sData2 = StringReplace($sData1, "NR_KONTA:622030", "Nr_KONTA:622030")
;~ClipPut($sData2)

Local $aTest1 = StringSplit($sData1, 'NR_KONTA:', 1)
_ArrayDisplay($aTest1, '$aTest1')

Local $aTest2 = StringSplit($sData2, 'NR_KONTA:', 1)
_ArrayDisplay($aTest2, '$aTest2')

Local $aTest3 = StringSplit($sData2, 'Nr_KONTA:', 1)
_ArrayDisplay($aTest3, '$aTest3')

Edited March 14, 2014 by mLipok

[mikell]

I mean that your current example is a bit complicated, thus it allows confusion because of the spaces (c.f. Melba's post), the @crlf, the colon

Did you try mine ?

Edit :

checking the issue

expandcollapse popup

#include <Array.au3>

Local $sData1 = "ab1aB2ab3ab4ab5"    ; this doesn't work

Local $aTest1 = StringSplit($sData1, 'ab', 1)
; expected result :
; 
; 1aB2
; 3
; 4
; 5
_ArrayDisplay($aTest1, '$aTest1')

Local $aTest2 = StringSplit($sData1, 'aB', 1)
; expected result :
; ab1
; 2ab3ab4ab5
_ArrayDisplay($aTest2, '$aTest2')

;===============================

Local $sData2 = "ab1Ab2ab3ab4ab5"    ; this works

Local $aTest3 = StringSplit($sData2, 'ab', 1)
; expected result :
; 
; 1Ab2
; 3
; 4
; 5
_ArrayDisplay($aTest3, '$aTest3')

Local $aTest4 = StringSplit($sData2, 'Ab', 1)
; expected result :
; ab1
; 2ab3ab4ab5
_ArrayDisplay($aTest4, '$aTest4')

Edited March 14, 2014 by mikell

[mLipok]

 

I mean that your current example is a bit complicated, thus it allows confusion because of the spaces (c.f. Melba's post), the @crlf, the colon

Did you try mine ?

#include <Array.au3>
Local $sData1 = "1ab2aB3ab4"

Local $aTest1 = StringSplit($sData1, 'ab', 1)
_ArrayDisplay($aTest1, '$aTest1')
#cs Current AutoIt 3.3.11.3 Results :
    Row|Col 0
    [0]|3
    [1]|1
    [2]|2
    [3]|3
#CE
#CS expected result :
    Row|Col 0
    [0]|3
    [1]|1
    [2]|2aB3
    [3]|4
#CE

Local $aTest2 = StringSplit($sData1, 'aB', 1)
_ArrayDisplay($aTest2, '$aTest2')
#CS Current AutoIt 3.3.11.3 Results :
    Row|Col 0
    [0]|2
    [1]|1
    [2]|2
#CE
#CS expected result :
    Row|Col 0
    [0]|2
    [1]|1ab2
    [2]|3ab4
#CE

I must look at your checkout

 

EDIT:

btw

as can be seen above I found an issue in Geshi or autoit.php

Edited March 14, 2014 by mLipok

[mikell]

That's it

May I suggest a new title for the trac ticket ? 

Something like :

"StringSplit($sData, $delim, 1) : case sensitivity issue in $delim" or so

Edited March 14, 2014 by mikell

[mLipok]

full complete repro code with all cases and comments:

expandcollapse popup

#include <Array.au3>
Local $sData1 = "0AB1Ab2aB3ab4Ab5AB6"

Local $aTest1 = StringSplit($sData1, 'ab', 1)
_ArrayDisplay($aTest1, '$aTest1')
#cs Current AutoIt 3.3.11.3 Results :
    Row|Col 0
    [0]|2
    [1]|0AB1Ab2
    [2]|3
#CE
#CS expected result :
    Row|Col 0
    [0]|2
    [1]|0AB1Ab2aB3
    [2]|4Ab5AB6
#CE

Local $aTest2 = StringSplit($sData1, 'aB', 1)
_ArrayDisplay($aTest2, '$aTest2')
#CS Current AutoIt 3.3.11.3 Results :
    Row|Col 0
    [0]|2
    [1]|0AB1Ab2
    [2]|3
#CE
#CS expected result :
    Row|Col 0
    [0]|2
    [1]|0AB1Ab2
    [2]|3ab4Ab5AB6
#CE


Local $aTest3 = StringSplit($sData1, 'Ab', 1)
_ArrayDisplay($aTest3, '$aTest3')
#CS Current AutoIt 3.3.11.3 Results :
    Row|Col 0
    [0]|3
    [1]|0
    [2]|1
    [3]|2aB3ab4
#CE
#CS expected result :
    Row|Col 0
    [0]|3
    [1]|0AB1
    [2]|2aB3ab4
    [3]|5AB6
#CE

Local $aTest4 = StringSplit($sData1, 'AB', 1)
_ArrayDisplay($aTest4, '$aTest4')
#CS Current AutoIt 3.3.11.3 Results :
    Row|Col 0
    [0]|3
    [1]|0
    [2]|1
    [3]|2aB3ab4
#CE
#CS expected result :
    Row|Col 0
    [0]|3
    [1]|0
    [2]|1Ab2aB3ab4Ab5
    [3]|6
#CE

[mLipok]

That's it

May I suggest a new title for the trac ticket ? 

Something like :

"StringSplit($sData, $delim, 1) : case sensitivity issue in $delim" or so

 

Yes I post that request in my track ticket (I can't change this my self)

But before can you check my last repro ?