[已解决]批处理怎样在文本内容前插入文件名称，而且添加后的文本不是乱码？

blueskyczg

目录下有N多txt，现在需要在文本内容前插入文件名称，不要扩展名，而且添加后的文本不是乱码。那位大侠帮忙看看...

DAIC

先把你的txt转换成ANSI编码

blueskyczg

回复 2# DAIC
不会...才开始学，好复杂，上面的代码也不对，不知道什么问题，求指教！感谢！

DAIC

回复 3# blueskyczg


打开一个txt
文件
另存为
选择ANSI编码
保存

czjt1234

不会批处理处理编码，写了个vbs

1. Dim strPath, Str, objFSO, objFile
   
2. strPath = "."
   
3. Set objFSO = CreateObject("Scripting.FileSystemObject")
   
4. For Each objFile In objFSO.GetFolder(strPath).Files
   
5.     If Lcase(Right(objFile.Name, 4)) = ".txt" Then
   
6.         With CreateObject("Adodb.Stream")
   
7.            .mode = 3
   
8.            .charset = "UTF-8"
   
9.            .Open()
   
10.            .loadfromfile objFile.Path
    
11.            Str = .readtext()
    
12.            If InStr(str, Mid(objFile.Name, 1, Len(objFile.Name) - 4)) > 0 Then Exit For
    
13.         End With
    
14.         With CreateObject("Adodb.Stream")
    
15.            .mode = 3
    
16.            .Open()
    
17.            .WriteText Mid(objFile.Name, 1, Len(objFile.Name) - 4) & vbCrLf & vbCrLf & Str
    
18.            .SaveToFile objFile.Path, 2
    
19.         End With
    
20.     End If
    
21. Next

复制代码

本来想写一个测试原文件编码的，但是没成功
' * CodeChange.vbs     BY: yongfa365 http://www.yongfa365.com         2007-10-04 *
' * U82GB.vbs          BY: fastslz   http://bbs.cn-dos.net            2007-12-03 *

blueskyczg

txt转换ANSI编码的问题暂且不论，怎么实现在文本内容前插入文件名称？诸位大能,拜谢！

czjt1234

我不是发了么，你测试下

blueskyczg

回复 7# czjt1234
试过了，效果很好，感谢！
不过貌似这个比BAT更复杂，学不学呢？