Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Помогите написать аналог моего батника на VBS

Ответить
Настройки темы
VBS/WSH/JS - Помогите написать аналог моего батника на VBS

Старожил


Сообщения: 440
Благодарности: 12

Профиль | Отправить PM | Цитировать


Написал себе батник для открытия в тотал командере папок с базами для 1с7

Код: Выделить весь код
@echo off

CHCP 1251 >nul

set home=%~dp0
set totexe=%home%\..\TOTALCMD.EXE

SetLocal EnableDelayedExpansion

Set $RKEY="HKCU\Software\1C\1Cv7\7.7\Titles"
Set $iMAX=0


For /F "Tokens=1,3 Delims=	" %%i In ('Reg Query %$RKEY% /s^|Find "REG_SZ"') Do (
	Set /A $iMAX +=1
	Set $PATH=%%i
	Set $NAME!$iMAX!=%%j
	Set $PATH!$iMAX!=!$PATH:~4!
)


CALL :DISPLAY %$iMAX%

Echo Выберите базу: 
Set /P $iBase=
%totexe% /o /L="!$PATH%$iBase%!"

exit

:DISPLAY
	set $b=%1
	CLS
	Echo #------------------------------
	Echo #  Всего баз : %1 
	Echo #------------------------------
	Echo.
	Echo # Список баз:
	Set $iNUM=1
	echo -------------------------------
:LOOP
	Echo %$iNUM%: !$NAME%$iNUM%!  
	Echo path: !$PATH%$iNUM%!
	echo -------------------------------
	Set /A $iNUM+=1
	If %$iNUM% LEQ %$iMAX% GOTO :LOOP
GOTO :EOF
но тут для выбора базы нужно нажимать цифру на клавиатуре, что не очень удобно.
Я не спец в vbs, но на сколько я понимаю там можно создавать визуальный интерфейс.
Собственно мне бы нужно чтоб появился какой-то с список с кнопками или чем то в чем выбор можно сделать с помощью мыши.

Отправлено: 16:32, 21-08-2009

 

Ветеран


Сообщения: 3806
Благодарности: 824

Профиль | Отправить PM | Цитировать


логичнее сразу в hta писать

Отправлено: 22:16, 21-08-2009 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Старожил


Сообщения: 440
Благодарности: 12

Профиль | Отправить PM | Цитировать


hta дак hta , я не того ни другого не знаю

Отправлено: 00:24, 22-08-2009 | #3


Ветеран


Contributor


Сообщения: 2708
Благодарности: 1684

Профиль | Отправить PM | Цитировать


Попробуйте сформулировать задачу с самого начала, чтобы не вчитываться в Ваш батник. Вам в папке надо открыть (чем?) файлы. Все файлы (допустим по маске)? или, как вариант решения, выдать запрос, открывать файл или нет из списка, полученного по маске?

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Отправлено: 20:57, 25-08-2009 | #4


Старожил


Сообщения: 440
Благодарности: 12

Профиль | Отправить PM | Цитировать


megaloman,

Задача собственно вот в чем :

Вывести список баз 1с7, так чтоб можно было выбрать .
После выбора скрипт передает этот путь тоталкомандеру с помошь его ключей TOTALCMD.EXE /o /L="%path%"
В моем скрипте выбор осуществляется нажатием цифры на клавиатуре , а мне бы хотелось нажимать на кнопки мышкой.

Сами пути к базам берутся из реестра.

Отправлено: 16:21, 29-08-2009 | #5



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Помогите написать аналог моего батника на VBS

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
VBS/WSH/JS - [решено] Помогите подправить скрипт VBS Pozia Скриптовые языки администрирования Windows 37 09-04-2010 13:33
VBS/WSH/JS - Помогите русифицироват *.vbs скрипт nod201 Скриптовые языки администрирования Windows 3 07-12-2009 10:53
VBS/WSH/JS - Помогите редактировать Autorun_Disable.vbs на Autorun_Enable.vbs nod201 Скриптовые языки администрирования Windows 0 05-12-2009 05:44
FreeBSD - аналог батника на FreeBSD???? went Общий по FreeBSD 8 13-05-2008 15:48
Помогите Batник написать. kda12 Microsoft Windows NT/2000/2003 10 10-05-2006 23:34




 
Переход