Символьный массив от Сервера автоматизации
HRESULT GetCharArray([in] BSTR varName, [in] BSTR Workspace,
[out, retval] BSTR *mlString)
GetCharArray(varname As String, workspace As String) As String
str = GetCharArray (h, 'varname', 'workspace')
сохранил символьный массив в str = GetCharArray(h,'varname','workspace')varname от заданного workspace сервера, присоединенного, чтобы обработать h, и возвращает его в str. Значениями для workspace является base или global.
Этот пример использует Визуальный клиент Basic®.NET. Чтобы запуститься в продуктах, которые выполняют код VBA, смотрите Советы.
Создайте приложение Visual Basic. Используйте команду MsgBox для потока управления между MATLAB® и приложением.
Dim Matlab As Object
Dim S As String
Matlab = CreateObject("matlab.application")
MsgBox("In MATLAB, type" & vbCrLf _
& "str='new text';")
Try
S = Matlab.GetCharArray("str", "base")
MsgBox("str = " & S)
Catch ex As Exception
MsgBox("You did not set 'str' in MATLAB")
End TryОткройте окно MATLAB, затем введите:
str='new text';
Нажать ОК. MsgBox Visual Basic отображает то, что вы ввели в MATLAB.
Чтобы запустить примеры в Продуктах Office Microsoft®, которые выполняют код VBA, замените оператор:
MatLab = CreateObject("matlab.application")с:
Set MatLab = CreateObject("matlab.application")
Если вам нужно больше информации, то обратитесь к своей документации по продукту VBA.