CrLf

100KB=102400B
如果都在同一行的话，这个是不是太大了...变量的极限容量才8192，所以我弃权...

danny123

有没有方法改成不受限制，批处理一点都不懂，不好意思诸位

CrLf

不知道for /f "tokens=1*"...语句的参数有没有限制极限长度，如果没限制的话估计用临时文件可以做到，不过效率就不用指望了
还有一个思路是fsutil+for切割文件，但是无论效率还是通用性上都差强人意
不用第三方命令的话，别的思路暂时没有了...等待高人出现

[ 本帖最后由 zm900612 于 2011-2-13 17:17 编辑 ]

hanyeguxing

使用fr或sed替换/为换行
然后用for 处理

cutebe

是阿，使用用第三方SED 4.14吧（注意备份你的两个TXT文本）
http://bbs.bathome.net/thread-1114-1-1.html

@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
复制代码

[ 本帖最后由 cutebe 于 2011-2-13 19:06 编辑 ]

Batcher

过期了，无法从网盘下载。

CUer

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
复制代码

danny123

原帖由 Batcher 于 2011-2-13 19:18 发表
过期了，无法从网盘下载。

谢谢，已经续了

danny123

原帖由 cutebe 于 2011-2-13 19:05 发表
是阿，使用用第三方SED 4.14吧（注意备份你的两个TXT文本）
http://bbs.bathome.net/thread-1114-1-1.html@echo off
cd/d %~dp0
(echo sed -i "s/\//\n/g" gj.txt
echo sed -i "s/\//\n/g" 58.txt
echo exit)>N ...

测试了一下，好像不行，谢谢您

broly

原帖由 danny123 于 2011-2-13 23:42 发表


谢谢，已经续了

还是过期。。。
用VBS可以不。。。

broly

原帖由 broly 于 2011-2-13 23:49 发表


还是过期。。。
用VBS可以不。。。

 
'//保存此文件为 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
复制代码