100有偿请求制作zip压缩包内文件批处理脚本

33571918

批量修改zip压缩包内txt文件字符替换脚本

见与不见

这个要知道文件名，单独解压这个出来  然后重新压缩回去

qazplm

回复 1# 33571918

1. @echo off
   
2. rem 测试前先备份zip原文件
   
3. rem 指定WinRAR的安装路径
   
4. set "rarpath=C:\Program Files\WinRAR\WinRAR.exe"
   
5. for /f "delims=" %%a in ('dir /a-d/b *.zip') do (
   
6.     echo;"%%a"
   
7.     "%rarpath%" x -r -y -ibck "%%a" *.txt "%~dp0\$tmp"
   
8.     pushd "%~dp0\$tmp"
   
9.     for /r %%b in (*.txt) do (
   
10.         setlocal enabledelayedexpansion
    
11.         (for /f "tokens=1* delims=:" %%i in ('findstr /n .* "%%b"') do (
    
12.             set "line=%%j"
    
13.             echo;!line:需替换的字符串=替换后的字符串!
    
14.         ))>"%%~dpb$t.tmp"
    
15.         move /y "%%~dpb$t.tmp" "%%~dpnxb"
    
16.         endlocal
    
17.     )
    
18.     "%rarpath%" u -r -ibck "%~dp0ini.zip" *.txt
    
19.     popd
    
20.     rd /q /s "%~dp0\$tmp"
    
21. )
    
22. pause

复制代码

老刘1号

回复 1# 33571918

无需任何第三方，存批即可
如果觉得可用，请支付到论坛支付宝账号

1. OldStr="原来的字符串"
   
2. NewStr="新的字符串"
   
3. 
   
4. ' & @Echo off & Cls 2>Nul 3>nul
   
5. ' & For /r "你的ZIP文件所在的路径" %%a in (*.ZIP) Do Echo "%%~fa" && Cscript -Nologo -E:Vbscript "%~0" "%%~fa"
   
6. ' & Pause & Goto :EOF
   
7. Rem Code BY 老刘
   
8. Rem Zip,UnZip函数块感谢Demon、乱码
   
9. Rem 其他均为原创
   
10. Randomize
    
11. YourZipFilePath=Wscript.Arguments(0)
    
12. Dim fso
    
13. Set fso = CreateObject("Scripting.FileSystemObject")
    
14. TmpFolderName = Replace(Rnd,".","")
    
15. fso.GetFolder(fso.GetSpecialFolder(2)&"").SubFolders.Add TmpFolderName
    
16. TmpFolderPath = fso.GetSpecialFolder(2)&""&TmpFolderName
    
17. UnZip YourZipFilePath, TmpFolderPath
    
18. ErgodicFolder TmpFolderPath,OldStr,NewStr
    
19. Zip TmpFolderPath,YourZipFilePath
    
20. 
    
21. 
    
22. 
    
23. Sub ErgodicFolder(Inputfolder,OldStr,NewStr)
    
24.         Dim objFolder,File,folder
    
25.         Dim fso
    
26.         Set fso = CreateObject("Scripting.FileSystemObject")
    
27.         Set objFolder=FSO.getFolder(Inputfolder)
    
28.        
    
29.         For Each File In objFolder.Files
    
30.                 If UCase(FSO.GetExtensionName(File)) = "TXT" Then
    
31.                         Str = fso.OpenTextFile(File,1).ReadAll
    
32.                         Str = Replace(Str,OldStr,NewStr)
    
33.                         fso.OpenTextFile(File,2,True).Write Str
    
34.                 End If
    
35.         Next
    
36.        
    
37.         For Each folder In objFolder.SubFolders
    
38.                 ErgodicFolder folder
    
39.         Next
    
40.        
    
41. End Sub
    
42. 
    
43. Sub UnZip(myZipFile, myTargetDir)
    
44.     Set fso = CreateObject("Scripting.FileSystemObject")
    
45.     If Not fso.FileExists(myZipFile) Then
    
46.         Exit Sub
    
47.     ElseIf fso.GetExtensionName(myZipFile) <> "zip" Then
    
48.         Exit Sub
    
49.     ElseIf Not fso.FolderExists(myTargetDir) Then
    
50.         fso.CreateFolder(myTargetDir)
    
51.     End If
    
52.     myZipFile=fso.GetFile(myZipFile).Path
    
53.     myTargetDir=fso.GetFolder(myTargetDir).Path
    
54.     Set objShell = CreateObject("Shell.Application")
    
55.     Set objSource = objShell.NameSpace(myZipFile)
    
56.     Set objFolderItem = objSource.Items()
    
57.     Set objTarget = objShell.NameSpace(myTargetDir)
    
58.     intOptions = 256
    
59.     objTarget.CopyHere objFolderItem, intOptions
    
60. End Sub
    
61. 
    
62. Sub Zip(mySourceDir, myZipFile)
    
63.     Set fso = CreateObject("Scripting.FileSystemObject")
    
64.     If fso.GetExtensionName(myZipFile) <> "zip" Then
    
65.         Exit Sub
    
66.     ElseIf fso.FolderExists(mySourceDir) Then
    
67.         FType = "Folder"
    
68.     ElseIf fso.FileExists(mySourceDir) Then
    
69.         FType = "File"
    
70.         FileName = fso.GetFileName(mySourceDir)
    
71.         FolderPath = fso.GetFile(mySourceDir).ParentFolder
    
72.     Else
    
73.         Exit Sub
    
74.     End If
    
75.     Set f = fso.CreateTextFile(myZipFile, True)
    
76.     f.Write "PK" & Chr(5) & Chr(6) & String(18, Chr(0))
    
77.     f.Close
    
78.     myZipFile=fso.GetFile(myZipFile).Path
    
79.     Set objShell = CreateObject("Shell.Application")
    
80.     Select Case Ftype
    
81.         Case "Folder"
    
82.         Set objSource = objShell.NameSpace(mySourceDir)
    
83.         Set objFolderItem = objSource.Items()
    
84.         Case "File"
    
85.         Set objSource = objShell.NameSpace(FolderPath)
    
86.         Set objFolderItem = objSource.ParseName(FileName)
    
87.     End Select
    
88.     Set objTarget = objShell.NameSpace(myZipFile)
    
89.     intOptions = 256
    
90.     objTarget.CopyHere objFolderItem, intOptions
    
91.     Do
    
92.         WScript.Sleep 1000
    
93.     Loop Until objTarget.Items.Count > 0
    
94. End Sub
    
95. 
    

复制代码