|
|
|
первый параметр print через аргумент функции
|
|||
|---|---|---|---|
|
#18+
Есть такая задача: нужно сделать выгрузку в текстовый файл. Код довольно длинный, поэтому есть естесственное желание разбить код на функции. Т. е. если писать одной процедурой, получится: Код: plaintext 1. 2. 3. 4. а надо сделать так: Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. Подскажите как объявить p и pStream? Заранее благодарен ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.12.2004, 09:51:50 |
|
||
|
первый параметр print через аргумент функции
|
|||
|---|---|---|---|
|
#18+
As INTEGER Dim q as InTEGER q=FreeFile ... call s1(q) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.12.2004, 09:54:12 |
|
||
|
первый параметр print через аргумент функции
|
|||
|---|---|---|---|
|
#18+
При компиляции матерится на строке с первым принтом. Ошибка: Method not valid without suitable object. ЛЮДИ!!! ГДЕ ГРАБЛИ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.12.2004, 10:04:12 |
|
||
|
первый параметр print через аргумент функции
|
|||
|---|---|---|---|
|
#18+
Open сделал? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.12.2004, 10:27:01 |
|
||
|
первый параметр print через аргумент функции
|
|||
|---|---|---|---|
|
#18+
В данном примере функция 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® ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.12.2004, 10:29:08 |
|
||
|
|

start [/forum/topic.php?fid=45&msg=32815741&tid=1669923]: |
0ms |
get settings: |
11ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
61ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
53ms |
get tp. blocked users: |
2ms |
| others: | 236ms |
| total: | 403ms |

| 0 / 0 |
