» Задачи на bat-файлах 12

Цитата:

echo %%A>>ModifyedTextDocument.txt

Всё -таки лучше так писать:
>>ModifyedTextDocument.txt echo %%A

а то попадётся строка вида:
echo Dragon NaturallySpeaking home edition 2>>ModifyedTextDocument.txt

Цитата:

Просто добавить пустую строку после каждой строки документа, я правильно понял?

BorlandIMHO
Да ,правильно поняли.Большое спасибо ,всё прекрасно работает!

king_stiven
Спасибо и вам!

А как поступить в обратном направлении,т.е . поубирать пустые строки которые создались.Наверное через команду del.Только вот не знаю где её поставить

Linksach

Цитата:

Наверное через команду del.

Нет, надо просто также через цикл прогнать текст, он сам вырежет пустые строки:


Код: for /f "delims=" %%i in (test.txt) do >>out.txt echo %%i

YuS_two

Почему то не работает ни первый код ни второй

Linksach
Если подставить правильное наименование входного файла и положить этот файл рядом с батником, то он не может не работать...

YuS_two



Не работает!лежит рядом с батником.Названия файла дал ваше-test.txt
А выводит такое.Батник и файл текстовый в кодировке oem 866.Да хоть в какой кодировке всё равно выдаёт одно и то же
Вот выходной файл out.txt:

[more=подушка]ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
Helium Music Manager 2009
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
hello
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
Help & Manual
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
Hex Editor Neo
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
Hiren's BootCD
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
History Viewer
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
Hotspot Shield
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
HP iLO3 - iLO2 - iLO - LO100i
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
htm2chm
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
HTTP File Server (HFS)
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
HWiNFO32, HWiNFO64, HWiNFO for DOS
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
HxD
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
Hyena
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
i2- Analyst's Notebook, iBase, TextChart, etc.
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
IBExpert
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
Icaros Shell Extensions
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
ICE Book Reader Professional
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
Iceni Infix
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
ICQ 8 & ICQ Lite (2)
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
IDM UltraEdit - UltraEdit Mobil
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
Image Uploader ( ZendeN )
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
Imagus - Viewhance
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
ImDisk
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
ImgBurn
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
IMPOMEZIA Simple Chat
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
Indigo Rose AutoPlay Media Studio
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
Inkscape
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
Inno Setup XDELTA Patch Maker
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
InqSoft Sign 0f Misery - Neos0m
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
Internet Download Manager (IDM)
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
IObit Advanced SystemCare
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
IObit Malware Fighter
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
IObit SmartDefrag
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.
IObit Uninstaller
ђҐ¦Ё¬ ўлў®¤ Є®¬ -¤ - нЄа - (ECHO) ўЄ«озҐ-.

Что ещё не так.Запустите у себя -увидите

Вот мой файл test.txt:

Helium Music Manager 2009

hello

Help & Manual

Hex Editor Neo

Hiren's BootCD

History Viewer

Hotspot Shield

HP iLO3 - iLO2 - iLO - LO100i

htm2chm

HTTP File Server (HFS)

HWiNFO32, HWiNFO64, HWiNFO for DOS

HxD

Hyena

i2- Analyst's Notebook, iBase, TextChart, etc.

IBExpert

Icaros Shell Extensions

ICE Book Reader Professional

Iceni Infix

ICQ 8 & ICQ Lite (2)

IDM UltraEdit - UltraEdit Mobil

Image Uploader ( ZendeN )

Imagus - Viewhance

ImDisk

ImgBurn

IMPOMEZIA Simple Chat

Indigo Rose AutoPlay Media Studio

Inkscape

Inno Setup XDELTA Patch Maker

InqSoft Sign 0f Misery - Neos0m

Internet Download Manager (IDM)

IObit Advanced SystemCare

IObit Malware Fighter

IObit SmartDefrag

IObit Uninstaller [/more]





Добавлено:
Уважаемые знатоки форума!
Есть ещё задачка посложнее будет наверное.
Есть текстовый файл,(насчитывающий 12085 строк),со строками такого вида:
для примера некоторые строки:

Amarok 2.8.0 Мультимедиа/Аудио/6Проигрыватели

Amaze 10.0 Разработка/6 Авторские средства/Создание заставок

Amazing Slow Downer 3.5.4 Мультимедиа/Аудио/3 Редакторы аудио

Amiga Explorer 2007 Интернет/17 Удаленный доступ

AnetTest 1.0 Сети/3 Тестирование


