[amel27]

надо просто скопировать нужные файлы в базы »

ну смотри, мое дело предупредить:

Код:

@echo off
SetLocal EnableDelayedExpansion

Set KEY="HKCU\Software\1C\1Cv7\7.7\Titles"

For /F "Tokens=1,3 Delims=	" %%i In ('Reg Query %KEY% /s^|Find "REG_SZ"') do (
	Set $PATH=%%i
	Set $NAME=%%j

	@echo.
	@echo Путь  к  файлам:!$PATH:~4!
	@echo Имя базы данных:!$NAME!
)

[mitiya]

проблема с кракозяброй решается просто командой
CHCP 1251

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

[amel27]

проблема с кракозяброй решается просто командой CHCP 1251 »

от текста на экране толку мало, главное чтобы команда дальнейшей обработки поняла кодировку

это что-то типа массива что ли ? »

нет, это лишь построчный разбор входного текста и вывод на экран в цикле с промежуточным сохранением в переменных, а разве нужно что-то другое?

[hasherfrog]

mitiya,
но только я если честно не совсем понял что тут с переменными

Дык и мы тоже не очень поняли, чего Вы хотите получить в итоге... :]

[mitiya]

В итоге хотелось получить переменные вида :
path1=D:\1c\conf\proekt\
name1=proekt

path2=D:\1c\conf\torg\DemoDB\
name2=Конфигурация "Торговля+Склад" Демо

и т.д.

чтоб потом в эти пути и копировать нужные файлы

[amel27]

хотелось получить переменные вида »

гм, не вижу в этом смысла... впрочем, вам видней

Код:

@echo off
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%
EXIT

:DISPLAY
	Set $iNUM=%1
:LOOP
	@echo.
	@echo $PATH%$iNUM%=!$PATH%$iNUM%!
	@echo $NAME%$iNUM%=!$NAME%$iNUM%!
	
	Set /A $iNUM-=1
	If %$iNUM% GTR 0 GOTO :LOOP
	GOTO :EOF
)

[mitiya]

вот что у меня получилось .

Там внизу где :

echo Выберете базу

set /p base=

set pathh=dpath%base%

echo %pathh%

Я пытаюсь сделать что нажав циферку 1 (к примеру) переменная pathh получила значение из переменной dpath1 , я так понял что переменные в переменные вкладывать нельзя , думаю что бы предпринять

Код:

срсз 1251

if exist "___p1.tmp" del "___p1.tmp"
if exist "___n1.tmp" del "___n1.tmp"

SetLocal EnableDelayedExpansion

Set KEY="HKCU\Software\1C\1Cv7\7.7\Titles"

For /F "Tokens=1,3 Delims=	" %%i In ('Reg Query %KEY% /s^|Find "REG_SZ"') do (
	Set $PATH=%%i
	Set $NAME=%%j

	@echo.
	@echo !$PATH:~4!>> ___p1.tmp
	@echo !$NAME!>> ___n1.tmp
)


SET N=0
for /f "tokens=* eol=" %%A in (___p1.tmp) do SET /A N+=1

set i=0
:again

if "%I%" == "%N%" goto x1

if exist "___p2.tmp" del "___p2.tmp"

if "%I%" == "0" (
  for /f "tokens=* eol=" %%A in (___p1.tmp) do (
    if not exist "___p2.tmp" ( 
      Set C=%%A
      echo "" > ___p2.tmp
    )
  )
) else (
 for /f "skip=%I% tokens=* eol=" %%A in (___p1.tmp) do ( 
    if not exist "___p2.tmp" ( 
      Set C=%%A
      echo "" > ___p2.tmp
    )
  )
)

set /A I+=1
SET dpath%I%=%C%
goto again 





:x1
SET N=0
for /f "tokens=* eol=" %%A in (___n1.tmp) do SET /A N+=1

set i=0
:again2

if "%I%" == "%N%" goto end

if exist "___n2.tmp" del "___n2.tmp"

if "%I%" == "0" (
  for /f "tokens=* eol=" %%A in (___n1.tmp) do (
    if not exist "___n2.tmp" ( 
      Set C=%%A
      echo "" > ___n2.tmp
    )
  )
) else (
 for /f "skip=%I% tokens=* eol=" %%A in (___n1.tmp) do ( 
    if not exist "___n2.tmp" ( 
      Set C=%%A
      echo "" > ___n2.tmp
    )
  )
)

set /A I+=1
SET dname%I%=%C%
goto again2 





:end

del ___n1.tmp
del ___n2.tmp


del ___p1.tmp
del ___p2.tmp



cls
echo ____________________
echo #  Всего баз : %N% 
echo ____________________
echo #    Список баз :  #
echo #__________________#



set | find "dname"

echo Выберете базу 

set /p base=

set pathh=dpath%base%

echo %pathh%

pause









:ditect

[amel27]

я так понял что переменные в переменные вкладывать нельзя »

можно, один из вариантов применил в двух последних примерах (!VAR1%VAR2%!)

вот что у меня получилось »

у вас работает?... у меня нет, зато работает вот это:

Код:

@Echo off
SetLocal EnableDelayedExpansion

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

CHCP 1251 >nul
If Exist %~dpn0.tmp DEL /F/Q %~dpn0.tmp

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

	CMD /U/C @Echo !$iMAX!: %%j>>%~dpn0.tmp
)

CHCP 866 >nul
CALL :DISPLAY

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

PAUSE
EXIT


:DISPLAY
:---
CLS
Echo ____________________
Echo  Всего баз : %$iMAX% 
Echo ____________________
Echo  Список баз:
Echo. 
For /F "Skip=2 Delims=" %%i IN ('CMD /U/C Find /V "ЭТОГО В ТЕКСТЕ НЕ ДОЛЖНО БЫТЬ" %~dpn0.tmp') Do Echo %%i
Echo. 

