Войти

Показать полную графическую версию : Бат на удаление - вставление текста

Страниц : 1 2 [3]
Iska
19-08-2014, 14:17
меня не устраивает мне нужно все в одном »
переходите на WSH/PoSH и просто создавайте его (ярлык). »
Hancog
19-08-2014, 14:35
\del
Iska
19-08-2014, 14:47
CreateShortcut Method (http://msdn.microsoft.com/en-us/library/xsy6k3ys(v=vs.84).aspx)
How to create a desktop shortcut with the Windows Script Host (http://support.microsoft.com/kb/244677/en-us)
Сценарий Create shortcut in your desktop (http://gallery.technet.microsoft.com/scriptcenter/Create-shortcut-in-your-11cfd3de)
Hancog
19-08-2014, 14:52
\del
Iska
19-08-2014, 15:46
а где тут текст что бы можно было всунуть »
Какой текст, и куда «всунуть»?
Hancog
19-08-2014, 15:56
\del
Iska
19-08-2014, 16:26
Hancog, работать с матрёшками из пакетных файлов, WSH, HTA и бинарного кода, «всунутого» как текст — это уже без меня.
Hancog
19-08-2014, 16:30
\del
Iska
19-08-2014, 16:39
Невозможно дать корректный ответ на некорректно поставленный вопрос.
Hancog
19-08-2014, 17:10
\del
Hancog
19-08-2014, 22:04
Невозможно дать корректный ответ на некорректно поставленный вопрос. »
По моему выше дал конкретнее некуда ))
Hancog
21-08-2014, 19:36
#####################################
Здесь
расположен
Ваш 7-ой текст!
#####################################
Здесь
расположен
Ваш 8-ой текст!
#####################################
Здесь
расположен
Ваш 9-ый текст!
#####################################
:#
set quantity=9
for %%i in (
"D:\Work\87\~ ~\1.txt"
"D:\Work\87\~ ~\2.txt"
"D:\Work\87\~ ~\3.txt"
"D:\Work\87\~ ~\4.txt"
"D:\Work\87\~ ~\5.txt"
"D:\Work\87\~ ~\6.txt"
"D:\Work\87\~ ~\7.txt"
"D:\Work\87\~ ~\8.txt"
"D:\Work\87\~ ~\9.txt"
) do (
set /a count+=1
call set %%count%%=%%i
)
for /l %%i in (1 1 %quantity%) do (
set /p="WScript.Echo(Split(WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile("%~fs0").ReadAll(), vbCrLf&"#####################################"&vbCrLf)(%%i))"<nul>.vbs
for /f "delims=" %%j in ('
call echo %%%%i%%
') do ( »


Georgio Еще спросить хотел можно ли добавить к всем файлам их запуск после создания,т.е что бы вот файл создался и сразу запустился,не для всех файлов нужен запуск,просто если к примеру я после всего bat пишу "D:\Work\87\~ ~\1.txt файл открывается,но только после того как все остальные создадутся,а нужно сразу
Georgio
21-08-2014, 22:00
Еще спросить хотел можно ли добавить к всем файлам их запуск после создания,т.е что бы вот файл создался и сразу запустился,не для всех файлов нужен запуск »

@echo off
goto:#

#####################################
Здесь
расположен
Ваш 1-ый текст!
#####################################
Здесь
расположен
Ваш 2-ой текст!
#####################################
Здесь
расположен
Ваш 3-ий текст!
#####################################
Здесь
расположен
Ваш 4-ый текст!
#####################################
Здесь
расположен
Ваш 5-ый текст!
#####################################
Здесь
расположен
Ваш 6-ой текст!
#####################################
Здесь
расположен
Ваш 7-ой текст!
#####################################
Здесь
расположен
Ваш 8-ой текст!
#####################################
Здесь
расположен
Ваш 9-ый текст!
#####################################

:#
set quantity=9
for %%i in (
"D:\Work\109\1.txt/start"
"D:\Work\109\2.txt"
"D:\Work\109\3.txt"
"D:\Work\109\4.txt"
"D:\Work\109\5.txt/start"
"D:\Work\109\6.txt"
"D:\Work\109\7.txt"
"D:\Work\109\8.txt"
"D:\Work\109\9.txt/start"
) do (
set /a count+=1
call set %%count%%=%%i
)

for /l %%i in (1 1 %quantity%) do (
set /p="WScript.StdOut.Write(Split(WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile("%~fs0").ReadAll(), vbCrLf&"#####################################"&vbCrLf)(%%i))"<nul>.vbs
for /f "tokens=1,2 delims=/" %%j in ('
"call set /p=%%%%i%%<nul"
') do (
cscript //nologo .vbs>"%%j"
if not "%%k"=="" (
start "" notepad "%%j"
)
)
)
del .vbs

exit /b
Hancog
21-08-2014, 22:28
@echo off
goto:#
#####################################
Здесь
расположен
Ваш 1-ый текст!
#####################################
Здесь
расположен
Ваш 2-ой текст!
#####################################
Здесь
расположен
Ваш 3-ий текст!
#####################################
Здесь
расположен
Ваш 4-ый текст!
#####################################
Здесь
расположен
Ваш 5-ый текст!
#####################################
Здесь
расположен
Ваш 6-ой текст!
#####################################
Здесь
расположен
Ваш 7-ой текст!
#####################################
Здесь
расположен
Ваш 8-ой текст!
#####################################
Здесь
расположен
Ваш 9-ый текст!
#####################################
:#
set quantity=9
for %%i in (
"D:\Work\109\1.txt/start"
"D:\Work\109\2.txt"
"D:\Work\109\3.txt"
"D:\Work\109\4.txt"
"D:\Work\109\5.txt/start"
"D:\Work\109\6.txt"
"D:\Work\109\7.txt"
"D:\Work\109\8.txt"
"D:\Work\109\9.txt/start"
) do (
set /a count+=1
call set %%count%%=%%i
)
for /l %%i in (1 1 %quantity%) do (
set /p="WScript.StdOut.Write(Split(WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile("%~fs0").ReadAll(), vbCrLf&"#####################################"&vbCrLf)(%%i))"<nul>.vbs
for /f "tokens=1,2 delims=/" %%j in ('
"call set /p=%%%%i%%<nul"
') do (
cscript //nologo .vbs>"%%j"
if not "%%k"=="" (
start "" notepad "%%j"
)
)
)
del .vbs
exit /b »

А как сделать что бы он открывался чем стоит в системе,к примеру вот у меня первый текст (файл) это .wsh скрипт,а он открывается как текстовой документ
Georgio
22-08-2014, 01:06
А как сделать что бы он открывался чем стоит в системе »



@echo off
goto:#


#####################################
Здесь
расположен
Ваш 1-ый текст!
#####################################
Здесь
расположен
Ваш 2-ой текст!
#####################################
Здесь
расположен
Ваш 3-ий текст!
#####################################
Здесь
расположен
Ваш 4-ый текст!
#####################################
Здесь
расположен
Ваш 5-ый текст!
#####################################
Здесь
расположен
Ваш 6-ой текст!
#####################################
Здесь
расположен
Ваш 7-ой текст!
#####################################
Здесь
расположен
Ваш 8-ой текст!
#####################################
Здесь
расположен
Ваш 9-ый текст!
#####################################


:#

for %%i in (
"D:\Work\110\1.txt/start"
"D:\Work\110\2.txt"
"D:\Work\110\3.txt"
"D:\Work\110\4.txt"
"D:\Work\110\5.txt/start"
"D:\Work\110\6.txt"
"D:\Work\110\7.txt"
"D:\Work\110\8.txt"
"D:\Work\110\9.txt/start"
) do (
set /a count+=1
call set %%count%%=%%i
)

for /f %%i in ('
"findstr /x ##################################### "%~fs0"| find /c /v """
') do (
for /f %%j in ('
set /a %%i-1
') do (
for /l %%k in (1 1 %%j) do (
set /p="WScript.StdOut.Write(Split(WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile("%~fs0").ReadAll(), vbCrLf&"#####################################"&vbCrLf)(%%k))"<nul>.vbs
for /f "tokens=1,2 delims=/" %%l in ('
"call set /p=%%%%k%%<nul"
') do (
rem "if defined %%k" is not the mistake.
if defined %%k (
cscript //nologo .vbs>"%%l"
)
if "%%m"=="start" (
start "" "%%l"
)
)
)
)
)
del .vbs

exit /b
Hancog
22-08-2014, 16:02
Последние извиняюсь что каждый раз тревожу,а как сделать так что если путь к примеру D:\Work\110\1.txt нету он сам создавал,ну т.е папки что бы сами создавались,что бы их не нужно было вручную создавать
И да еще что бы он запускался с любой папки,просто к примеру если сам bat лежит не в деректории D:\Work\110 ,а на рабочем столе,и его запустить не чего не произойдет,все работает только если батник в той дирректории где нужно



© OSzone.net 2001-2012