[Georgio]

foma24, проверьте:

Код:

@ECHO OFF>222.txt
SETLOCAL ENABLEDELAYEDEXPANSION
FOR /F "tokens=1,2 delims=." %%I IN (111.txt) DO (
   SET VAR1=%%J
   IF DEFINED VAR1 (
    SET VAR2=!VAR1:~1!
    IF DEFINED VAR2 (
     ECHO %%I.%%J>>222.txt
  ) ELSE (
     ECHO %%I.%%J0>>222.txt
)) ELSE (
    ECHO %%I.00>>222.txt
))

[foma24]

Большое спасибо, только небольшое уточнение, нужно чтобы батник обрабатывал только строки с началом Сумм, т.е. например если в строке будет не Сумм:30 а Итог:30 то такую строку трогать не нужно, она должна в первозданном виде сохраниться в файл 222.txt

[Iska]

Есть файл 111.txt »

Кодировку файла укажите.

У меня какой-то тихий ужас получился:

читать дальше »

Код:

$sPath = "E:\Песочница\0269\111.txt"

$aContent = (
    Get-Content -Path $sPath |`
        ForEach-Object -Process {
            switch -regex ($_) {
                "^Сумм:\d+[^\d.]*$" {
                    $_ -replace "^(Сумм:\d+)([^\d.]*)$", '${1}.00${2}'
                    break
                }
                    
                "^Сумм:\d+\.\d[^\d.]*$" {
                    $_ -replace "^(Сумм:\d+\.\d)([^\d.]*)", '${1}0${2}'
                    break
                }
                default {
                    $_
                }
            }
        }
)
    
Set-Content -Path $sPath -Value $aContent

[foma24]

Кодировку файла укажите. »

OEM866

[Iska]

OEM866 »

Попробуйте так:

читать дальше »

Код:

function StrConvert($sSourceCharset, $sDestCharset) {
    begin {
        Set-Variable -Name adTypeText      -Option Constant -Value 2
        Set-Variable -Name adModeReadWrite -Option Constant -Value 3
        
        $oStream = New-Object -ComObject "ADODB.Stream"
    }
    
	process {
        $oStream.Type = $adTypeText
		$oStream.Mode = $adModeReadWrite
		
		$oStream.Open()
		
		$oStream.Charset = $sSourceCharset
		$oStream.WriteText($_)
		
		$oStream.Position = 0
		$oStream.Charset  = $sDestCharset
		$oStream.ReadText()
		
		$oStream.Close()
	}
}

$sPath = "E:\Песочница\0269\111.txt"

$aContent = (
    Get-Content -Path $sPath  |`
        StrConvert "windows-1251" "cp866" |`
            ForEach-Object -Process {
                $sConvertedString = ($_  )
                
                switch -regex ($sConvertedString) {
                    "^Сумм:\d+[^\d.]*$" {
                        $sConvertedString -replace "^(Сумм:\d+)([^\d.]*)$", '${1}.00${2}'
                        break
                    }
                        
                    "^Сумм:\d+\.\d[^\d.]*$" {
                        $sConvertedString -replace "^(Сумм:\d+\.\d)([^\d.]*)", '${1}0${2}'
                        break
                    }
                    default {
                        $sConvertedString
                    }
                }
            } |`
    StrConvert "cp866" "windows-1251"
)
    
Set-Content -Path $sPath -Value $aContent

[Georgio]

Код:

@ECHO OFF>222.txt
SETLOCAL ENABLEDELAYEDEXPANSION
FOR /F "tokens=*" %%I IN (111.txt) DO (
  FOR /F "tokens=1,3 delims=:." %%J IN ("%%I") DO (
   IF %%J==Сумм (
    SET VAR1=%%K
    IF DEFINED VAR1 (
     SET VAR2=!VAR1:~1!
     IF DEFINED VAR2 (
      ECHO %%I>>222.txt
   ) ELSE (
      ECHO %%I0>>222.txt
 )) ELSE (
     ECHO %%I.00>>222.txt
)) ELSE (
    ECHO %%I>>222.txt
)))

[foma24]

Огромное спасибо все прекрасно работает.

Если можно еще одна задачка, файлы внутри такие же, но их много, хранятся в одной папке, нужно в этой папке отобрать все файлы где есть строки вида
Сумм:30
Сумм:10.1
т.е. либо без точки, либо с одной цифрой после точки и скопировать в отдельный каталог

[Iska]

Кодировка та же? Пробуйте:

читать дальше »

Код:

function StrConvert($sSourceCharset, $sDestCharset) {
    begin {
        Set-Variable -Name adTypeText      -Option Constant -Value 2
        Set-Variable -Name adModeReadWrite -Option Constant -Value 3
        
        $oStream = New-Object -ComObject "ADODB.Stream"
    }
    
	process {
        $oStream.Type = $adTypeText
		$oStream.Mode = $adModeReadWrite
		
		$oStream.Open()
		
		$oStream.Charset = $sSourceCharset
		$oStream.WriteText($_)
		
		$oStream.Position = 0
		$oStream.Charset  = $sDestCharset
		$oStream.ReadText()
		
		$oStream.Close()
	}
}

$sPath = "E:\Песочница\0269"

Get-ChildItem -Path $sPath\*.* -Include *.txt |`
    ForEach-Object -Process {
        if((Get-Content -Path $_ | StrConvert "windows-1251" "cp866") -match "^Сумм:\d+(?:\.\d)?[^\d.]*$") {
            $_ | Move-Item -Destination "E:\Песочница\0270"
        }
    }

[Georgio]

Код:

@ECHO OFF
(
 ECHO Сумм:[0-9][0-9]
 ECHO Сумм:[0-9][0-9]\.[0-9]
)>temp.txt
FOR %%I IN ("E:\Folder 1\*") DO (
 FINDSTR /R /E /G:temp.txt "%%~I">nul&&^
COPY "%%~I" "E:\Folder 2\">nul
)
DEL temp.txt