[文本处理] 如何使用批处理将txt转CSV？

xw95

之前使用过一个第三方，可以实现txt转CSV，但是无法设定分隔符，如果有空格，无论怎么设定空格都会被分成几列。想求一个可以用指定字符分隔的TXT转EXCEL.

Batcher

回复 1# xw95


请给个txt作为例子上传到网盘，以便测试代码。

czjt1234

powershell命令
Export-Csv
Import-Csv
参数 -Delimiter <char> 可以指定分隔符

czjt1234

powershell不熟悉，写了个vbs的

f1 = "1.txt"        '源文件
f2 = "D:\1.xlsx"    '目标文件
f3 = "|"            '源文件的分隔符

Set oExcel = CreateObject("Excel.Application")
Set oWorkBook = oExcel.Workbooks.Add()
Set oSheet = oWorkBook.Sheets(1)
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTextStream = oFSO.OpenTextFile(f1)
n = 1
Do While oTextStream.AtEndOfStream = False
    t = Split(oTextStream.ReadLine(), f3)
    If UBound(t) > -1 Then
        For i = 0 To UBound(t)
            oSheet.cells(n, i + 1) = t(i)
        Next
        n = n + 1
    End If
Loop
oTextStream.Close() 
oWorkBook.SaveAs f2
oExcel.Quit()
MsgBox "ok"
复制代码