如何使用批处理将txt转CSV？

xw95

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

Batcher

回复 1# xw95


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

czjt1234

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

czjt1234

powershell不熟悉，写了个vbs的

1. f1 = "1.txt"        '源文件
   
2. f2 = "D:\1.xlsx"    '目标文件
   
3. f3 = "|"            '源文件的分隔符
   
4. 
   
5. Set oExcel = CreateObject("Excel.Application")
   
6. Set oWorkBook = oExcel.Workbooks.Add()
   
7. Set oSheet = oWorkBook.Sheets(1)
   
8. Set oFSO = CreateObject("Scripting.FileSystemObject")
   
9. Set oTextStream = oFSO.OpenTextFile(f1)
   
10. n = 1
    
11. Do While oTextStream.AtEndOfStream = False
    
12.     t = Split(oTextStream.ReadLine(), f3)
    
13.     If UBound(t) > -1 Then
    
14.         For i = 0 To UBound(t)
    
15.             oSheet.cells(n, i + 1) = t(i)
    
16.         Next
    
17.         n = n + 1
    
18.     End If
    
19. Loop
    
20. oTextStream.Close()
    
21. oWorkBook.SaveAs f2
    
22. oExcel.Quit()
    
23. MsgBox "ok"

复制代码