Программирование "удобняшек" на VBScript (Часть 2) - [41] :: Прикладное программирование :: Компьютерный форум Ru.Board

Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67

Открыть новую тему

Написать ответ в эту тему

Moderator

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Вопросы, задачи и их решения по VBScript.

Мануал (english, 600 Кб). | Зеркало
MS Scripting 5.6 (700 КБ), включает последнюю версию VBS. Владельцам XP/2000(?) должен быть не нужен. | Зеркало
Немного на wikiпедии.
Предыдущие части: 1

Смежные темы:
Сценарии Windows
Командная строка, батники\сценарии (bat, cmd)
Скрипты KiXtart

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 04:12 12-07-2011 | Исправлено: Smitis, 23:28 26-02-2018

fff222fffy1

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Нашёл пример чтения бинарных файлов:

Код:

    Function ReadBinaryFile(filename)
        Dim bArr
        With CreateObject("ADODB.Stream")
            .Type = 1 'adTypeBinary
            .Open
            .LoadFromFile filename
            bArr = .Read
            .Close
            ReadBinaryFile = bArr
        End With
    End Function

Однако, насколько я смог понять, этот метод не позволяет читать файлы по частям.
Есть ли какие-то альтернативы для чтения частями? Нужно для работы с очень большими файлами.

Добавлено:
С чтением по частям разобрался: есть свойство Size, показывающее размер в байтах, есть необязательных параметр у метода Read, позволяющий указать, сколько байт следует прочесть.
А вот с дозаписью затык.
Получается только сформировать весь объём данных в объекте ADODB.Stream, а затем разом записать его в файл.
А вот можно ли дозаписывать в файл и, если можно, то как, я пока не понял.

Всего записей: 30 | Зарегистр. 07-01-2010 | Отправлено: 11:19 07-03-2017

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Нужна помощь. Скрипт:

Цитата:

strSoundFile = "C:\Sounds\cmdmp3new\NoCode.wav"
Set objShell = CreateObject("Wscript.Shell")
strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
objShell.Run strCommand, 0, True

В результате:

Всё это нужно для воспроизведения звука при определённых обстоятельствах в 1С. Работало-перестало. При каких обстоятельствах непонятно. В скрипт вынесено из 1С для удобства тестирования.
Если не по адресу обратился за помощью - направление подскажите.
Спасибо!

Всего записей: 3410 | Зарегистр. 15-01-2006 | Отправлено: 17:06 07-03-2017 | Исправлено: Dobrezov, 17:09 07-03-2017

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

а так нельзя сделать

Код:

Set oVoice = CreateObject("SAPI.SpVoice")
Set oSpFileStream = CreateObject("SAPI.SpFileStream")
oSpFileStream.Open "E:\1C_Bases\Sounds\NoCode.wav"
oVoice.SpeakStream oSpFileStream
oSpFileStream.Close

Всего записей: 1362 | Зарегистр. 30-03-2016 | Отправлено: 17:12 07-03-2017

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

a929151
Извиняюсь! Забыл написать. На 2012R2 это всё.
То, что предлагается - работает на 2008R2, на 2012R2 вываливается в ошибку.

P.S. В предыдущем посту исправил путь, т.е. ошибок на рабочей машине в этом плане нет.

Всего записей: 3410 | Зарегистр. 15-01-2006 | Отправлено: 17:16 07-03-2017 | Исправлено: Dobrezov, 17:21 07-03-2017

a929151 Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору на 2012R2 файл sndrec32.exe имеется?
	Всего записей: 1362 \| Зарегистр. 30-03-2016 \| Отправлено: 17:23 07-03-2017 \| Исправлено: a929151, 17:24 07-03-2017

Dobrezov Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору a929151 Поиском не нашёл. А где должен быть?
	Всего записей: 3410 \| Зарегистр. 15-01-2006 \| Отправлено: 17:32 07-03-2017

a929151 Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Dobrezov, нет не должно, но ты же через него пытаешься звук воспроизвести. отсюда и сообщение что файл не найден Добавлено: C:\WINDOWS\System32\sndrec32.exe
	Всего записей: 1362 \| Зарегистр. 30-03-2016 \| Отправлено: 17:35 07-03-2017

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

a929151
Тут такое дело... Я ориентируюсь на то, что мне админ 1С даёт. Ситуация с его слов следующая: работало, а сейчас не работает.
Скрипт тоже от него.
Ок. Как можно решить данную проблему? За любой совет благодарен буду. К самостоятельному решению проблемы не готов.

Всего записей: 3410 | Зарегистр. 15-01-2006 | Отправлено: 17:39 07-03-2017 | Исправлено: Dobrezov, 17:43 07-03-2017

a929151 Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору скачать фалй sndrec32.exe http://workupload.com/file/a6NVUJz в скрипте дописать путь к этому файлу
	Всего записей: 1362 \| Зарегистр. 30-03-2016 \| Отправлено: 17:46 07-03-2017

Dobrezov Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору a929151 Спасибо! Заработало. P.S. После перезагрузки заработало то, что ранее отказывалось. Глюк словили какой-то...
	Всего записей: 3410 \| Зарегистр. 15-01-2006 \| Отправлено: 17:56 07-03-2017 \| Исправлено: Dobrezov, 18:46 07-03-2017

Proshaa

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Dobrezov
здесь более корректное решение. "завязано" только на сам звуковой файл.
админ чего-то удалил/переместил - вот и не работает

----------
Если ссылки в моих постах не работают - ищите здесь

Всего записей: 3079 | Зарегистр. 10-01-2011 | Отправлено: 18:52 07-03-2017

BANNED

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Господа, а подскажите, почему не работает вот така конструкция:

Код:

Sub strLstAdd(ByRef strOrg, ByVal strAdd As String = "")

Ругается: шибка компиляции Microsoft VBScript: Предполагается наличие ')'
Или как правильно задавать необязательные параметры со значением по умолчанию для VBScript, если он вообще это умеет.
PS: VbsEdit бы еще не жадный...

Всего записей: 2307 | Зарегистр. 21-09-2006 | Отправлено: 10:47 12-03-2017 | Исправлено: MisHel64, 10:52 12-03-2017

Proshaa

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

необязательный параметр: Optional

----------
Если ссылки в моих постах не работают - ищите здесь

Всего записей: 3079 | Зарегистр. 10-01-2011 | Отправлено: 13:10 12-03-2017

MisHel64 BANNED	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Разобрался. Proshaa Optional в VBScript не поддерживается, а вопрос был именно по нему. Нашел финты ушами позволяющие это сделать, но решил обойтись без них.
	Всего записей: 2307 \| Зарегистр. 21-09-2006 \| Отправлено: 21:18 12-03-2017

KUBIK23

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Товарищи, прошу помощи.
Как автоматически подтягивать дополнительные ящики к профилю?

Для понимания задачи. Имеется несколько отделов в организации. У некоторых отделов помимо личных ящиков имеются еще дополнительные ( например info@org.ru). Проверку привязки пользователя к отделу думаю осилю, а вот с данной задачей справиться не смогу, ибо знания пока скудны))
Буду крайне благодарен за помощь

Всего записей: 1 | Зарегистр. 17-03-2017 | Отправлено: 20:06 17-03-2017

fff222fffy1

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Подозреваю, что это невозможно, но вдруг.
Нет ли какой-нибудь хитрой возможности узнать скрипту, с какого именно ярлыка (если с ярлыка) он был запущен?

Всего записей: 30 | Зарегистр. 07-01-2010 | Отправлено: 14:08 22-03-2017

Laserje18

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Помогите, пожалуйста!
Есть 2 массива, в одном имена переменных в другом значения переменных, как можно переменным присвоить их значения?

Код:

a = Array(username,pass,on)
b = Array("Anya","12345","y")
For i = 0 To 2
a(i) = b(i)
Next

Всего записей: 64 | Зарегистр. 11-09-2012 | Отправлено: 10:21 24-03-2017

Tilks Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Laserje18 http://www.script-coding.com/WSH/Dictionary.html
	Всего записей: 2688 \| Зарегистр. 14-08-2005 \| Отправлено: 11:49 24-03-2017

Laserje18

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Tilks, спасибо!
Про существование объекта Dictionary я в курсе, только мой вопрос не в том, как сопоставить ключ и его значение, вопрос в том, как, загнав переменные в один массив, а их значения в другой массив, присвоить переменным их значения, если не ошибаюсь, на PHP это функция compact(), как её реализовать на vbs ?

Ещё один вопрос, что происходит с массивом, если его не объявлять, сделав цикл по элементам массива, за пределами цикла доступа к элементам массива уже не будет, фактически, окончание цикла для массива будет командой "Erase", да? Но и в самом цикле, после обращения к элементу, повторно к нему обратиться уже нельзя, как бы элементу массива после обращения к нему присвоили значение "vbNullString" правильно же?

Код:

For Each a In Array(username,pass,on)
MsgBox a
Next

Всего записей: 64 | Зарегистр. 11-09-2012 | Отправлено: 18:27 27-03-2017

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

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

Код:

Cnt = WScript.Arguments.Count
For i = 0 To Cnt - 1
MsgBox WScript.Arguments(i)
'sss = Array(WScript.Arguments(i))
'ddd = join(sss)
' MsgBox ddd
Next

Как мне объединить весь этот массив аргументов в одну строку?

Всего записей: 36 | Зарегистр. 19-01-2017 | Отправлено: 13:12 29-03-2017

Открыть новую тему

Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC