quakerock Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору GepardSD Во втором варианте, который я предложил не надо прописывать пути. А так да, способ Evgeny972 работает идеально=).   Evgeny972 Спасибо за разъяснения. Всего записей: 29 | Зарегистр. 08-07-2009 | Отправлено: 08:30 27-06-2011

Evgeny972 Platinum Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору AKBA Цитата: Что можно сделать такое Написать нужную приблуду на VBA, сохраняемую в том же документе, и прикрутить кнопку Всего записей: 15511 | Зарегистр. 23-08-2002 | Отправлено: 08:47 27-06-2011

K_Ok_O_S Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Добавление пункта "Создать папку" в контекстное меню на первое место Помогите, пожалуйста, актуализировать этот твик. ( http://forum.oszone.net/post-1179019.html#post1179019 )   В конце строк пробелов нет. У меня Win XP sp3 home(пробовал и из-под админа и из-под юзера) - ни в рабочей системе, ни в виртуалке (XP SP3 Prof) не работает- в контекстном меню ничего не появляется. Если так вбить в консоли Код: wscript.exe YYYY_MM_DD.vbs -folder  то скрипт отрабатывает создание папки, но в контекстном меню опять-таки ничего не появляется. Кстати, я сохранял (в Блокноте)и в "ANSI" и в "Юникод"-кодировке. Разницы нет. А вот  при вызове скрипта, сохранённого в "UTF-8" выдаётся сообщение о нераспознанных символах в превой строке. В какой кодировке сохранять VBS-скрипт?   Цитата: Как работает:  Запускаем скрипт. В контекстном меню открытой папки на первом месте появляется пункт "Создать папку". Все, можно пользоваться. Чтобы удалить этот пункт, нужно еще раз запустить этот скрипт.   Код: Set WShell = CreateObject("WScript.Shell") ' Если скрипт запущен с параметром, то.. If WScript.Arguments.Count>0 Then     Randomize Timer     ' Запрашиваем имя папки. В качестве стандартного имени будет дата в формате YYYY_MM_DD     ' Проверяем, если число месяца или дня состоит из одного разряда, то добавляем перед ним ноль, иначе оставляем как есть     If Len(Month(Now))<2 Then tempMonth="0"&Month(Now) Else tempMonth=Month(Now)     If Len(Day(Now))<2 Then tempDay="0"&Day(Now) Else tempDay=Day(Now)     Name=InputBox("Имя папки:", "Создать папку", Year(Now)&"_"&tempMonth&" "&tempDay)     ' Если пользователь нажал кнопку Отмена, то выходим из скрипта     If Name="" Then WScript.Quit     ' Создаем папку с указанным именем     WShell.run "cmd /C md """&Name&"""", 0 Else ' Если скрипт запущен без параметров, то..     ' Если запись в реестре есть, то удаляем наш раздел     If WShell.Run("cmd.exe /C REG QUERY ""HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\Создать папку""", 0, True)=0 Then         WShell.Run "cmd /C REG DELETE ""HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\Создать папку"" /f", 0     Else         ' Иначе добавляем запись в реестр         ' Иконка папки         WShell.RegWrite "HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\Создать папку\Icon", "%SystemRoot%\System32\shell32.dll,3", "REG_SZ"         ' Ставим наш пункт в самый верх контекстного меню         WShell.RegWrite "HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\Создать папку\Position", "Top", "REG_SZ"         ' Прописываем действия, которые будут выполняться при клике по нашему пункту меню         WShell.RegWrite "HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\Создать папку\command\", "wscript.exe """&WScript.ScriptFullName&""" -folder", "REG_SZ"     End If End if   Всего записей: 445 | Зарегистр. 13-07-2007 | Отправлено: 15:50 01-07-2011 | Исправлено: K_Ok_O_S, 21:43 01-07-2011

NecroTYN Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Здравствуйте Господа программисты!!!   Очень нужна ваша помощь в следующем вопросе:   Есть база данных включающая в себя следующие таблицы: ... Заказы,клиенты,продукты....    Мне нужно чтобы при создании ЗАКАЗА автоматически создавалась группа папок в определенном месте диска (D:\Documents\Заказы\...), а имена этих папок создавались бы из определенных полей таблиц. Например:  после создания заказа должны появится папки по указанному пути с таким вот именем: D:\Documents\Заказы\ул.Красная\Сергеев\ где ул.Красная это адрес клиента, Сергеев это Фамилия клиента,  В папке "Сергеев" в свою очередь создаются папки (Стойка компьютерная,Стол письменный,Шкаф купе), имена которых берутся из подтаблицы "продукты" (в которой мы собственно и составляем заказ), каждая из которых   содержит в себе еще 4 папки с неизменными названиями(Замер,Модель,Раскрой,Эскизы,Документы)....     имя 1ой папки-берется из таблицы qdfOrders - Address   имя 2ой папки-берется из таблицы qdfMain - Client   имя 3ей папки-берется из таблицы tblOrdersProducts - Product   "третьих" папок должно создаваться столько, сколько заказано продуктов, за исключением услуг(которые кстати тоже находятся в таблице tblOrdersProducts), в каждой из них создаются следующие папки:     Замер Модель Раскрой Эскизы Документы   С нетерпением жду ответа Всего записей: 141 | Зарегистр. 22-04-2007 | Отправлено: 14:39 02-07-2011

Evgeny972 Platinum Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору NecroTYN Цитата: Мне нужно чтобы при создании ЗАКАЗА Ну такие задачи решаются средствами БД, а VBS к этому отношения не имеет. Всего записей: 15511 | Зарегистр. 23-08-2002 | Отправлено: 09:00 03-07-2011

NecroTYN Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Evgeny972 Цитата: Ну такие задачи решаются средствами БД, а VBS к этому отношения не имеет. Дело в том что, база данных находится в составе программы, вот ответ разрабов: Цитата: Вам надо написать файл-скрипт .VBS, который будет создавать папки в файловой системе, основываясь на переданные в него параметры. Далее нужно задать триггер на добавление на таблицу "Заказы", но в качестве команды указать не SQL-инструкцию, а запуск данного файла. Вот скрины настройки полей   Всего записей: 141 | Зарегистр. 22-04-2007 | Отправлено: 09:42 03-07-2011 | Исправлено: NecroTYN, 10:01 03-07-2011

Evgeny972 Platinum Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору NecroTYN Цитата: вот ответ разрабов Вот разрабов и третируйте об этой реализации через жопицу автогеном Всего записей: 15511 | Зарегистр. 23-08-2002 | Отправлено: 10:16 03-07-2011

NecroTYN Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Вот разрабов и третируйте об этой реализации через жопицу автогеном   Ага, на это мне вот так ответили:   Цитата: Вы можете обратиться с данной задачей к нашему ИТ-специалисту, который сделает вам все это "под ключ" в рамках платной услуги.     а БОЛЬШЕ им платить желания нет Всего записей: 141 | Зарегистр. 22-04-2007 | Отправлено: 10:21 03-07-2011 | Исправлено: NecroTYN, 10:22 03-07-2011

abz Хулиган Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Помогите создать скриптик такого характера. Качается фильм, к примеру, с рапиды, состоящий из кучи томов RAR архива. Один из томов скачался битым и лечится в winrar. Вылеченный том назвается fixed.имя файла.rar Мне нужно, чтобы скрипт переименовал файл с fixed. в файл без этой приставки и заменил этим файлом битый автоматически и без вопросов.   Добавлено: Лучше даже чтобы при запуске скрипта переименовывались все файлы папки с приставкой fixed. в такие же с перезаписью оригинальных. Так возможно? Всего записей: 14975 | Зарегистр. 04-11-2002 | Отправлено: 14:28 03-07-2011

Evgeny972 Platinum Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору abz Цитата: Лучше даже чтобы при запуске скрипта переименовывались все файлы папки с приставкой fixed. в такие же с перезаписью оригинальных. Так возможно? Окончательный вариант Код:   Option Explicit Dim FSO, cFolder, FilesSet, cFile, dFile, tStr Dim tFolder   Const fPrefix="fixed." Const fExt=".rar"   If (WScript.Arguments.Count<>1) Then   tFolder="." Else   tFolder=WScript.Arguments(0)   If (Right(tFolder, 1)="\") Then     tFolder = Left(tFolder, Len(tFolder)-1)   End If End If   Set FSO = CreateObject("Scripting.FileSystemObject") Set cFolder=FSO.GetFolder(tFolder) Set FilesSet = cFolder.Files   For Each cFile In FilesSet   tStr=cFile.Name   If (Left(LCase(tStr), Len(fPrefix))=fPrefix) And (Right(LCase(tStr), Len(fExt))=fExt) Then     tStr=Right(tStr, Len(tStr)-Len(fPrefix))     Set dFile = FSO.GetFile(tFolder & "\" & tStr)     dFile.Delete(True)     cFile.Name = tStr   End If Next   Set FSO = Nothing WScript.Quit   Сохраняем в файл CleanFixRar.vbs, например. Если просто запустить, поиск будет производиться в папке, где лежит скрипт. Если же создать шорткат CleanFixRar.vbs C:\Downloads, поиск будет производиться в папке C:\Downloads. Если путь содержит пробелы, параметр нужно «закавычить» — "C:\My Downloads" Кому нитересно, История Всего записей: 15511 | Зарегистр. 23-08-2002 | Отправлено: 17:30 03-07-2011 | Исправлено: Evgeny972, 15:27 05-07-2011

NecroTYN Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Всем Доброго дня   по поводу вышеизложенного вопроса создали вот такой вот код Цитата   Цитата: MakeDir.VBS qdfOrders.Address qdfMain.Client tblOrdersProducts.Product       MakeDir.VBS:     Код: Цитата: Set FSO = CreateObject("Scripting.FileSystemObject")   strPath="C:\Documents" If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath) strPath=strPath & "\Заказы" If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath) strPath=strPath &"\"& WScript.Arguments(0) If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath) strPath=strPath &"\"& WScript.Arguments(1) If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath) strPath=strPath &"\"& WScript.Arguments(2) If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath)       работает вот с таким результатом может подскажете что не так ???? Всего записей: 141 | Зарегистр. 22-04-2007 | Отправлено: 14:19 04-07-2011 | Исправлено: NecroTYN, 14:28 04-07-2011

Evgeny972 Platinum Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору NecroTYN Цитата: работает вот с таким результатом 1-е: То что ты пытаешься выложить недоступно 2-е: 100% могу сказать что работает он с таким результатом: <\Documents\ (0)>                                                                           +-<\Documents\Заказы\ (0)>                                                                   +-<\Documents\Заказы\qdfOrders.Address\ (0)>                                                 +-<\Documents\Заказы\qdfOrders.Address\qdfMain.Client\ (0)>                                   +-<\Documents\Заказы\qdfOrders.Address\qdfMain.Client\tblOrdersProducts.Product\ (0) т.е. делает точно то, что ты ему задал — имена папок. VBS сам по себе не полезет в вашу БД и не будет считывать оттуда значения полей. Всего записей: 15511 | Зарегистр. 23-08-2002 | Отправлено: 14:48 04-07-2011

NecroTYN Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: 1-е: То что ты пытаешься выложить недоступно Цитата: 2-е: 100% могу сказать что работает он с таким результатом:   <\Documents\ (0)>                                                                            +-<\Documents\Заказы\ (0)>                                                                      +-<\Documents\Заказы\qdfOrders.Address\ (0)>                                                    +-<\Documents\Заказы\qdfOrders.Address\qdfMain.Client\ (0)>                                    +-<\Documents\Заказы\qdfOrders.Address\qdfMain.Client\tblOrdersProducts.Product\ (0)   именно это я и пытался выложить       Добавлено: Может подскажете как правильно написать код ??? Всего записей: 141 | Зарегистр. 22-04-2007 | Отправлено: 15:04 04-07-2011

