Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Запись в текстовый файл  [new]
ALEXIS_22
Member

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

для записи одной строки в текстовые файлы (*.txt) с циклом позволяющим записать и сохранить несколько файлов на жесткий диск в указанном месте.
1 сен 06, 09:36    [3080065]     Ответить | Цитировать Сообщить модератору
 Re: Запись в текстовый файл  [new]
Ёжик`
Member

Откуда:
Сообщений: 5992
Open "c:\MyFile.Txt" For Append Access Write As #1
Print #1, "Мамой клянусь - буду пользоваться справкой!!!!!"
Close #1
1 сен 06, 09:40    [3080076]     Ответить | Цитировать Сообщить модератору
 Re: Запись в текстовый файл  [new]
Klonish
Member

Откуда: Moscow sity
Сообщений: 72
Мамой клянусь пользовался справкой!!!
Но понял не всё.
НИ КАК не могу въехать, что делают несколько строк в этом коде:

Dim i, j, aski As Integer
Dim MyString, MyNumber
Dim NomSt, aaa As String
Dim Mass(8) As String

Open "D:\Vrem\KF\KF_060723.txt" For Input As #1
Input #1, MyString - 1) ЧТО ПРОИСХОДИТ НА ДАННОМ ЭТАПЕ???
NomSt = 0
Do While Not EOF(1) ' Цикл до конца файла. - 2) Почему эта запись позволяет просмотреть файл до конца??? Мы же не указали источник от куда нужно смотреть? Я понимаю как пользоваться EOF, MoveNext, BOF при работе с recordset-ом, но не могу догнать что значит EOF(1)!!! И как тут происходит MoveNext???????????????

MyString = Input(1, #1)
TekChar = MyString
aski = Asc(TekChar)

Select Case aski
Case 128
TekChar = "А"
........
Case 239
TekChar = "я"

End Select

If (TekChar <> "~") And (aski <> 10) Then
MyWord = MyWord + TekChar
Else:
NomSt = NomSt + 1
Mass(NomSt) = LTrim(MyWord)
MyWord = ""
End If
1 сен 06, 11:55    [3081179]     Ответить | Цитировать Сообщить модератору
 Re: Запись в текстовый файл  [new]
barrabas
Member

Откуда: от махмуда
Сообщений: 10502
и четаем и пишем
_____________________________________
Мое конг-фу сильнее твоего
1 сен 06, 12:00    [3081226]     Ответить | Цитировать Сообщить модератору
 Re: Запись в текстовый файл  [new]
bubucha
Member

Откуда:
Сообщений: 5633
автор
Open "D:\Vrem\KF\KF_060723.txt" For Input As #1

As #1 не делайте так, не надо. Пользуйте FreeFile - и все будет прозрачнее.
1 сен 06, 12:06    [3081278]     Ответить | Цитировать Сообщить модератору
 Re: Запись в текстовый файл  [new]
Klonish
Member

Откуда: Moscow sity
Сообщений: 72
bubucha
автор
Open "D:\Vrem\KF\KF_060723.txt" For Input As #1

As #1 не делайте так, не надо. Пользуйте FreeFile - и все будет прозрачнее.

Всё бы наверное было бы хорошо если бы я знал что такое FreeFile и почему нельзя делать As #1
Ссылку от barrabas-а я посмотрел, там чтение текстовика испльзуется с помощью FileSystemObject. Спасибо за совет сейчас попробую. Но всё же мне хотелось бы разобраться в коде который мне достался.
1 сен 06, 12:13    [3081324]     Ответить | Цитировать Сообщить модератору
 Re: Запись в текстовый файл  [new]
Klonish
Member

Откуда: Moscow sity
Сообщений: 72
barrabas
и четаем и пишем

Спасибо, разобрался.
Но всё же почему нельзя использовать As #1 ?
bubucha
As #1 не делайте так, не надо.
1 сен 06, 12:32    [3081464]     Ответить | Цитировать Сообщить модератору
 Re: Запись в текстовый файл  [new]
ILL HEAD
Member [заблокирован]

Откуда:
Сообщений: 8498
ALEXIS_22
Но всё же почему нельзя использовать As #1 ?

имхо. не запутаетесь в потоках
freefile - даст всегда свободный номер
1 сен 06, 12:39    [3081549]     Ответить | Цитировать Сообщить модератору
 Re: Запись в текстовый файл  [new]
bubucha
Member

Откуда:
Сообщений: 5633
автор
Но всё же почему нельзя использовать As #1 ?

Да можно конечно, только когда вы будите одновременно работать и открывать N-е количество файлов, надо будет держать к голове, какой дескриптор какому файлу соответствует. Вопрос только в этом. Все это имхо конечно.
1 сен 06, 12:39    [3081551]     Ответить | Цитировать Сообщить модератору
 Re: Запись в текстовый файл  [new]
bubucha
Member

Откуда:
Сообщений: 5633
поправлюсь:
"надо будет держать в больной голове"
1 сен 06, 12:51    [3081667]     Ответить | Цитировать Сообщить модератору
 Re: Запись в текстовый файл  [new]
ILL HEAD
Member [заблокирован]

Откуда:
Сообщений: 8498
хм .....
1 сен 06, 13:00    [3081766]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить