LibreOffice-Forum

Code: Alles auswählen

REM  *****  BASIC  *****

Type obj_In
	int_ID As Integer
	str_Text_In As String
End Type

Type obj_Out
	int_ID As Integer
	str_Text As String
	arr_In(10) As obj_In
End Type

Global arr_A(10) As obj_Out

Sub Main
	S_Init()	
End Sub

Sub S_Init()
	Dim int_run_Out As Integer
	For int_run_Out = 0 to 9
		Dim int_run_In As Integer
		arr_A(int_run_Out).int_ID    = inr_run_Out
		arr_A(Int_run_Out).str_Text = "Test"
		For int_run_In = 0 to 9
			arr_A(int_run_Out).arr_In(int_run_In).int_ID = int_run_In
			arr_A(int_run_Out).arr_In(int_run_In).str_Text_In = ""
		Next int_run_In
	Next int_run_Out	
End Sub

Code: Alles auswählen

arr_A(0).arr_In(0).int_ID    IST 9
arr_A(0).arr_In(6).int_ID    IST 9
arr_A(2).arr_In(6).int_ID    IST 9

Code: Alles auswählen

Type obj_In
	int_ID As Integer
	str_Text_In As String
End Type

Type obj_Out
	int_ID As Integer
	str_Text As String
	arr_In As Variant
End Type

Global arr_A(10) As obj_Out



Sub S_Init()
	globalscope.basiclibraries.loadlibrary("MRILib")
	Dim int_run_Out As Integer
	dim tmp(10) as obj_In
	For int_run_Out = 0 to 9
		Dim int_run_In As Integer
		arr_A(int_run_Out).int_ID    = inr_run_Out
		arr_A(Int_run_Out).str_Text = "Test"
		
		For int_run_In = 0 to 10
			tmp(int_run_In).int_ID = int_run_In
			tmp(int_run_In).str_Text_In = "test" & int_run_In
		Next int_run_In
		arr_A(int_run_Out).arr_In=tmp
	Next int_run_Out

End Sub

Code: Alles auswählen

...As Variant