[已解决]批处理如何提取文件名并将之输出到EXCEL中生成三列？

haichuan5121

有文件夹下有很多这个格式命名的图片，求大神批处理提取文件名，并将之输出到EXCEL中 生成三列。格式大概如下分别是
结果：
aal  ，    -600.652 ，-63.372；
cal ，    -80.605，  -263.32；
文件名：
1abc123352aal_1440_0585_-600.625_-63.372_pad.jpg
1abD123352cal_1440_0585_-80.605_-263.32_pad.jpg

bailong360

1. @Echo Off
   
2. SetLocal  EnableDelayedExpansion
   
3. (For /F "Delims=_ Tokens=1,4,5" %%a In ('Dir /B *.jpg') Do (
   
4.   Set C1=%%a            
   
5.   Set C2=%%b            
   
6.   Set C3=%%c            
   
7.   Echo !C1:~10,9! !C2:~0,9! !C3:~0,9!
   
8. ))>list.txt
   
9. start TXT2EXCEL.vbs
   

复制代码

不会用vbs,只好这样了

1. Call Txt2Excel
   
2. 
   
3. Sub Txt2Excel
   
4. Const FsoForReading         = 1        ' 打开一个只读文件，不能对此文件进行写操作。   
   
5. Const FsoForWriting         = 2        ' 打开一个用于写操作的文件。如果和此文件同名的文件已存在，则覆盖以前内容。   
   
6. Const FsoForAppending        = 8        ' 打开一个文件并写到文件的尾部。   
   
7. 
   
8. '        文本文件名，Excel文件名       
   
9. Dim vTxtFileName, vExcelFileName
   
10. vTxtFileName = "list.txt"         ' TXT File
    
11. vExcelFileName = "G:\list.xls"         ' Excel File
    
12. 
    
13. '        文本文件对象，检查       
    
14. Dim fsoTxt, oTxtFile
    
15. Set fsoTxt=CreateObject("scripting.FileSystemObject")
    
16. If fsoTxt.FileExists( vTxtFileName ) Then
    
17. Set oTxtFile = fsoTxt.openTextFile( vTxtFileName, FsoForReading, False )
    
18. Else
    
19. MsgBox "文件不存在，请检查！"
    
20. Exit Sub
    
21. End If
    
22. 
    
23. '         Excel文件对象，检查
    
24. Dim fsoExcel, oExcelFile
    
25. Set fsoExcel = CreateObject("scripting.FileSystemObject")
    
26. Set oExcelFile = CreateObject("Excel.Application")
    
27. If oExcelFile Is Nothing Then MsgBox "系统未检测到安装了EXCEL！"
    
28. oExcelFile.DisplayAlerts = False
    
29. '        oExcelFile.Visible = True         'Debug
    
30. 
    
31. If  Not fsoExcel.FileExists(vExcelFileName) Then
    
32. oExcelFile.Workbooks.Add
    
33. oExcelFile.Sheets.Item(1).Select
    
34. End If
    
35. 
    
36. '        读取文本，截取单元值，写入Excel表格
    
37. Dim vText, vUnit1, vUnit2, vUnit3, vUnit4, vUnit5, vUnit6, vUnit7, vUnit8, vUnit9, vUnit10
    
38. Dim vRow
    
39. vRow = 1
    
40. While Not oTxtFile.AtEndOfLine       
    
41. vText = oTxtFile.ReadLine
    
42. vUnit1 = Left(vText, 10)
    
43. vUnit2 = Mid(vText,11,9)
    
44. vUnit3 = Mid(vText,21,9)
    
45. With oExcelFile.Sheets.Item(1)
    
46. .Range("A" & vRow).Value = vUnit1
    
47. .Range("B" & vRow).Value = vUnit2
    
48. .Range("C" & vRow).Value = vUnit3
    
49. End With
    
50. vRow = vRow + 1
    
51. Wend
    
52. 
    
53. '        打扫战场       
    
54. oTxtFile.Close
    
55. Set oTxtFile = Nothing
    
56. Set fsoTxt = Nothing
    
57. 
    
58. oExcelFile.ActiveWorkbook.SaveAs vExcelFileName
    
59. oExcelFile.Quit
    
60. Set oExcelFile = Nothing
    
61. Set fsoExcel = Nothing
    
62. End Sub

复制代码

保存为TXT2EXCEL.vbs

haichuan5121

回复 2# bailong360


    太感谢了，结果可以实现，就是分成两部分有点繁琐，能不能合成一个啊，

haichuan5121

回复 2# bailong360


    还有就是大侠生成的是TXT文本，导入EXCEL不是分列的 是一列里面三段，不过应急够了，可以下班了，继续求大神！

apang

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. (for /f "tokens=1,4,5delims=_" %%a in ('dir /b *.jpg') do (
   
4.         set "a=%%a"
   
5.         echo,!a:~-3!,%%b,%%c
   
6. ))>1.csv
   
7. pause

复制代码

bailong360

回复 3# haichuan5121


    忘记说了,代码执行完毕后会在G盘生成一个xls,里面才是真正的结果
没有考虑到一般人的G盘是移动磁盘...

34205

很强大，学习了.........