[решено] Удалить все знаки в строке после ;

[hxygen]

Есть текст, который нужно привести в надлежащий вид, для этого нужно удалить все знаки после ; т.е. неудаляем;не удаляем;здесь удаляем весь текст после ; и точку с запятой тоже. Возможно ли такое?
Заранее спасибо.

[El Sanchez]

hxygen,

@Echo Off
Set Source=C:\Source\test.txt

For /F "Tokens=1,2 Delims=;" %%A In ('Type "%Source%"') Do Echo %%A;%%B>>"%Temp%\_tmp"
Move /Y "%Temp%\_tmp" "%Source%"

[Busla]

Для того чтобы привести текст в наждежащий вид не обязательно пользоваться исключительно cmd-скриптами. WSH и PS более полноценно работают с файлами и текстом. Ну и множество текстовых редактором позворяет производить массовые поиск, замену и т.п.

Регулярными выражениями это запишется примерно как замена
(^.*);[^;]*
на
\1

El Sanchez, For поделит по первому знаку-разделителю, а hxygen'у, судя по примеру, требуется убирать всё, что после последнего. Ко всему прочему надо было просто echo %%A, а в таком виде файл не меняется.

[amel27]

вариант на AWK (http://gnuwin32.sourceforge.net/packages/gawk.htm):
awk "{gsub(/;[^;]*$/,\"\");print}" 1.txt >2.txt
вариант на SED (http://gnuwin32.sourceforge.net/packages/sed.htm):
sed "s/;[^;]*$//g" 1.txt >2.txt

P.S. некоторые сборки SED могут некорректно обрабатывать переносы строк, заменяя CRLF -> LF

[amel27]

до кучи, вариант штатными средствами (увы, только посимвольно):
@echo off

SETLOCAL DisableDelayedExpansion
(for /f "usebackq delims=" %%l in ("1.txt") do (set "$l=%%l"
SETLOCAL EnableDelayedExpansion
set $l|find ";">nul&& call :TRIM
echo.!$l!
ENDLOCAL
)) >2.txt
ENDLOCAL& EXIT

:TRIM
set "$c=!$l:~-1!"& set "$l=!$l:~,-1!"
if not "!$c!"==";" goto TRIM
GoTo :EOF

[hxygen]

Спасибо всем, но amel27 отдельное мерси =) Awk не первый раз выручает.

[El Sanchez]

Вдогонку...:)
Busla,
т.е. неудаляем;не удаляем;здесь удаляем весь текст после ; и точку с запятой тоже »
Я понял это как строки вида aaa;bbb;ccc переделать в aaa;bbb

hxygen, ну а если нужна рекурсия,то

@Echo Off
Set Source=C:\Source\test.txt

SetLocal EnableDelayedExpansion
For /F "Tokens=1* Delims=;" %%A In ('Type "%Source%"') Do Call :Func "%%A" "%%B"
Move /Y "%Temp%\_tmp" "%Source%"
EndLocal
GoTo :EOF

:Func
If "!Str!"=="" (Set Str=%~1) Else (Set Str=!Str!;%~1)
Echo.%~2|Find ";" 1>nul&&(For /F "Tokens=1* Delims=;" %%A in (%2) Do Call :Func "%%A" "%%B")||(If Not "!Str!"=="" Echo.!Str!>>"%Temp%\_tmp"&Set Str=)


Ограничения: пустые строки удаляются; строка не должна содержать символ "!", иначе будут "сюрпризы"

[amel27]

ну а если нужна рекурсия »
интересный подход, вариация на ту же тему, но без рекурсии:
@Echo Off
SetLocal EnableDelayedExpansion
Set SRC=1.txt

(For /F "UseBackQ Delims=" %%L In ("%SRC%") Do (
Set "$L=%%L"& Set "$O="& CALL :SUB& Echo.!$O!
))>"%~dpn0.tmp"
Copy /y "%~dpn0.tmp" "%SRC%">nul&& DEL "%~dpn0.tmp"
Exit

:SUB
For /F "Tokens=1,2* Delims=;" %%A In ("!$L!") Do (
If "%%B"=="" Set "$O=%%A"& GoTo :EOF
If "%%C"=="" Set "$O=!$O!%%A"& GoTo :EOF
Set "$L=%%B;%%C"& Set "$O=!$O!%%A;"& GoTo :SUB)

ограничения данной реализации:

- удаляются пустые строки
- удаляются множественные ";" (";;;" -> ";")
- удаляются символы "!"/ текст между "!"

[rapbit90]

amel27, Можно тоже самое, только чтобы удалял текст ДО ИСКОМОГО СЛОВА ??? *(до FIND "...") @echo off SETLOCAL DisableDelayedExpansion (for /f "usebackq delims=" %%l in ("1.txt") do (set "$l=%%l" SETLOCAL EnableDelayedExpansion set $l|find ";">nul&& call :TRIM echo.!$l! ENDLOCAL )) >2.txt ENDLOCAL& EXIT :TRIM set "$c=!$l:~-1!"& set "$l=!$l:~,-1!" if not "!$c!"==";" goto TRIM GoTo :EOF

[amel27]

Можно тоже самое, только чтобы удалял текст ДО ИСКОМОГО СЛОВА ? »
...если речь о том же, о чём в первом посте - удалить текст в каждой строке:
@echo off

set file=1.txt
set word=\

SETLOCAL DisableDelayedExpansion
(for /f "usebackq delims=" %%l in ("1.txt") do (set "$l=%%l"
SETLOCAL EnableDelayedExpansion& set "$l=!$l:*%word%=%word%!"
echo.!$l!
ENDLOCAL))>"%~dpn0.tmp"
copy /y "%~dpn0.tmp" "%file%"&& del "%~dpn0.tmp"
ENDLOCAL

[rapbit90]

amel27, Что-то батник этот не действует, я попробовал точную копию, мой файл остаётся неизменным, дописал в код
ENDLOCAL))>C:\DEL2.txt
ENDLOCAL
И он просто копирует всё из файла 1.txt который обрабатывает. Заполняю вроде всё правильно
"set word=buy", слов buy содержится в файле 1.txt, но ничего не делается=(

[amel27]

дописал в код
ENDLOCAL))>C:\DEL2.txt
ENDLOCAL »куда?... :o
давайте предметно - пример файла + код (если правили)