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

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

Код: 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
07.12.2004, 09:54:12
    #32815741
4d_monster
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
первый параметр print через аргумент функции
As INTEGER

Dim q as InTEGER

q=FreeFile
...


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

ЛЮДИ!!! ГДЕ ГРАБЛИ?
...
Рейтинг: 0 / 0
07.12.2004, 10:27:01
    #32815832
4d_monster
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
первый параметр print через аргумент функции
Open сделал?
...
Рейтинг: 0 / 0
07.12.2004, 10:29:08
    #32815840
4d_monster
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
первый параметр print через аргумент функции
В данном примере функция 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
07.12.2004, 10:38:46
    #32815874
Let
Let
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
первый параметр print через аргумент функции
Извиняюсь, меня переглючило :)
Писал: print fStream, "Мой текст"
Надо было писать: print #fStream, "Мой текст"

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


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