Что нового

как записать чотерьохмерный массив в сохранить файл

Siroga00VII

Siroga
Сообщения
33
Репутация
-2
Как записать 4D массив в файл и желательно прочитать его из файла в массив 4D
Код:
Local $4d[46][32][6][2]
For $y = 1 To 31
For $x = 1 to 45
		$4d[$x][$y][0][0] = "0_a"
		$4d[$x][$y][1][0] = "1_a"
		$4d[$x][$y][2][0] = "2_a"
		$4d[$x][$y][3][0] = "3_a"
		$4d[$x][$y][4][0] = "4_a"
		$4d[$x][$y][5][0] = "5_a"
		
		$4d[$x][$y][0][1] = "0_b"
		$4d[$x][$y][1][1] = "1_b"
		$4d[$x][$y][2][1] = "2_b"
		$4d[$x][$y][3][1] = "3_b"
		$4d[$x][$y][4][1] = "4_b"
		$4d[$x][$y][5][1] = "5_b"
Next
Next
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Siroga00VII [?]
Как записать 4D массив в файл и желательно прочитать его из файла в массив 4D
Сделать это можно, только покажите мне пример рационального использования такого массива и я напишу Вам код.
 
Автор
Siroga00VII

Siroga00VII

Siroga
Сообщения
33
Репутация
-2
madmasles
Код:
Local $4d[3][3][7][2] =[[[["0_a","0_b"],["1_a","1_b"],["2_a","2_b"],["3_a","3_b"],["4_a","4_b"],["5_a","5_b"]] _
									,[["0_a","0_b"],["1_a","1_b"],["2_a","2_b"],["3_a","3_b"],["4_a","4_b"],["5_a","5_b"]] _
									,[["0_a","0_b"],["1_a","1_b"],["2_a","2_b"],["3_a","3_b"],["4_a","4_b"],["5_a","5_b"]]] _
									,[[["0_a","0_b"],["1_a","1_b"],["2_a","2_b"],["3_a","3_b"],["4_a","4_b"],["5_a","5_b"]] _
									,[["0_a","0_b"],["1_a","1_b"],["2_a","2_b"],["3_a","3_b"],["4_a","4_b"],["5_a","5_b"]] _
									,[["0_a","0_b"],["1_a","1_b"],["2_a","2_b"],["3_a","3_b"],["4_a","4_b"],["5_a","5_b"]]] _
									,[[["0_a","0_b"],["1_a","1_b"],["2_a","2_b"],["3_a","3_b"],["4_a","4_b"],["5_a","5_b"]] _
									,[["0_a","0_b"],["1_a","1_b"],["2_a","2_b"],["3_a","3_b"],["4_a","4_b"],["5_a","5_b"]] _
									,[["0_a","0_b"],["1_a","1_b"],["2_a","2_b"],["3_a","3_b"],["4_a","4_b"],["5_a","5_b"]]]]
									
For $y = 0 To 2
For $x = 0 to 2
	For $i = 0 To 5
		MsgBox(64+4096, $x&'-'&$y,  $4d[$x][$y][$i][0]&@CRLF&$4d[$x][$y][$i][1])
		
	Next
  
Next
Next

вот пример
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
madmasles [?]
В чем его рациональность
OffTopic:
возможно, рациональность такая же, как и у квадратного колеса
хотя, мало ли чудес бывает в жизни
 
Автор
Siroga00VII

Siroga00VII

Siroga
Сообщения
33
Репутация
-2
использую для 3D игры создания карт з физикой предметов
в массиве будет записана сама карта расположение обетов и тп


Добавлено:
Сообщение автоматически объединено:

:Rulz: мне здесь кто нибудь поможет или здесь одни чайники :blum:oke: :muttley:
В чем его рациональность и где его можно применить на практике?
исходной код не дам даже часть кода 8) коммерческая тайна 8)
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,724
У меня две новости - хорошая и плохая.

Хорошая.

Код:
#cs

Dim $Var[2][2][2][4] =  [
                            [
                                [
                                    ['0000', '0001', '0002', '0003'],
                                    ['0010', '0011', '0012', '0013']
                                ],
                                [
                                    ['0100', '0101', '0102', '0103'],
                                    ['0110', '0111', '0112', '0113']
                                ]
                            ],
                            [
                                [
                                    ['1000', '1001', '1002', '1003'],
                                    ['1010', '1011', '1012', '1013']
                                ],
                                [
                                    ['1100', '1101', '1102', '1103'],
                                    ['1110', '1111', '1112', '1113']
                                ]
                            ]
                        ]

