[amel27]

morgan1991, хде-то так:

Код:

#include <array.au3>

$sText = '{"n":4,"d":[[73355227,1274794749,["Необходимо получить двумерный массив:"],[53261465,"jhgf jjj","http://cs386.userapi.com/u53261465/y_hjjg.jpg","c_0ef1b41x:001",1,0],[1411059575]],[73354434,1274792979,["morgan1991, дайте рабочий пример в несколько строчек"],[53261465,"test morgan","http://cs386.userapi.com/u53261465/84_jtfd921c.jpg","c_0ef1b41x:001",1,0],[1411059575]],[73354284,1274792596,["Спасибочки)))))"],[40839431,"Viktoria Test","http://cs580.userapi.com/u40839431/k_gif5913.jpg","c_89cf5a1x:002",1,0],[1411059575]],[73340415,1274730302,["привет,как у тебя дела????"],[53261465,"Alenka Press","http://cs386.userapi.com/u53261465/u_f45f921c.jpg","c_0ef1b41x:001",1,0],[1411059575]],"h":883000002}'
$aText = StringRegExp($sText, '\[(\d++),(\d++),\["([^]"]*+)"\],\[(\d++),"([^"]*+)","([^"]*+)",', 3)
$uText = UBound($aText)

Dim $aOut [$uText/6][6]
For $i=0 To $uText-1 Step 6
  For $j=0 To 5
    $aOut[$i/6][$j]=$aText[$i+$j]
  Next
Next

_ArrayDisplay($aOut)