@echo off
cd/d %~dp0
(echo sed -i "s/\//\n/g" gj.txt
echo sed -i "s/\//\n/g" 58.txt
echo exit)>N.BAT
start N.BAT
echo 按任意键开始生成文件
pause>nul
setlocal enabledelayedexpansion
for %%a in (gj.txt;58.txt)do (
　set n=
　FOR /F "delims=" %%i in (%%a) do (
　　set/a n+=1
　　>>cp!n!.txt echo=%%i
　)
)
del N.BAT
pause
复制代码

gawk -F/ "NR==FNR{for(i=1;i<=NF;i++)a[i]=$i}NR>FNR{for(i=1;i<=NF;i++)print $i\"\n\"a[i] >\"cp\"i\".txt\"}" 58.txt gj.txt
复制代码

 
'//保存此文件为 untitled.vbs 
'//跟那两个文本放在一起，然后运行。。。
Dim fso,f,ary1,ary2,intMax,intMin,i,strText
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile(fso.GetFolder(".") & "\gj.txt",1)
ary1=Split(f.ReadAll,"/",-1) : f.Close
Set f=fso.OpenTextFile(fso.GetFolder(".") & "\58.txt",1)
ary2=Split(f.ReadAll,"/",-1) : f.Close
If UBound(ary1) > UBound(ary2) Then
  intMax=UBound(ary1)
  intMin=UBound(ary2)
Else
  intMax=UBound(ary2)
  intMin=UBound(ary1)
End If
For i=1 To intMin
  strText=ary1(i) & vbCrLf & ary2(i)
  Set f=fso.CreateTextFile("cp"&i&".txt",True)
  f.Write strText
  f.Close
Next
For i=intMin To intMax
  If UBound(ary1)=intMax Then 
    strText=ary1(i)
  Else
    strText=ary2(i)
  End If
  Set f=fso.CreateTextFile("cp"&i&".txt",True)
  f.Write strText
  f.Close
Next
MsgBox "完成！"
Set fso=Nothing:Set f=Nothing
复制代码