Вывод массива из программы в текстовый файл - VB
Формулировка задачи:
Здравствуйте. У меня такой вопрос.
Сделал программку в которой ввожу элементы одномерного массива, а при нажатии на кнопку он их записывает в *.txt (не буду выкладывать код, потому что это позор для программистов, но главное что работает ) Проблема следующего характера, не могу сделать так, что бы он писал в блокноте в строке по 10 элементов, а остальное переносил на следующую (к примеру если у меня 23 элемента, выходит 2 строки по 10 и третья строка с 3 элементами, между собой разделены запятой). У меня таких несколько массивов
Так же буду признателен, если подскажите:
1) Вывожу массив вот так:
т.е. сначало циклом в ТекстБокс, а из него уже готовую строку в блокнот. Возможно ли это делать на прямую в блокнот, без лишних элементов и строчек, а то много массивов и в итоге большой нелепый код программы.
2) как потом эти массивы считать обратно в программу
Решение задачи: «Вывод массива из программы в текстовый файл»
textual
Листинг программы
For i = 1 To NNst A11(i) = massY2(i) * Mas A12(i) = massY1(i) * Mas B11(i) = 6000 - (massX1(i) - massD(i) / 2) * Mas ' 6000 - высота, меняем только Y, у меня правда координаты идут тут наоборот B12(i) = 6000 - (massX2(i) + massD(i) / 2) * Mas A21(i) = (massY1(i) - massD(i) / 2) * Mas A22(i) = (massY2(i) + massD(i) / 2) * Mas B21(i) = 6000 - massX1(i) * Mas B22(i) = 6000 - massX2(i) * Mas Next i For i = 1 To NNst If massX1(i) = massX2(i) Then oC.Picture1.Line (A11(i), B11(i))-(A12(i), B12(i)), vbBlack, B End If If massY1(i) = massY2(i) Then oC.Picture1.Line (A21(i), B21(i))-(A22(i), B22(i)), vbBlack, B End If Next i
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д