Так вот задача состоит в том чтобы из названий программ из текстового файла создать папки с такими же названиями и поссортировать(переместить) по прежде созданным на диске D папкам,которые имеют такой вид ,например: Мультимедиа/Аудио/6 Проигрыватели.Т.е первая папка это- Мультимедия ,в ней находится папка -Аудио,а в Аудио папка-6 Проигрыватели.Нужно в последнюю папку 6 Проигрыватели и закинуть созданную из названия программы например папку Amarok 2.8.0.Такую задачу надо сделать для всех 12085 названий программ текстового файла поссортировав по нужным папкам все эти названия в виде папок
Пока всё!Заранее благодарю!

Linksach

Цитата:

А выводит такое.

А это значит, что предложенный батник для добавления пустых строк, после копирования с форума, Вы не почистили от конечных пробелов. Почитайте шапку, там примечание есть, красными буквами "Важно"...
Ну да ладно, всё равно, даже если строки непустые, а с пробелами, их тоже можно удалять, правда код уже будет немного другим.
Да, кстати, вот такая запись:

Код: for /f "delims=" %%i in ('type "in.txt"') do >>"test.txt" (echo %%i&&echo.)

YuS_two

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

Добавлено:
Да правда заработал код.Благодарю!Действительно как я и подумал- проблема была в текстовом файле-вроде названия располагались через пустую строку а начал удалять кнопкой Backspace назад то оказалось что надо было нажимать не один раз а два или три.Пробелов наверное было больше чем надо

Добавлено:
YuS_two


Цитата:

for /f "delims=" %%i in ('type "in.txt"') do >>"test.txt" (echo %%i&&echo.)

А этот ваш код тоже хорош-он делает то что я просил до этого-т.е добавляет пустую строку после каждого названия в текстовом документе.Спасибо за код!

Добавлено:

for /f "delims=" %%i in ('type "test.txt"') do >>"out.txt" (echo %%i&&echo.)

Правда я его немного подредактировал и работает лучше чем мне предложили ребята выше(не в обиду им).Там создаются лишнии пробелы при удалении через кнопку Backspace

Linksach

Цитата:

Там создаются лишнии пробел

Лишние пробелы там не создаются, если выполнить то, что написано в шапке.

Linksach

Цитата:

Есть текстовый файл,(насчитывающий 12085 строк),со строками такого вида

Чтобы выявить закономерности, необходим сам файл...


Цитата:

для примера некоторые строки:

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

YuS_two

как загрузить сюда текстовый файл

Пока так

http://rgho.st/private/6XnZgJNN4/3bee4198f1e3eb456b684139f7077e95


Разделы платная или бесплатная из текстового файла можно не включать никуда

Linksach

Цитата:

Пока так

Именно так и надо.

YuS_two
Цитата:

даже с лишними пробелами в конце, будет работать правильно, но это уже необязательные тонкости...

это обязательные тонкости и любой правильно написанный код буден индиферентным относительно хвостовых пробелов. Не расслабляй посетителей - пусть сразу привыкают использовать правильный код

Linksach
Цитата:

Правда я его немного подредактировал и работает лучше чем мне предложили ребята

приведи код - глянем что у тебя там за красивое решение...
И заодно есть такой тег [no][more=простынка]сюда помещаешь то что надо спрятать под простынку[/more][/no]
И в применении будет так [more=простынка]сюда помещаешь то что надо спрятать под простынку[/more]
Чтоб не плодить то ужас что ты накопипастил на предыдущей странице.

Jon_Dow

Спасибо,научили!!!

Linksach

Цитата:

Пока так

Мда... вот, такой результат:
1. Кодировка файла UTF8 с BOM и как следствие, в наличии символы, которые, при прямом использовании в наименовании каталогов, приведут к ошибке. В cmd лучше всего, чтобы не случилось накладок, использовать кодировку 866... ну, или, хотя бы 1251. Можно было бы сделать автоматическую перекодировку, прямо в cmd, но там есть особенности - она не всегда корректно перекодирует и кроме того, некоторые символы будут утеряны...
2. Закономерность в разделителях не постоянная. Можно было бы взять за основу наличие 2-х и более пробелов, но в некоторых местах присутствуют такие символы:

Код: "-N"
"без устан"

YuS_two

Спасибо что посмотрели файл!
Согласен что проблем много в текстовом файле
Думаю что должна быть кодировка 866 ибо много в файле русских названий
Из пункта 2 можно смело удалять всё лишнее
Кроме того надо удалить редактированием столбцом в Notepad+++ с помощью ALT и мыши столбец -платная или бесплатная ну и некоторые символы,которые будут мешать созданию папок думаю можно с помощью редактора Notepad++ или того же блокнота поменять например на тире или просто удалить
Насчёт столбцов тоже понял
Как будет больше свободного времени я подредактирую файл и выложу

