[Elven]

т.е. нужно в файле заменить все ":" на ";" и поменять расширение?

[porokh]

именно так

[Elven]

Для такого я обычно использую блокнот. А если файлов много и их лень открывать - Notepad++. Ну а переименование файлов это и вовсе банальная штука (мне, конечно, больше нравится TC, но тут уж, конечно на вкус и цвет).

[porokh]

Это и делается вручную в блокноте. А надо через планировщик автоматически.

[Iska]

porokh, на WSH:

Скрытый текст

Код:

Option Explicit

Dim strSourceFile

Dim objFSO
Dim strContent


If WScript.Arguments.Count = 1 Then
	strSourceFile = WScript.Arguments.Item(0)
	
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	If objFSO.FileExists(strSourceFile) Then
		With objFSO.OpenTextFile(strSourceFile)
			strContent = .ReadAll()
			.Close
		End With
		
		With objFSO.CreateTextFile(objFSO.GetBaseName(strSourceFile) & ".csv", True)
			.Write Replace(strContent, ":", ";")
			.Close
		End With
	Else
		WScript.Echo "Can't find source file [" & strSourceFile & "]."
		WScript.Quit 2
	End If
	
	Set objFSO = Nothing
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source file>"
	WScript.Quit 1
End If

WScript.Quit 0

Путь к исходному файлу указывается аргументом скрипта (также можно просто перетащить исходный файл на скрипт/ярлык на скрипт в Проводнике). Существующий csv-файл, одноимённый исходному, будет молча перезаписан.

P.S. Если размер Вашего исходного файла составляет более четверти размера физической оперативной памяти — пишите, сменим алгоритм на более щадяший к расходам оперативной памяти.

[sov44]

По простому, не усложняя

Код:

setlocal enabledelayedexpansion

set in=in.txt
set out=out.csv

for /f "delims=" %%n in (%in%) do (
set line=%%n
set line=!line::=;!
@echo !line!>>%out%
)
endlocal

[Iska]

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

Код:

…
>"%out%"" (
	for /f "delims=" %%n in (%in%) do (
		set line=%%n
		@echo !line::=;!
	)
)
…

[porokh]

Всем спасибо за помощь!!!

[megaloman]

porokh,

Вот еще вариант

Код:

@Echo Off
	Set "File=Z:\Soft_In\*.txt"
	Set "BoxOut=Z:\Soft_Out"
	Set "BoxArc=Z:\Soft_In\Arc"
	Set "ExtOut=csv"
	Set "Sym1=:"
	Set "Sym2=;"

	If Not Exist "%BoxArc%" Md "%BoxArc%"

	FOR %%f IN ("%File%") DO (
		>"%BoxOut%\%%~nf.%ExtOut%" (FOR /F "usebackq delims=" %%s IN (`2^>nul more "%%f"`) DO (
		Set "SS=%%s" 
		Call Echo %%SS:%Sym1%=%Sym2%%%
		))
		>nul Move /Y "%%f" "%BoxArc%\"
	)

Во входной папке обрабатываются файлы по маске, заменяются указанные символы, файлы сохраняются в указанной выходной папке по заданному расширению, исходные файлы перемещаются в архив, чтобы больше их не обрабатывать при последующем запуске батника, так как Вам надо

через планировщик автоматически. »

ИМХО, Вы изложили только часть задачи. Что дальше происходит с CSV-файлами?