#ce

Dim $Var[2][2][2][4] = [[[['0000', '0001', '0002', '0003'], ['0010', '0011', '0012', '0013']], [['0100', '0101', '0102', '0103'], ['0110', '0111', '0112', '0113']]], [[['1000', '1001', '1002', '1003'], ['1010', '1011', '1012', '1013']], [['1100', '1101', '1102', '1103'], ['1110', '1111', '1112', '1113']]]]


For $a = 0 To UBound($Var, 1) - 1
    For $b = 0 To UBound($Var, 2) - 1
		For $c = 0 To UBound($Var, 3) - 1
			For $d = 0 To UBound($Var, 4) - 1
				ConsoleWrite($a & ',' & $b & ',' & $c & ',' & $d & ' - ' & $Var[$a][$b][$c][$d] & @CR)
				IniWrite('4D.ini', 'ARRAY', $a & $b & $c & $d, $Var[$a][$b][$c][$d])
			Next
		Next
    Next
Next

ConsoleWrite(@CR)

For $a = 0 To UBound($Var, 1) - 1
    For $b = 0 To UBound($Var, 2) - 1
		For $c = 0 To UBound($Var, 3) - 1
			For $d = 0 To UBound($Var, 4) - 1
				ConsoleWrite($a & ',' & $b & ',' & $c & ',' & $d & ' - ' & IniRead('4D.ini', 'ARRAY', $a & $b & $c & $d, '') & @CR)
			Next
		Next
    Next
Next



Плохая.

За нарушения правил форума (А2, Б5 и Б8) вы получаете заслуженный бан на одну неделю.
 

firex

AutoIT Гуру
Сообщения
943
Репутация
208
Siroga00VII [?]
исходной код не дам даже часть кода
Чайникам все равно его не понять, не наш уровень.

http://www.autoitscript.com/forum/topic/121529-multidimensional-array-to-string-and-back/
 

00VII_Siroga

Новичок
Сообщения
1
Репутация
0
Вот так надо :laugh:
Код:
Local $4d[46][32][6][2]
For $y = 1 To 31
	 For $x = 1 to 45
		$4d[$x][$y][0][0] = "0_a"
		$4d[$x][$y][1][0] = "1_a"
		$4d[$x][$y][2][0] = "2_a"
		$4d[$x][$y][3][0] = "3_a"
		$4d[$x][$y][4][0] = "4_a"
		$4d[$x][$y][5][0] = "5_a"
		
		$4d[$x][$y][0][1] = "0_b"
		$4d[$x][$y][1][1] = "1_b"
		$4d[$x][$y][2][1] = "2_b"
		$4d[$x][$y][3][1] = "3_b"
		$4d[$x][$y][4][1] = "4_b"
		$4d[$x][$y][5][1] = "5_b"

    Next
Next
For $a = 0 To UBound($4d, 1) - 1
    For $b = 0 To UBound($4d, 2) - 1
        For $c = 0 To UBound($4d, 3) - 1
            For $d = 0 To UBound($4d, 4) - 1

IniWrite('4D.ini', 'ARRAY', $a & $b & $c & $d, $4d[$a][$b][$c][$d])
            Next
        Next
    Next
Next
IniWrite('4D.ini', 'ARRAY', "a", UBound($4d, 1))
IniWrite('4D.ini', 'ARRAY', "b", UBound($4d, 2))
IniWrite('4D.ini', 'ARRAY', "c", UBound($4d, 3))
IniWrite('4D.ini', 'ARRAY', "d", UBound($4d, 4))






ConsoleWrite(@CR)
Local $4d[IniRead('4D.ini', 'ARRAY', "a", 0)][IniRead('4D.ini', 'ARRAY', "b", 0)][IniRead('4D.ini', 'ARRAY', "c", 0)][IniRead('4D.ini', 'ARRAY', "d", 0)]
For $a = 1 To IniRead('4D.ini', 'ARRAY', "a", 0) - 1
    For $b = 1 To IniRead('4D.ini', 'ARRAY', "b", 0) - 1
        For $c = 0 To IniRead('4D.ini', 'ARRAY', "c", 0) - 1
            For $d = 0 To IniRead('4D.ini', 'ARRAY', "d", 0) - 1
$4d[$a][$b][$c][$d] = IniRead('4D.ini', 'ARRAY', $a & $b & $c & $d, '')

            Next
        Next
    Next
Next
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,724
00VII_Siroga

Постоянный бан за повторную регистрацию. Бан на ник Siroga00VII также изменен на постоянный.
 
Верх