Linksach

Цитата:

подредактирую файл

Ну, честно говоря, это вовсе необязательно... но если предполагается использовать именно сценарии cmd, то изначально лучше придерживаться существующих ограничений в спецсимволах и форматировании...
А так, можно ведь и напрямую с файлом работать, даже в таком варианте.
[more=Код сценария]
Код: @echo off
echo Старт программы:
rem Отметка старта программы в отдельном файле:
>startstop_bat.txt echo Start: %date% %time%

rem Задаем имя входного файла:
set "f_in=test.txt"
rem Задаем имя промежуточного файла:
set "f_cnvu=test-UTF8.txt"
rem Задаем имя файла в конечно кодировке 866:
set "f_cnvo=test-866.txt"
rem Указывем путь к каталогу, где будут создаваться подпапки:
set "dst=c:\TEMP\!11 33\DST1"

rem Проверяем существование каталога и если отсутствует, то создаем.
if not exist "%dst%\" md "%dst%"
if errorlevel 1 echo Error. Невозможно создать каталог %dst%&&pause&&exit

echo Добавляем разделители...
chcp 65001>nul
for /f "delims=" %%m in ('type "%f_in%"') do (
    set "st=%%m"
    setlocal enabledelayedexpansion
    set "st=!st:~0,60!$!st:~61,68!$!st:~130!"
    echo !st!>>tmp
    endlocal
)
chcp 866>nul
move /y tmp "%f_cnvu%">nul
echo Завершено добавление разделителей.
echo.
rem pause
echo.
echo Конвертируем кодировку...

rem =======
rem Блок перекодировки чистого cmd - при необходимости раскомментировать строки с двоеточиями ::
rem Перекодировка работает криво, большая вероятность ошибок в названиях папок...
::chcp 65001>nul
::cmd /d/u/c type "%f_in%">tmp
::chcp 1251>nul
::type tmp>"%f_in%"
::del tmp
rem =======

rem Конвертер кодировок из комплекта GnuWin32 http://gnuwin32.sourceforge.net/packages/libiconv.htm
rem Скачивать можно без установщика - "Binaries Zip" http://gnuwin32.sourceforge.net/downlinks/libiconv-bin-zip.php
iconv -c -s -f UTF-8 -t 866 "%f_cnvu%">"%f_cnvo%"
echo Конвертирование завершено.
echo.
rem pause
echo.
echo Преобразуем некоторые спецсимволы и создаем дерево каталогов...
rem Разделитель $ должен быть указан в delims второго цикла for:
for /f "delims=" %%i in ('type "%f_cnvo%"') do (
    set "str=%%i"
    setlocal enabledelayedexpansion
    set "str=!str:-N=!"
    set "str=!str:без устан=!"
    set "str=!str:"=!"
    set "str=!str::=;!"
    set "str=!str:$ =$!"
    set "str=!str:&=_AND_!"
    for /f "tokens=1,2 delims=$" %%k in ("!str!") do (
        endlocal
        set "mdir=%%l"&&set "name=%%k"
        setlocal enabledelayedexpansion
        set "mdir=!mdir:/=\!"
        set "mdir=!mdir: = !"
        set "mdir=!dst!\!mdir!"
        set "name=!name:\=-!"
        set "name=!name:/=-!"
        set "name=!name:?=#!"
        echo !name!|findstr /rc:"\*">nul&&(for /f "tokens=1-5,* delims=*" %%a in ("!name!") do set "name=%%a%%b%%c%%d%%e%%f")
        call :sp
        if not exist "!mdir!" md "!mdir!"
        if errorlevel 2 echo mdir="!mdir!"
        if not exist "!mdir!\!name!\" md "!mdir!\!name!"
        if errorlevel 2 echo name="!name!"
        endlocal
    )
)
rem Отметка завершения программы в отдельном файле:
>>startstop_bat.txt echo Stop: %date% %time%
rem Подчищаем за собой:
if exist "%f_cnvu%" del "%f_cnvu%"
if exist "%f_cnvo%" del "%f_cnvo%"
echo.
echo Программа завершена.
echo.
pause&&exit

:sp
if "!mdir:~-1!"==" " set "mdir=!mdir:~0,-1!"
if "!mdir:~-1!"==" " goto sp
:sp1
if "!name:~-1!"==" " set "name=!name:~0,-1!"
if "!name:~-1!"==" " goto sp1
exit /b

Вопроc такой:
Как перенести все файлы в подпапках на папку выше?
Уточняю: Там может быть много уровней влодженности.

Ответ: for /r "%~dp0" %%a in (.) do move "%%a\*" "%%a."

