Записи участника (STVRLIGHT) - Форум игроделов

Результаты поиска

Дата: Вторник, 19 Июня 2018, 17:05 | Сообщение # 1 | Тема: Снова Blitz3D

был не раз

Сейчас нет на сайте

Так ничего и не получается, что очень странно. Решил попробовать написать маленькую программку, чтобы проработать запись в .txt:

a=1
b=1

Dim array$(100)

test1=ReadFile("test1.txt")
test2=ReadFile("test2.txt")

For i=1 To Eof
array$(a)=ReadLine(test1)
a=a+1
Next

For i=1 To Eof
array$(a)=ReadLine(test2)
a=a+1
Next

CloseFile(test1)
CloseFile(test2)

test3=WriteFile("test3.txt")

For i=1 To a
WriteLine(test3,array$(b))
b=b+1
Next

CloseFile(test3)

В test1 и test2 уже занесены данные. Программа выполняется, test3 так и остается пустым... :'(

STVRLIGHT

Дата: Суббота, 09 Июня 2018, 19:37 | Сообщение # 2 | Тема: blitz3D

был не раз

Сообщений: 3

Сейчас нет на сайте

У меня файл читается в
Repeat
Until ...

Просто не стал это писать здесь, т.к. не в этом вопрос. Спасибо, попробую

Добавлено (09 Июня 2018, 19:37)
---------------------------------------------
А. Дошло. Не так вас понял

STVRLIGHT

Дата: Суббота, 09 Июня 2018, 16:38 | Сообщение # 3 | Тема: blitz3D

был не раз

Сообщений: 3

Сейчас нет на сайте

никак не могу осуществить нормальную запись в .txt. Программе необходимо считать последовательности чисел из файла, сверить, чтобы сгенерированные последовательности не были такими же, и дописать их в файл. На деле получается так, что файл просто перезаписывается. Новые данные есть, а старые исчезают

. Делал, грубо говоря, так:

m=1
x=1
z=1

For i = 1 to Eof
array$(x)=ReadLine(filename)
x=x+1
Next

Потом, после генерации и проверки последовательностей, все писалось в другой массив:

exist$(z)=name$
z+z+1

И после этого делалась запись в файл:

For i = 1 to z
WriteLine(filename, m)
m=m+1
Next

Не работает. Есть варианты это исправить?

Добавлено (09 Июня 2018, 16:38)
---------------------------------------------
*z=z+1