Evgeny972 Platinum Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору NecroTYN Я уже объяснял: без взаимодействия с БД ты ничего не напишешь. (Тем более с твоей квалификацией) Но вот вам направление: написать скрипт который только определяет количество переданных параметров и сохраняет их в текстовый файл и «задать триггер на добавление на таблицу "Заказы", но в качестве команды указать не SQL-инструкцию, а запуск данного файла.» (это уже в програме/БД) А далее тупо смотреть (анализировать ), что в скрипт передаётся Всего записей: 15511 | Зарегистр. 23-08-2002 | Отправлено: 16:48 04-07-2011

ComradG Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору как перевести код VBScript'а Код: On Error Resume Next        If WScript.Arguments.Count = 0 Then       WScript.Echo "Синтаксис: cscript [//nologo] tail.vbs [число, файл]."       WScript.Quit    End If        intLines = Int(WScript.Arguments.Item(0))    strFileName = WScript.Arguments.Item(1)        WScript.Echo Tail(intLines, strFileName)        Function Tail(intLines, strFileName)       Dim strFile, objFile, arrFile, intCount             Set objFSO = CreateObject("Scripting.FileSystemObject")       Set objFile = objFSO.OpenTextFile(strFileName)             strFile = objFile.ReadAll       arrFile = Split(strFile, vbCrLf)             For intCount = Ubound(arrFile) - (intLines - 1) To Ubound(arrFile)           Tail = Tail & arrFile(intCount) & vbCrLf       Next    End Function в JScript? пробовал использовать трюк, который канает в PowerShell'е - использовать ScriptControl: Код:  var vb = new ActiveXObject("MSScriptControl.ScriptControl"); vb.language = "VBScript"; vb.addcode('On Error Resume Next        If WScript.Arguments.Count = 0 Then       WScript.Echo "Синтаксис: cscript [//nologo] tail.vbs [число, файл]."       WScript.Quit    End If        intLines = Int(WScript.Arguments.Item(0))    strFileName = WScript.Arguments.Item(1)        WScript.Echo Tail(intLines, strFileName)        Function Tail(intLines, strFileName)       Dim strFile, objFile, arrFile, intCount             Set objFSO = CreateObject("Scripting.FileSystemObject")       Set objFile = objFSO.OpenTextFile(strFileName)             strFile = objFile.ReadAll       arrFile = Split(strFile, vbCrLf)             For intCount = Ubound(arrFile) - (intLines - 1) To Ubound(arrFile)           Tail = Tail & arrFile(intCount) & vbCrLf       Next    End Function'); но чего-то не канает зараза такая. погуглив нашел вот это, но разобраться без бутылки в написанном автором той статьи невозможно. короче, может кто знает как заставить VBScript код вызвать из JScript'а? просто странно, что код вроде: Код: var vb = new ActiveXObject("MSScriptControl.ScriptControl"); vb.language = "VBScript"; vb.addcode('MsgBox "Сообщение из VBScript!", 48, "Oops!"'); работает. или Код: var vb = new ActiveXObject("MSSCriptControl.ScriptControl"); vb.language = "VBScript"; vb.addcode('Function getInput() getInput = InputBox("Это инпутбокс, наберите в нем чего-нибудь", "Oops!") End Function'); var vbe = vb.eval("getInput"); также работает, а потому не совсем понимаю, во-первых, для чего писать враппер, во-вторых, почему обычная вставка кода не фурычит. Всего записей: 2038 | Зарегистр. 05-07-2008 | Отправлено: 23:03 09-07-2011 | Исправлено: ComradG, 23:08 09-07-2011