Pasha_ZZZ: спасибо, всё правильно.

Nikoderiko
Цитата:

for /r "%~dp0" %%a in (.) do move "%%a\*" "%%a."

но лучше сначала попробовать на чем-нибудь, например на копии

Pasha_ZZZ
А скрытые или системные?

Nikoderiko
Цитата:

Вопроc такой:
Как перенести все файлы в подпапках на папку выше?
Уточняю: Там может быть много уровней влодженности.

ответ не может быть столь очевиден - а обработку исключений кто делать будет:
- текущая папка - корень диска
- существует уже папка с таким именем как целевая папка
- существует файл с таким именем как целевая папка
и так далеее

Jon_Dow

Цитата:

и так далеее

Как-то так, возможно:

Код: @echo off
rem Корневой каталог. Файлы из корневого каталога не перемещаются.
set "src=d:\TEMP\!temp"
if not exist "%src%\" echo Error. Not exist %src%&&pause&&exit
for /f "delims=" %%i in ('dir /s/b/ad "%src%"') do (set "fold=%%~i"&&call :files)
pause&&exit
:files
cd /d "%fold%"
cd ..
set "m_fold=%cd%"
cd /d "%fold%"
for /f "delims=" %%a in ('dir /b/a-d "%fold%"') do (
    set "f_file=%%~dpnxa"
    set "n_file=%%a"
    call :mov
)
exit /b
:mov
if exist "%m_fold%\%n_file%\" (
    echo Error!!!
    echo "%n_file%" - такое наименование уже присвоено подпапке в папке "%m_fold%"
    echo Файл "%f_file%" не подлежит перемещению.
    exit /b
)
for /f "delims=" %%b in ('attrib "%f_file%"') do set "att=%%b"
attrib -s -h "%f_file%"
rem Перемещаемые файлы, при сопадении имени с файлом в целевом каталоге, замещают его.
move /y "%f_file%" "%m_fold%\" >NUL
set "att=%att:~3,2%"
set "att=%att:S=+S %"
set "att=%att:H=+H %"
if "%att%" neq " " attrib "%m_fold%\%n_file%" %att%
exit /b

YuS_two

Не знаю как вас благодарить-вы меня очень выручили!Всех благ вам в жизни!Я проверил пока скрипт,созданный в Powershell.Ваш скрипт в Powershel это супер!!!!! Я правда немного подредактировал потом свой текстовый файл,исправил ошибки в тексте чтоб правильно создались подпапки(чтоб не было отсутствующих папок),добавил инфу о пропущеных мною в текс документе папках
КОМУ надо исправленный файл он [more=здесь]http://rgho.st/private/79y9498VP/fc47bd965f878fed70b1691aeb389905[/more]

Вот как выполнялся скрипт
Код: Days : 0
Hours : 0
Minutes : 0
Seconds : 44
Milliseconds : 960
Ticks : 449605233
TotalDays : 0,000520376427083333
TotalHours : 0,01248903425
TotalMinutes : 0,749342055
TotalSeconds : 44,9605233
TotalMilliseconds : 44960,5233

Linksach

Цитата:

Почему мой график выполнения скрипта отличается от вашего что выложен выше

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

YuS_two

А вот запустил другой ваш скрипт и пока не работает.Показывает это после секунд 30-ти от начала старта

http://uploads.ru/HpLGE.jpg

И после нажатия -никакие каталоги с папками не создаются

Linksach

Цитата:

другой ваш скрипт и пока не работает.

Необходима вот эта программа-перекодировщик:

Код: rem Конвертер кодировок из комплекта GnuWin32 http://gnuwin32.sourceforge.net/packages/libiconv.htm
rem Скачивать можно без установщика - "Binaries Zip" http://gnuwin32.sourceforge.net/downlinks/libiconv-bin-zip.php

YuS_two


Цитата:

Необходима вот эта программа-перекодировщик: Код: rem Конвертер кодировок из комплекта GnuWin32 http://gnuwin32.sourceforge.net/packages/libiconv.htm   rem Скачивать можно без установщика - "Binaries  Zip" http://gnuwin32.sourceforge.net/downlinks/libiconv-bin-zip.php

Да я вроде её и использовал и не знаю почему не работает

Linksach
На Вашем скрине:

Видно, что сценарий не находит программу "iconv".
Для того, чтобы она заработала, iconv.exe должен находиться либо рядом с батником, либо по одному из путей, прописанных в системной переменной PATH - дайте команду:

Код: echo %path%

YuS_two

Цитата:

echo %path%

Лучше

Код: set path

GCRaistlin

Цитата:

Лучше

Код: set path