GOTO :EOF

З.Ы. От русских букв в "пути" придется все-таки отказаться (имхо это проще чем наворачивать скрипт)

[mitiya]

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

вот рабочий код :

Код:

@echo off

set templ=c:\
set home=%cd%

set chcp1=1251

chcp %chcp1%




if exist "%templ%___p1.tmp" del "%templ%___p1.tmp"
if exist "%templ%___n1.tmp" del "%templ%___n1.tmp"

SetLocal EnableDelayedExpansion

Set KEY="HKCU\Software\1C\1Cv7\7.7\Titles"

For /F "Tokens=1,3 Delims=	" %%i In ('Reg Query %KEY% /s^|Find "REG_SZ"') do (
	Set $PATH=%%i
	Set $NAME=%%j

	@echo.
	@echo !$PATH:~4!>> %templ%___p1.tmp
	@echo !$NAME!>> %templ%___n1.tmp
)


SET N=0
for /f "tokens=* eol=" %%A in (%templ%___p1.tmp) do SET /A N+=1

set i=0
:again

if "%I%" == "%N%" goto x1

if exist "%templ%___p2.tmp" del "%templ%___p2.tmp"

if "%I%" == "0" (
  for /f "tokens=* eol=" %%A in (%templ%___p1.tmp) do (
    if not exist "%templ%___p2.tmp" ( 
      Set C=%%A
      echo "" > %templ%___p2.tmp
    )
  )
) else (
 for /f "skip=%I% tokens=* eol=" %%A in (%templ%___p1.tmp) do ( 
    if not exist "%templ%___p2.tmp" ( 
      Set C=%%A
      echo "" > %templ%___p2.tmp
    )
  )
)

set /A I+=1
SET dpath%I%=%C%
goto again 





:x1
SET N=0
for /f "tokens=* eol=" %%A in (%templ%___n1.tmp) do SET /A N+=1

set i=0
:again2

if "%I%" == "%N%" goto end

if exist "%templ%___n2.tmp" del "%templ%___n2.tmp"

if "%I%" == "0" (
  for /f "tokens=* eol=" %%A in (%templ%___n1.tmp) do (
    if not exist "%templ%___n2.tmp" ( 
      Set C=%%A
      echo "" > %templ%___n2.tmp
    )
  )
) else (
 for /f "skip=%I% tokens=* eol=" %%A in (%templ%___n1.tmp) do ( 
    if not exist "%templ%___n2.tmp" ( 
      Set C=%%A
      echo "" > %templ%___n2.tmp
    )
  )
)

set /A I+=1
SET dname%I%=%C%
goto again2 





:end

del %templ%___n1.tmp
del %templ%___n2.tmp


del %templ%___p1.tmp
del %templ%___p2.tmp



cls
echo #------------------#
echo #  Всего баз : %N% 
echo #------------------#
echo #    Список баз :  #
echo #------------------#
echo -
echo 0=Отменить установку


set | find "dname"

echo Выберете базу 

set /p base=

if %base% LSS 1 (
set mes=Установка отменена
goto off
)

if %base% GTR %N% (
set mes=Выбрана неверная база
goto off
)



set pathh=!dpath%base%!

echo %pathh%

:ditect

find /i "Бухгалтерия" "%pathh%Release.txt"
if not %errorlevel%==0 goto off
find /i "Упрощенная система налогообложения" "%pathh%Release.txt"
if %errorlevel%==0 goto usn
find /i "Бухгалтерия для бюджетных учреждений" "%pathh%Release.txt"
if %errorlevel%==0 goto budg
goto gener


:gener
echo Общая
set vid=General
goto ystan

:usn
echo УСН
set vid=Usn
goto ystan

:budg
echo для бюджетных учреждений
set vid=budget
goto ystan


:off
cls
echo %mes%.
pause
exit

:ystan

cd /d reporting
for /D %%j in (*) do (

	echo %%j

	mkdir "%pathh%ExtForms\%%j"

	copy "%home%\reporting\%%j\%vid%\Forms.new\*.exe" "%pathh%ExtForms\%%j"
	copy "%home%\reporting\%%j\%vid%\Forms.new\ver.id" "%pathh%ExtForms\%%j"


	cd /d "%pathh%ExtForms\%%j"

	del /q SETUP_BARCODELIB.EXE

	for %%i in (*.exe) do echo y | %%i

	del *.exe
)



start %home%\fontinst.exe
set mes=Установка успешно завершена

goto off

[amel27]

руские буквы отображаются кракозяброй, но копируется все правельно »

гм... интересно, вот этот код вроде работает и без файлов... почему пока сам не понял

Код:

@Echo off
SetLocal EnableDelayedExpansion

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

CHCP 1251 >nul
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!
)
Set $PATH=
CHCP 866 >nul

CALL :DISPLAY %$iMAX%

Echo. 
Set /P $iBase=Выберите базу: 
Echo Путь к выбранной базе : "!$PATH%$iBase%!"

Echo. 
PAUSE

Rem Copy *.CMD !$PATH%$iBase%!
EXIT

:DISPLAY
	CLS
	Echo ____________________
	Echo  Всего баз : %1 
	Echo ____________________
	Echo  Список баз:
	Echo. 
	Set $iNUM=1
:LOOP
	Echo %$iNUM%: !$NAME%$iNUM%!
	
	Set /A $iNUM+=1
	If %$iNUM% LEQ %$iMAX% GOTO :LOOP
GOTO :EOF