Help!!!

[Blackiller]

Народ!!! Помогите срочно!!! У меня скоро экзамен по инфе, а через 2 дня прогу надо показывать...
короче прогу писал половинуя, а другую тот, кто в этом деле побольше шарит, но его теперь нет и я никак не могу разобрать одну процедуру: записи информации в txt файл. Сам код:
Public Sub запись()
длина_файла = 0
Open "тест.txt" For Input As 1#
While Not EOF(1)
Line Input #1, строка
длина_файла = длина_файла + 1
Wend
Close 1
ReDim записи(длина_файла + 1)
Open "тест.txt" For Input As 1#
For q = 1 To длина_файла
Line Input #1, записи(q)
Next q
Close 1
Open "тест.txt" For Output As 1#
For q = 1 To длина_файла
Print #1, записи(q)
Next q
Print #1, имя + " " + Str(результат) + Ответ(1, n)
Close 1

End Sub
Кто разбирается в этом, объясните мне чё к чему здесь
Кидайте на мыло: blackiller@list.ru
или в асю : 191829707

[Sedge]

Народ!!! Помогите срочно!!!

Ты еще забыл запостить этот вопрос в "VBA", "Народный треп", "VB.NET" и, до кучи, в "Юмор"

короче прогу писал половинуя, а другую тот, кто в этом деле побольше шарит,

Код ужасен. Автор не иначе "шарил" в потемках...

Код: Выделить всё

    длина_файла = 0
    Open "тест.txt" For Input As 1#
        While Not EOF(1)
        Line Input #1, строка
        длина_файла = длина_файла + 1
        Wend
    Close 1


Типа, построчно считываем "тест.txt" с целью узнать количество строк.
Зачем это автору, знает лишь его пятая нога на левой руке...

Код: Выделить всё

    ReDim записи(длина_файла + 1)


Типа, устанавливаем размер динамического массива "записи" равным количеству строк в файле "тест.txt".

Код: Выделить всё

    Open "тест.txt" For Input As 1#
        For q = 1 To длина_файла
            Line Input #1, записи(q)
        Next q
    Close 1


Типа, еще раз построчно считываем "тест.txt" с целью загрузить процессор компьютера пользователя и вызвать у пользователя несварение желудка, а у программиста, который смотрит на этот код, заворот мозгов (при попытке понять какое такое Дао приследовал автор прогоняя цикл второй раз)... Одновременно, совершенно случайно, заполняем массив "записи" строками из файла "тест.txt".

Код: Выделить всё

    Open "тест.txt" For Output As 1#
        For q = 1 To длина_файла
            Print #1, записи(q)
        Next q
        Print #1, имя + "  " + Str(результат) + Ответ(1, n)
    Close 1


Типа, в третий раз мучаем наш многострадальный "тест.txt", перезаписывая в него строки из массива "записи". В конец файла добавляется значение (по всей видимости текстовое), являющееся результатом конкатенации (или все-таки суммы?) таинственной переменной "имя", не менее таинственной переменной "результат", приведенной к значению типа String и элемента загадочного многомерного массива "Ответ" с координатами 1,n...

Кто разбирается в этом, объясните мне чё к чему здесь
Кидайте на мыло: blackiller@list.ru
или в асю : 191829707

А вот фиг. Пусть здесь висит
В общем я бы за эту "программу" и кола не поставил
Вывод: ПИШИ КОД САМ! Так оно для кармы полезнее.

[val]

Blackiller
БРАВО......

[val]

Предыдущий пост был преднозначен для Sedge

[Ariman]

половинуя

Только с третьего прочтения въехал в смысл слова!

[Ennor]

Sedge, восхитительно. Три раза перечитал, еле из-под стола вылез .

[Amed]

[Blackiller]

Sedge, спасибо огромное

Но что такое EOF в цикле:
While Not EOF(1)
Line Input #1, строка
длина_файла = длина_файла + 1
Wend

[uhm]

Слов нет.
Хелп что, отменили? F1 слабо нажать?
Или ты прогу сдавать вообще без бейсика собрался?

EOF = end-of-file, выдает True, если из файла была считана последняя запись.

[Шурик]

может у него нет хелпа...
правда есть онлайн хелп
гыыыы)))
точна... зайди по ссылке и жми F1 что есть силы......