ComradG Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору smirnvlad ты - голова! спасибо!!! Всего записей: 2038 | Зарегистр. 05-07-2008 | Отправлено: 15:27 10-07-2011

NecroTYN Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору В общем составили мы вот такой вот код:   Код: Dim sDbPath 'путь к файлу БД sDbPath = CreateObject("Wscript.Shell").SpecialFolders("MyDocuments") & "\Учет клиентов\DemoDatabase.mdb"   Dim Con 'объект Connection Set Con = CreateObject("ADODB.Connection") 'создание объекта Connection Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDbPath & ";Persist Security Info=False" 'открываем соединение с базой данных   Dim sSql 'SQL инструкция sSql = "SELECT Top 1 p.ProductType FROM tblOrdersProducts op,tblProducts p WHERE op.Product=p.ProductName AND op.ID="& Mid   (WScript.Arguments(0),2) Set oRec = Con.Execute(sSql)  'выполняем SQL инструкцию If oRec.EOF Then WScript.Quit 'если продукта нет в справочнике, то выход   sType = oRec.Fields(0).Value  'тип товара If Left(sType,6)="Услуга" Then WScript.Quit 'если Услуга, то выход   sSql = "SELECT o.Address,m.Client,op.Product FROM tblOrdersProducts op,tblOrders o,tblMain m WHERE m.ID=o.ClientID AND     o.ID=op.OrderID AND op.ID="& Mid(WScript.Arguments(0),2) Set oRec = Con.Execute(sSql)  'выполняем SQL инструкцию   Dim FSO 'объект FileSystemObject Set FSO = CreateObject("Scripting.FileSystemObject")   Dim strPath 'путь к папке strPath="C:\Documents" If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath) strPath=strPath & "\Заказы" If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath) strPath=strPath &"\"& Replace(oRec.Fields(0).Value,"""","") If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath) strPath=strPath &"\"& Replace(oRec.Fields(1).Value,"""","") If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath) strPath=strPath &"\"& Replace(oRec.Fields(2).Value,"""","") If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath)   Con.Close 'закрываем Connection Set Con = Nothing 'очищаем переменную     При запуске пишет ошибку: --------------------------- Windows Script Host --------------------------- Сценарий:    C:\Program Files (x86)\ClientsCount\makedir.vbs Строка:    9 Символ:    1 Ошибка:    Индекс выходит за пределы допустимого диапазона Код:    800A0009 Источник:     Ошибка выполнения Microsoft VBScript   --------------------------- ОК     ---------------------------   Помогите исправить       Всего записей: 141 | Зарегистр. 22-04-2007 | Отправлено: 18:07 11-07-2011 | Исправлено: NecroTYN, 18:09 11-07-2011

Страницы: 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 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

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

ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование