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