Запись и чтение данных из файла

[raros]

Подскажите пожалуйста!
После записи данных в файл оператором Put пытаюсь прочесть данные оператором Get, но он возвращает вместо введённого значения какое-то другое! Почему???

[alibek]

Надо спозиционировать указатель. Или в Get указать номер записи, или выбрать его оператором Seek.

[Zer]

А доступ Random или Binary?

[raros]

Вот код, если видите в чём проблема подскажите!

Dim nFreeFile As Integer
Private Sub Command1_Click()
nFreeFile = FreeFile
Open "c:\coefAMF.dat" For Random As nFreeFile
Put #nFreeFile, 1, tbCoefPlacaAMF.Text
Close
End Sub

Private Sub Form_Load()
Dim placa As Variant
nFreeFile = FreeFile
Open "c:\coefAMF.dat" For Random As nFreeFile
Get #nFreeFile, 1, placa
tbCoefPlacaAMF.Text = placa
Close
End Sub

[Sirik]

1. Попробуй открыть файл в режиме Binary.
2. И в PUT и GET не ставь 1, т.е. например Put #nFreeFile, , tbCoefPlacaAMF.Text

[raros]

Если в PUT и GET не ставить 1, или другой номер, то как потом искать эту запись???

[Sirik]

Если у тебя файл содержит записи, то лучше использовать FSO.

Я, лично, использую PUT и GET для работы с бинарными файлами, например с картинками.

[Zer]

Да, бинарка лучше. Тоже самое, тока считывание и запись побайтная не всегда удобна...

[Чудик]

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

Type MyRec
Placa As Variant
End Type

Dim nFreeFile As Integer
Private Sub Command1_Click()
nFreeFile = FreeFile

Open "c:\coefAMF.dat" For Random As nFreeFile
MyRec.Placa=tbCoefPlacaAMF.Text
Put #nFreeFile, 1, MyRec
Close #nFreeFile
End Sub

Private Sub Form_Load()
Dim placa As Variant
nFreeFile = FreeFile
Open "c:\coefAMF.dat" For Random As nFreeFile
Get #nFreeFile, 1, MyRec
tbCoefPlacaAMF.Text = MyRec.Placa
Close #nFreeFile
End Sub

Всегда получалось. Только вот старость! За память не ручаюсь!

[raros]

Спасибо всем кто подсказал, особенно Чудику!