
附件 1:1.exe.rar (2010-4-15 19:42, 120.05 K,下载次数: 5)
附件 2:文本.rar (2010-4-15 17:53, 684 bytes,下载次数: 10)
CODE: [Copy to clipboard]@echo off
(chcp 437
for /F "tokens=2,3 delims=|" %%i in (123.txt) do copy 1.exe %%j_%%i.exe)>nul
CODE: [Copy to clipboard]以下为vbs@echo off
(chcp 437
for /F "tokens=2,3 delims=|" %%i in (123.txt) do copy 1.exe "%%j_%%i.exe")>nul
CODE: [Copy to clipboard]==============================完结===========================================Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("123.txt", 1)
Do Until f.AtEndOfStream
oneLine = f.ReadLine()
temp = Split(oneLine, "|")
If UBound(temp) > 1 Then
fso.CopyFile "1.exe", temp(2) & "_" & temp(1) & ".exe"
End If
Loop
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |