Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как в процедуру передать объект / 12 сообщений из 12, страница 1 из 1
09.11.2021, 15:53
    #40110349
antipod
antipod
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в процедуру передать объект
Я vba script пишу, предется множество рекурсий делать, результаты в лог файл писать собираюсь, и вот в процедуру как параметр надо передать объект?
fou , каждых раз закрывать открывать файл - думаю долго будет

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")
Set fout = FSO1.CreateTextFile("C:\usr\log.txt", true)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2021, 16:39
    #40110372
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в процедуру передать объект
antipod,
что-то не помню на ограничения в этом плане
определите и передавайте
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2021, 16:47
    #40110375
antipod
antipod
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в процедуру передать объект
HandKot,
Пишет "Недопустимое использование скобок" и ругается на закрывающую скобку
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2021, 16:58
    #40110380
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в процедуру передать объект
antipod
HandKot,
Пишет "Недопустимое использование скобок" и ругается на закрывающую скобку


Код: vbnet
1.
2.
3.
Public Sub test(fso As Object)

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2021, 06:13
    #40110507
antipod
antipod
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в процедуру передать объект
HandKot,
Ругается на предполагаемое наличие закрывающей или открываемой скобки.
У меня скрипт, он наверно малость по другому пишется.
Еще - я подзабыл: как в скрипте отделяется тело скрипта от процедур и функций? может собака здесь зарыта?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2021, 10:09
    #40110556
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в процедуру передать объект
antipod
Ругается на предполагаемое наличие закрывающей или открываемой скобки.
У меня скрипт, он наверно малость по другому пишется.
Ваш монитор слишком далеко, не получается разглядеть, что у вас там на экране...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2021, 10:15
    #40110559
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в процедуру передать объект
antipod
HandKot,
Ругается на предполагаемое наличие закрывающей или открываемой скобки.
У меня скрипт, он наверно малость по другому пишется.
Еще - я подзабыл: как в скрипте отделяется тело скрипта от процедур и функций? может собака здесь зарыта?


1. скрипты все пишутся одинаково, за несколькими различиями
2.автор Я vba script пишу
Предполагало, что это Visual Basic for Application (vba) пример которого я и показывал ранее
3. Если же Вы пишете VBScript , то там совсем мало отличий (не указываются типы данных)
вот пример на VBS
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
'**************************************** 
REM Процедура записи в лог
'****************************************
sub WriteToFile  (o)
	o.WriteLine("This is a test.")
end sub

'**************************************** 
REM основной блок 
'****************************************
Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")
Set fout = FSO1.CreateTextFile("C:\#tmp\1\log.txt", true)
call WriteToFile  (fout)
fout.Close
set fout = Nothing



По моему, если объект используется в разных местах и часто, то лучше его сделать глобальным, чтобы не передавать как параметр туды сюды
пример

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
'**************************************** 
REM глобальная ссылка на файл лога
'****************************************
Dim fout

'**************************************** 
REM Процедура записи в лог
'****************************************
sub WriteToFile 
	fout.WriteLine("This is a test1111.")
end sub

'**************************************** 
REM основной блок 
'****************************************
Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")
Set fout = FSO1.CreateTextFile("C:\#tmp\1\log.txt", true)
call WriteToFile
fout.Close
set fout = Nothing
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2021, 13:53
    #40110678
antipod
antipod
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в процедуру передать объект
HandKot,
Я уже все возможные варианты испробовал,скрин сообщения прикрепил
и вот текст последний
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
'**************************************** 
REM Процедура записи в лог
'****************************************
Public sub AllFile (PP, fo As Object)
	Set Files = Fo.GetFolder(pp).Files 
	For Each File In Files 
    		fout.WriteLine(File.Path + vbTab + cStr(File.Size) + vbTab + CStr(File.DateLastModified) + vbTab + CStr(File.DateLastAccessed))
	Next
End sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2021, 14:04
    #40110683
antipod
antipod
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в процедуру передать объект
HandKot,
если As objeck убрать - пишет что не поддерживается свойство у fo
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2021, 14:09
    #40110687
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в процедуру передать объект
antipod
если As objeck убрать
в VBS это надо сделать, в VBS нет AS
antipod
не поддерживается свойство у fo
Так а как это процедура вызывается-то? код-то где?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2021, 14:11
    #40110689
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в процедуру передать объект
Непонятно, почему вы все время предлагаете нам погадать на кофейной гуще
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2021, 14:11
    #40110690
antipod
antipod
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в процедуру передать объект
antipod,
разобрался, объекты попутал, надо было
Код: vbnet
1.
2.
3.
4.
5.
Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")
FolderPath = "C:\1\"
Set fout = FSO1.CreateTextFile("C:\usr\log.txt", true)
fout.WriteLine("*" + vbTab + FolderPath)
Call AllFile (FolderPath, fso1, fout)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как в процедуру передать объект / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 411ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2154697]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 29ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 284ms
total:  411ms
x
x
Закрыть


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