Stringregexp?

[JohnOne]

Ive got this function Im using to parse some text

Func _Get_List($aParams)
    $sList_URL = $aParams[0] & "?list=1" & "&token=" & $aParams[1]
    $temp = _StringBetween(StringRegExpReplace(BinaryToString(InetRead($sList_URL, 1)), "(\s)", ""), "[[", "]]")
    $aList = StringSplit($temp[0], "],[", 3);<<<<<<< This line
    Local $aFinalList[19][UBound($aList)]
    For $i = 0 To UBound($aFinalList, 2) - 1
        $atemp = StringSplit($aList[$i], ",", 2)
        For $j = 0 To 18
            $aFinalList[$j][$i] = $atemp[$j]
        Next
    Next
    Return $aFinalList
EndFunc

The problem is with an array returned from _StringBetween(), (commented in code above) where It only works for me if I use $temp[0], but will not work for someone else unless they use $temp[1], which gives me an array out of bounds error.

The array is created with this line

$temp = _StringBetween(StringRegExpReplace(BinaryToString(InetRead($sList_URL, 1)), "(\s)", ""), "[[", "]]")

and the BinaryToString(InetRead($sList_URL, 1)) returns some text, here is an example of the string it might return JSON format I think

{"build":19648,"label": [
]
,"torrents": [

["597E3137030DF57F5099C834F00E360A3BD593E0",152,"Breaking.Bad.S03E11.Abiquiu.HDTV.XviD-FQM",373215148,1000,373215148,0,0,0,0,0,"",0,0,0,0,65536,-1,0],
["ACEE50718653578A8000D9FF864F448CDFB968F2",152,"Breaking.Bad.S03E12.Half.Measures.HDTV.XviD-FQM",378552942,1000,378552942,360448,0,0,0,0,"",0,0,0,0,65536,-1,0],
["1F4270D1A24DABD05B4E103AD11FA55B4BA71706",201,"Breaking.Bad.S03E13.Full.Measure.HDTV.XviD-FQM",377013305,1000,367576121,71450624,194,0,0,-1,"",0,40,0,218,63896,-1,0],
["E6627D73DB5C05D4049221106A381B602DAA0C25",201,"Dispatches.How.To.Save.100.Million.WS.PDTV.XviD-FTP",374220400,1000,374220400,1146880,3,0,0,-1,"",0,0,0,0,65536,-1,0],
["A09EDC6EA23C6AFCE2E77F39B478BEAAE81899CC",201,"Doctor.Who.2005.S05E11.HDTV.XviD-BiA",378721892,1000,378721892,169230336,446,0,0,-1,"",0,0,0,0,65536,-1,0],
["B4CC375419F6C5B4BBFDD5882F30B9643D69A4AC",152,"Doctor_Who_2005.5x10.Vincent_And_The_Doctor.HDTV_XviD-FoV",379578689,1000,379578689,86157633,226,0,0,0,"",0,0,0,0,65536,-1,0],
["8C8E3DC516F4D05F140F3700BD6C523511D5249A",201,"Family.Guy.S08E21.PDTV.XviD-BiA",207562445,1000,182976512,35323904,193,22,0,-1,"",1,104,0,422,57757,-1,0],
["9EEF7F6BC11D2BB06D5E24E6A01D0EB17ECA3B6E",152,"Hot.Tub.Time.Machine.2010.R5.LiNE.XviD-Rx",1508663769,1000,1493172224,24100864,16,0,0,0,"",0,0,0,0,64852,-1,0],
["810BCA5519C10D0DD479C63B15C9815EDEE579E5",201,"Stargate.Universe.S01E20.Incursion.Part.2.HDTV.XviD-FQM",375323574,1000,367721398,52412416,142,11,2,-1,"",0,53,0,249,64208,-1,0],
["5573EC5459547E69599BDE4DFB3A1B2D3DCF7CE1",201,"Super.Mario.Galaxy.2.PAL.Wii-LoCAL",4698223194,1000,4677759578,1685697114,360,0,0,-1,"",0,2,0,0,65536,-1,0],
["7BE7BD3CD47886308A1AABF0BD6A51142DF0347C",201,"Through.the.Wormhole.S01E02.The.Riddle.of.Black.Holes.HDTV.XviD-MOMENTUM",377353721,1000,367001600,409600,1,228,0,2412687,"",1,10,0,47,67629,-1,0]]
,"torrentc": "1360124475"}

Im just wondering if it could be something to do with my lacklustre attempt at the regex.

I'd be delighted if a keen eye could give me hint at my problem.

[jchd]

Try this:

Local $s = FileRead("json.txt")
Local $temp = StringRegExp($s, '(?m)^\[([^\]]*)\](?>[,\]]$)', 3)
_ArrayDisplay($temp)

Here, json.txt is a copy/paste of your example, so $s is identical to your BinaryToString(InetRead($sList_URL, 1))

It may not be 100% failproof as it will break if ever the line format changes, but that may be unlikely to occur spontaneously.

BTW, you shouldn't use function pipelining, as it gains very little and makes you vulnerable to error(s), should some inner function fail.

While it's fairly common to pipeline functions that aren't subject to failure, things like InetRead _are_ open to errors and should have a statement fully devoted for them.

[JohnOne]

Cheers jchd, I'll check that out tomato.

And thanks for the pipelining tip.

Appreciated.