Вывод массива из программы в текстовый файл - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте. У меня такой вопрос. Сделал программку в которой ввожу элементы одномерного массива, а при нажатии на кнопку он их записывает в *.txt (не буду выкладывать код, потому что это позор для программистов, но главное что работает ) Проблема следующего характера, не могу сделать так, что бы он писал в блокноте в строке по 10 элементов, а остальное переносил на следующую (к примеру если у меня 23 элемента, выходит 2 строки по 10 и третья строка с 3 элементами, между собой разделены запятой). У меня таких несколько массивов Так же буду признателен, если подскажите: 1) Вывожу массив вот так:
Листинг программы
  1. For I = 1 To NNst
  2. Itog.Text = Itog.Text & massEb(I) & ","
  3. Next I
  4. Print #1, Itog.Text
  5. Itog.Text = ""
т.е. сначало циклом в ТекстБокс, а из него уже готовую строку в блокнот. Возможно ли это делать на прямую в блокнот, без лишних элементов и строчек, а то много массивов и в итоге большой нелепый код программы. 2) как потом эти массивы считать обратно в программу

Решение задачи: «Вывод массива из программы в текстовый файл»

textual
Листинг программы
  1. For i = 1 To NNst
  2.             A11(i) = massY2(i) * Mas
  3.             A12(i) = massY1(i) * Mas
  4.             B11(i) = 6000 - (massX1(i) - massD(i) / 2) * Mas ' 6000 - высота, меняем только Y, у меня правда координаты идут тут наоборот
  5.            B12(i) = 6000 - (massX2(i) + massD(i) / 2) * Mas
  6.             A21(i) = (massY1(i) - massD(i) / 2) * Mas
  7.             A22(i) = (massY2(i) + massD(i) / 2) * Mas
  8.             B21(i) = 6000 - massX1(i) * Mas
  9.             B22(i) = 6000 - massX2(i) * Mas
  10. Next i
  11. For i = 1 To NNst
  12.     If massX1(i) = massX2(i) Then
  13.         oC.Picture1.Line (A11(i), B11(i))-(A12(i), B12(i)), vbBlack, B
  14.     End If
  15.     If massY1(i) = massY2(i) Then
  16.         oC.Picture1.Line (A21(i), B21(i))-(A22(i), B22(i)), vbBlack, B
  17.     End If
  18. Next i

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.533 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы