Пятница, 01 Ноября 2024, 06:40

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Снова Blitz3D
STVRLIGHTДата: Вторник, 19 Июня 2018, 17:05 | Сообщение # 1
был не раз
Сейчас нет на сайте
Так ничего и не получается, что очень странно. Решил попробовать написать маленькую программку, чтобы проработать запись в .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 так и остается пустым... :'( :'(
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг