[paulomyaulo]

В другом чатике подсказали, вот такой способ.
convertfrom-csv -delimiter ',' -inputobject (get-content -path file.txt) -header '1','2','3' | foreach-object {
Add-content -value $_.1 -path 1.txt -force
Add-content -value $_.2 -path 2.txt -force
Add-content -value $_.3 -path 3.txt -force}

[megaloman]

paulomyaulo, я попробовал CMD, убедился, что при большом числе строк CMD делает очень долго. Вот .vbs -скрипт. Тестировал на 200000 строках

Код:

FileIn = "Z:\Box_In\allcolumns200000.txt"
'FileIn = "Z:\Box_In\allcolumns.txt"

FileOut1 = "Z:\Box_In\allcolumns_split1.txt"
FileOut2 = "Z:\Box_In\allcolumns_split2.txt"
FileOut3 = "Z:\Box_In\allcolumns_split3.txt"

Timing = vbCrLf + vbCrLf + CStr(Now)
With CreateObject("Scripting.FileSystemObject")
    On Error Resume Next

    Set FIn = .OpenTextFile(FileIn, 1, False)
    
    If Err.Number <> 0 Then
        MsgBox "File   " + FileIn + vbCrLf + Err.Description + " (" + CStr(Err.Number) + ")", 16
        WScript.Quit 2
    End If
    On Error GoTo 0
    
    Set FOut0 = .OpenTextFile(FileOut1, 2, True)
    Set FOut1 = .OpenTextFile(FileOut2, 2, True)
    Set FOut2 = .OpenTextFile(FileOut3, 2, True)
    
    Do While Not FIn.AtEndOfStream
        S = FIn.ReadLine
        SS = Split(S, ",")
        FOut0.WriteLine SS(0)
        FOut1.WriteLine SS(1)
        FOut2.WriteLine SS(2)
    Loop
    
    FIn.Close
    FOut0.Close
    FOut1.Close
    FOut2.Close
End With
MsgBox "Готово" + Timing + vbCrLf + CStr(Now), 64

[DJ Mogarych]

Powershell

Код:

$csv = import-csv "D:\temp\tt.txt" -Header "1","2","3"

$csv.1 > "D:\temp\1.txt"
$csv.2 > "D:\temp\2.txt"
$csv.3 > "D:\temp\3.txt"

[paulomyaulo]

sv.1 > "D:\temp\1.txt" $csv.2 > "D:\temp\2.txt" $csv.3 > "D:\temp\3.txt" »

Все супер! спасибо! а может подскажете, чтобы он ещё путь создавал указанный, или конечную папку?

[DJ Mogarych]

Код:

New-Item D:\temp\rrr\ddd\jjj\fff\1.txt -Force