2

.bat毎日作成されるCSVをファイルで移動しています。私は今それをきれいにする必要があります:

  • 「-」を見つけて0に置き換えます
  • 空のセルを見つけて 0 に置き換える
  • すべてのスペースを削除

CSV はわずか 20 行です。

4

3 に答える 3

0

バッチ ファイルは、これには適したツールではありません。PowerShell を使用する方がはるかに優れています。

(Get-Content 'C:\path\to\in.csv') `
  -replace ' ', '' `
  -replace '-', '0' `
  -replace '^,', '0,' `
  -replace ',$', ',0' `
| % {
  while ($_ -match ',,') { $_ = $_ -replace ',,', ',0,' }
  $_
} | Out-File 'C:\path\to\out.csv'

または VBScript:

Set fso = CreateObject("Scripting.FileSystemObject")

inFilename  = "C:\path\to\in.csv"
outFilename = "C:\path\to\out.csv"

Set inFile  = fso.OpenTextFile(inFilename)
Set outFile = fso.OpenTextFile(outFilename, 2, True)

outFile.WriteLine inFile.ReadLine  'write header
Do Until inFile.AtEndOfStream
  line = inFile.ReadLine

  line = Replace(line, " ", "")
  line = Replace(line, "-", "0")
  If Left(line, 1) = "," Then line = "0" & line
  If Right(line, 1) = "," Then line = line & "0"
  Do While InStr(line, ",,") > 0
    line = Replace(line, ",,", ",0,")
  Loop

  outFile.WriteLine line
Loop

inFile.Close
outFile.Close
于 2013-07-14T10:34:25.153 に答える
0
@ECHO OFF
SETLOCAL
(
FOR /f "delims=" %%i IN (yourfile.csv) DO (
 SET "line=%%i"&CALL :process
)
)>newcsv.csv
GOTO :EOF

:process
SET line=%line: =%
SET line=%line:-=0%
SET line2=%line%
SET line=%line:,,=,0,%
IF NOT "%line%"=="%line2%" GOTO process
IF "%line:~0,1%"=="," SET line=0%line%
ECHO %line%
GOTO :EOF

今、インターウェブの妖精がついに戻ってきました。これが私のバージョンです...

于 2013-07-14T14:10:35.660 に答える