powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / первый параметр print через аргумент функции
6 сообщений из 6, страница 1 из 1
первый параметр print через аргумент функции
    #32815733
Let
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Let
Гость
Есть такая задача: нужно сделать выгрузку в текстовый файл. Код довольно длинный, поэтому есть естесственное желание разбить код на функции.

Т. е. если писать одной процедурой, получится:

Код: plaintext
1.
2.
3.
4.
public function s() as boolean
      print # [b]1 , "Мой текст"[/b]
      print # [b]1 , "Мой текст1"[/b]
end function

а надо сделать так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
public function s() as boolean
dim p as НеЗнаю
p  = # 1 
      call s1(p)
      call s2(p)
end function

private function s1(pStream as НЕзнаю)
      print pStream, "Мой текст"
end function

private function s2(pStream as НЕзнаю)
      print pStream, "Мой текст1"
end function

Подскажите как объявить p и pStream?
Заранее благодарен
...
Рейтинг: 0 / 0
первый параметр print через аргумент функции
    #32815741
Фотография 4d_monster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
As INTEGER

Dim q as InTEGER

q=FreeFile
...


call s1(q)
...
Рейтинг: 0 / 0
первый параметр print через аргумент функции
    #32815760
Let
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Let
Гость
При компиляции матерится на строке с первым принтом. Ошибка: Method not valid without suitable object.

ЛЮДИ!!! ГДЕ ГРАБЛИ?
...
Рейтинг: 0 / 0
первый параметр print через аргумент функции
    #32815832
Фотография 4d_monster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Open сделал?
...
Рейтинг: 0 / 0
первый параметр print через аргумент функции
    #32815840
Фотография 4d_monster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В данном примере функция FreeFile используется для определения следующего свободного номера файла. В цикле последовательно открываются для вывода данных пять файлов, в каждый из которых записываются некоторые данные.

Dim MyIndex, FileNumber
For MyIndex = 1 To 5 ' Выполняет цикл 5 раз.
FileNumber = FreeFile ' Определяет свободный
' номер файла.
Open "TEST" & MyIndex For Output As #FileNumber ' Создает файл.
Write #FileNumber, "Пример." ' Выводит текст
Close #FileNumber ' Закрывает файл.
Next MyIndex

IMHO, Mon$te®
...
Рейтинг: 0 / 0
первый параметр print через аргумент функции
    #32815874
Let
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Let
Гость
Извиняюсь, меня переглючило :)
Писал: print fStream, "Мой текст"
Надо было писать: print #fStream, "Мой текст"

to 4d_monster:
спасибо за ответы
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / первый параметр print через аргумент функции
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]