Вывод массива из программы в текстовый файл - 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

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


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

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

15   голосов , оценка 3.533 из 5
Похожие ответы