| 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 так и остается пустым... 
|
|
|
| |
