Total Commander

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

hawk777
Каждую строку — в отдельный текстовый файл?

Avada
да, названия файлов не принципиальны. Можно такое сделать?

hawk777
Специалисты от праздничных хлопот отойдут — всю правду скажут. А я пока просто уточнил условия задачи, чтобы другим разбираться проще было. Ну и немножко заголовок темы заодно подправил.

2hawk777
Скрипт PowerPro подойдет? Строчек десять кода. Если нет, жди пока Batya не напишет vbs-скрипт, а Tol!k - батник.

Вахмурка
Скачал, лазил по ней, честно говоря непонятно как в ней файлы резать

hawk777

Код: Выделить всё

@echo off &chcp 1251 >nul
setlocal enableextensions
if "%~1"=="" (
echo Use: split-into-lines.cmd "any file.txt"
exit /b
)
set "l=1"
for /f "usebackq delims=" %%l in ("%~1") do (
set "line=%%l"
setlocal enabledelayedexpansion
set "n=!l!"
if !l! LSS 1000 set "n=0!l!"
if !l! LSS 100 set "n=00!l!"
if !l! LSS 10 set "n=000!l!"
echo !line!> "%~nx1.!n!"
title !l! &endlocal &set /a l+=1
)

Недостаток: пустые строки не увеличивают счётчик и файлы для них не создаются (собранный файл будет отличаться от исходного отсутствием пустых строк).

2hawk777
Кого скачал? Где лазил?

Вахмурка
скачал powerpro отсюда, лазил по powerpro, если Вы про нее написали

Tol!k
Большое спасибо, но как пользоваться Вашим кодом?

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

Код: Выделить всё

Dim fso, InFile, Cnt, Stroka, ts

Set fso = CreateObject("Scripting.FileSystemObject")
InFile = WScript.Arguments(0)
Set ts=fso.OpenTextFile(InFile,1)

Cnt=0
Do Until ts.AtEndOfStream
   Stroka=ts.ReadLine
   Set MyFile= fso.CreateTextFile(InFile & "." & CStr(Cnt), True)
   MyFile.WriteLine(stroka)
   MyFile.Close
   Cnt=Cnt+1
Loop

ts.Close
Set ts=Nothing
Set fso = Nothing

WScript.Quit

Сохранить в VBS-файл (например SplitByLine.vbs) и повесить на кнопку, в качестве ее параметров написать: ""%P%N"" (именно в двойных кавычках!). Нажимать кнопку, когда курсор на файле-истточнике.

NB Пустые строки считаются и файлы для них создаются. Если файл-источник в Unicode, то нужно будет изменить пару параметров.

hawk777 писал(а):как пользоваться Вашим кодом?

Сохранить код в текстовый файл с расширением .cmd (например split-into-lines.cmd)
Запускать из командной строки split-into-lines "твой файл.txt"
Или кнопкой

Код: Выделить всё

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\split-into-lines.cmd
%N
%COMMANDER_PATH%\WCMICONS.DLL,68
split-into-lines


-1

hawk777
Прелесть в том, что разбираться в PowerPro для исполнения ее скриптов совершенно не обязательно: достаточно ее установить и, возможно, выполнить несколько простейших требований по настройке. Примерно то же касается и батников, и vbs-скриптов.

То, что установил PowerPro - молодец, не сноси. Авось потом и втянешься.

Всем большое человеческое спасибо за помощь и советы, скрипт отVolniy работает как надо

Volniy писал(а):""%P%N"" (именно в двойных кавычках!)

А нафига вообще кавычки? Для конструкции %P%N TotalCommander сам при необходимости добавит кавычки.

Tol!k писал(а):%COMMANDER_PATH%\split-into-lines.cmd
%N

А вот здесь лучше добавить кавычки: "%N".

Tol!k писал(а):А вот здесь лучше добавить кавычки: "%N".

Хуже. По той же причине: "TotalCommander сам при необходимости добавит кавычки."
Кавычки нужны только для "%P" и "%T" без связки с %N и %M

Total Commander

Построчное разрезание TXT-файла

Построчное разрезание TXT-файла