Get & Put: кто есть кто.

[mark+]

Хелп, please. Не знаю как открыть/прочитать, открыть/записать файл, с помощью Get & Put. НУ ЗАБЫЛ Я!

[net]

Создание:
file = "e:\46к4нвкар.txt"
fnum1 = FreeFile
Open file For Output As #fnum1
Write #fnum1, t(1)
Write #fnum1, t(2)
Write #fnum1, t(3)
Close fnum1

чтение:
file = "c:\46к4нвкар.txt"
fnum1 = FreeFile
Open file For Input As #fnum1
Input #fnum1, t(1)
Input #fnum1, t(2)
Input #fnum1, t(3)
Close fnum1

[A.A.Z.]

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

Sub Sub1()
Dim s1@, s2@
s2 = "lalala"
Open FileName For Random As #1
Get #1, ,s1
Put #1, ,s2
Close #1
End Sub


[ANDLL]

Извините, что вмешиваюсь...
А что такое @ после имени переменной.
На какой тип она указывает?

[GSerg]

Currency
A.A.Z., а как тебе удалось присвоить туда "lalala"?

[A.A.Z.]

Со-о-о-рри, конечно же $!!!