Файл - Запись Считывание

[HellScream]

Да Да! Знаю это нубовский вопрос
но вот че поделаешь - вылетело из головы
Как записывать и считывать из файли какую лидо переменную
напишите код?
Например:
переменная "А"
И надо сохранить на C/ggg
ну вот забыл че делать
ещё раз извеняюсь за такой "Низкий" вопрос
Заранее спасибо..

[Vitaly1]

В текстовый файл, или в другой?

Open "C:\Мой.txt" For Output As 1
Print #1, TextBox1.Text ;
Close #1

‘Считывание содержимого файла Мой.txt в объект TextBox1
Dim s As String, i As Long, n As Byte
'Открываем файл
Open "C:\Мой.txt" For Input As 1
TextBox1.Text = ""
On Error Resume Next
'попытка считать файл полностью
TextBox1.Text = Input(LOF(1), 1)
'Если ошибка считывания данных
If Err.Number <> 0 Then
'Закрываем файл и открываем его снова
Close #1
Open "C:\Мой.txt" For Input As 1
'Считываем файл построчно
While Not EOF(1)
Input #1, s
TextBox1.Text = TextBox1.Text + s
If Not EOF(1) Then
TextBox1.Text = TextBox1.Text + Chr(13) + Chr(10)
End If
Wend
End If
Close #1

Для записи значения переменной лучше использовать

Write #НомерФайла, список переменных [;]
а не
Print #НомерФайла, список переменных [;]

читать из текстового файла список переменных
Input #НомерФайла [, CписокПеременных]

[HellScream]

Пасиба Большое
Тока я бы предложил считывание файла через
App.path это удобнее
если на другом компютере другой путь к папке с файлом
Ещё раз пасиба

[HellScream]

Тока ещё маленький вопросик...
Када я считываю сначение переменной String
оно выдается и записывается в кавычках
как убрать это при считывании?

[Чудик]

Не понимаю от куда берутся кавычки. Но могу предложить следующий способ, не знаю насколько он оптимален:

x=String 'присваиваем переменной x значение строки, которая с кавычками
y1=Len(x) 'определяем длину строковой переменной
y2=Left(x,(y1-1)) 'отсекаем левые кавычки
y3=Right(y2,(y1-2)) 'отсекаем правые кавычки

Все.

[tyomitch]

Вместо двух отсечений, естественно, достаточно одного:

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

x = Mid(x, 2, Len(x) - 2)

[HellScream]

во пасиб