КАК внести готовую матрицу в двумерный массив Я идиот! Убейте меня, кто-нибудь!

[Manson]

Как сделать на ВиБи следущую штуку (на Си) :

int m[2][2]={1,2,3,4};

[skiperski]

К сожалению VB не предоставляет такого сервиса. Но... Как всегда есть обходные пути, не без оговорок, конечно.

Код: Выделить всё

Option Explicit

Public Function initMatrix(ByVal Values As String)

    Dim m As Variant
    Dim n As Variant
    Dim i As Long
   
    n = Split(Values, ";")
    ReDim m(0 To UBound(n))
   
    For i = 0 To UBound(n)
        m(i) = Split(n(i), ",")
    Next
   
    initMatrix = m
    Erase n, m
End Function

Public Function test()
   
    Dim a As Variant
   
    a = initMatrix("1,2;3,4;5,6")
   
    Debug.Print a(1)(1)
   
End Function

В итоге получается массив массивов. Поэтому к нему такое нестандартное обращение - a(1)(1) вместо a(1, 1).

[GoGosha]

А CopyMemory, что уже запретили?

[skiperski]

Нет, не запретили, но я этим никогда не пользовался. Потому готового примера у меня нет. Зато у тебя есть возможность проиллюстрировать работу этой замечательной функции и подарить страждущим.