求助一个文件处理问题，批量删除字节

dfbb9216

我有1000个文件，文件内部的文件头不对。需要删除文件前64个字节。如何操作简单？？求助大神

峪飞鹰

首先，将下面的代码存成一个vbs文件（如，do_remove.vbs）：

1. Set objShell = CreateObject("Shell.Application")
   
2. Set Ag=Wscript.Arguments
   
3. set WshShell = WScript.CreateObject("WScript.Shell")
   
4. Set fso = CreateObject("Scripting.FileSystemObject")
   
5. 
   
6. Set ts = fso.OpenTextFile(Ag(0), 1, vbtrue, TristateFalse)
   
7. 
   
8. A=ts.readall
   
9. 
   
10. B=Mid(A, 64)
    
11. 
    
12. ts.close
    
13. 
    
14. Set ts = fso.OpenTextFile(Ag(0), 2, vbtrue, TristateFalse)
    
15. 
    
16. ts.write B

复制代码

注意，B=Mid(A,64)中的64可能是从第64个字节开始拷贝，如果你要删除64字节，可能要改成65才对，但是我不确定，所以你需要测试后自行修改

然后将下列代码存成一个bat文件（如run.bat）：

1. for %A in ("*.jpg") do do_remove.vbs %A

复制代码

注意，这里面操作的是*.jpg文件，你需要改成你需要的扩展名

存好文件后，拷贝到你1000个文件的文件夹里，双击这个run.bat文件，等待片刻即可。切记，务必操作之前先记得备份原来的文件！

dfbb9216

峪飞鹰 发表于 2016-7-21 09:17
首先，将下面的代码存成一个vbs文件（如，do_remove.vbs）：

好的，太谢谢了，我先测试一下

dfbb9216

峪飞鹰 发表于 2016-7-21 09:17
首先，将下面的代码存成一个vbs文件（如，do_remove.vbs）：

生成bat后，双击没有执行。双击VBS会提示下标越界，希望提供进一步的帮助~感谢

峪飞鹰

dfbb9216 发表于 2016-7-21 10:13
生成bat后，双击没有执行。双击VBS会提示下标越界，希望提供进一步的帮助~感谢

用这个，只要修改bat里的jpg扩展名，以及最后一个参数64的数字，来决定要处理什么文件，和减少多少头字节。

那个补充一下，拷贝压缩包里的两个文件存到1000个文件的所在目录，修改bat里的jpg扩展名为你需要的扩展名，然后再确认64那个数字对不对。随后不要双击，先开命令行提示符窗口，在里面cd到你的1000个文件所在目录，再输入run.bat执行。

dfbb9216

峪飞鹰 发表于 2016-7-21 11:37
用这个，只要修改bat里的jpg扩展名，以及最后一个参数64的数字，来决定要处理什么文件，和减少多少 ...

这次搞定了，非常感谢

dfbb9216

峪飞鹰 发表于 2016-7-21 11:37
用这个，只要修改bat里的jpg扩展名，以及最后一个参数64的数字，来决定要处理什么文件，和减少多少 ...

另外这个.EXE怎么生成的？

峪飞鹰

dfbb9216 发表于 2016-7-21 13:18
另外这个.EXE怎么生成的？

我写的

dfbb9216

峪飞鹰 发表于 2016-7-21 13:46
我写的

真棒，感谢

ELOHIM

峪飞鹰 发表于 2016-7-21 11:37
用这个，只要修改bat里的jpg扩展名，以及最后一个参数64的数字，来决定要处理什么文件，和减少多少 ...

非常棒，膜拜一下你！~