Вывод массива из программы в текстовый файл - VB
Формулировка задачи:
Здравствуйте. У меня такой вопрос.
Сделал программку в которой ввожу элементы одномерного массива, а при нажатии на кнопку он их записывает в *.txt (не буду выкладывать код, потому что это позор для программистов, но главное что работает ) Проблема следующего характера, не могу сделать так, что бы он писал в блокноте в строке по 10 элементов, а остальное переносил на следующую (к примеру если у меня 23 элемента, выходит 2 строки по 10 и третья строка с 3 элементами, между собой разделены запятой). У меня таких несколько массивов
Так же буду признателен, если подскажите:
1) Вывожу массив вот так:
т.е. сначало циклом в ТекстБокс, а из него уже готовую строку в блокнот. Возможно ли это делать на прямую в блокнот, без лишних элементов и строчек, а то много массивов и в итоге большой нелепый код программы.
2) как потом эти массивы считать обратно в программу
Листинг программы
- For I = 1 To NNst
- Itog.Text = Itog.Text & massEb(I) & ","
- Next I
- Print #1, Itog.Text
- Itog.Text = ""
Решение задачи: «Вывод массива из программы в текстовый файл»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д