Ticket #2671: test_Split.au3

File test_Split.au3, 1.2 KB (added by mlipok, 11 years ago)
Line 
1#include <Array.au3>
2Local $sData1 = "0AB1Ab2aB3ab4Ab5AB6"
3
4Local $aTest1 = StringSplit($sData1, 'ab', 1)
5_ArrayDisplay($aTest1, '$aTest1')
6#cs Current AutoIt 3.3.11.3 Results :
7    Row|Col 0
8    [0]|2
9    [1]|0AB1Ab2
10    [2]|3
11#CE
12#CS expected result :
13    Row|Col 0
14    [0]|2
15    [1]|0AB1Ab2aB3
16    [2]|4Ab5AB6
17#CE
18
19Local $aTest2 = StringSplit($sData1, 'aB', 1)
20_ArrayDisplay($aTest2, '$aTest2')
21#CS Current AutoIt 3.3.11.3 Results :
22    Row|Col 0
23    [0]|2
24    [1]|0AB1Ab2
25    [2]|3
26#CE
27#CS expected result :
28    Row|Col 0
29    [0]|2
30    [1]|0AB1Ab2
31    [2]|3ab4Ab5AB6
32#CE
33
34Local $aTest3 = StringSplit($sData1, 'Ab', 1)
35_ArrayDisplay($aTest3, '$aTest3')
36#CS Current AutoIt 3.3.11.3 Results :
37    Row|Col 0
38    [0]|3
39    [1]|0
40    [2]|1
41    [3]|2aB3ab4
42#CE
43#CS expected result :
44    Row|Col 0
45    [0]|3
46    [1]|0AB1
47    [2]|2aB3ab4
48    [3]|5AB6
49#CE
50
51Local $aTest4 = StringSplit($sData1, 'AB', 1)
52_ArrayDisplay($aTest4, '$aTest4')
53#CS Current AutoIt 3.3.11.3 Results :
54    Row|Col 0
55    [0]|3
56    [1]|0
57    [2]|1
58    [3]|2aB3ab4
59#CE
60#CS expected result :
61    Row|Col 0
62    [0]|3
63    [1]|0
64    [2]|1Ab2aB3ab4Ab5
65    [3]|6
66#CE
67