broly

修改了一下6楼的代码

@echo off
setlocal enabledelayedexpansion
for %%a in (gj.txt 58.txt) do (
set n=0
FOR /F "delims=" %%i in (%%a) do (
　set "L=%%i"
　set NL=!L:/=;!
　FOR %%j in (!NL!) do (
　　set/a n+=1
　　>>cp!n!.txt echo=%%j
　)
)
)
复制代码

danny123

原帖由 zm900612 于 2011-2-12 22:08 发表
@echo off&setlocal enabledelayedexpansion
for %%f in (gj.txt 58.txt) do (
   set n=
   for /f "delims=" %%a in (%%f) do (
     set tmp=%%a&set tmp=!tmp:/=" "!
     for %%i in ("!tmp!") do set /a  ...

谢谢，您的代码运行后文字左右多了分号"，生成没有问题，我真实的文档里面是6000多条，就无法生成了，谢谢这位大哥

CrLf

@echo off&setlocal enabledelayedexpansion
for %%f in (gj.txt 58.txt) do (
   set n=
   for /f "delims=" %%a in (%%f) do (
     set tmp=%%a&set tmp=!tmp:/=" "!
     for %%i in ("!tmp!") do set /a "n+=1"&set .%%f!n!=%%~i
   )
)
for /l %%a in (1 1 %n%) do (
   echo !.gj.txt%%a!
   echo !.58.txt%%a!
)>>%%a.txt
pause
exit
复制代码

[ 本帖最后由 zm900612 于 2011-2-12 22:15 编辑 ]

danny123

好像是58.txt里面的各种符号造成的，全中文就没问题

broly

测试没有问题。
你的文本命名之类的有没有弄错？

danny123

回复 6# cutebe
运行了一下，您这个gj.txt和58.txt里面的内容没有串在一起，是分开的，能帮忙看看吗

[ 本帖最后由 danny123 于 2011-2-12 22:06 编辑 ]

cutebe

:换分隔符后用一般FOR来处理
@echo off
setlocal enabledelayedexpansion
FOR /F "delims=" %%i in (gj.txt,58.txt) do (
　set "L=%%i"
　set NL=!L:/=;!
　FOR %%j in (!NL!) do (
　　set/a n+=1
　　>cp!n!.txt echo=%%j
　)
)
复制代码

danny123

回复 4# broly
用您这个运行了一下，好像不行，没有文件生成，您再帮忙看看？

broly

这样吗？

@echo off
for %%a in (gj.txt 58.txt) do (
  set n=0
  for /f "tokens=1,* delims=/" %%i in (%%a) do call :sub %%i %%j
)
pause
exit

:sub
set /a n+=1
>>cp%n%.txt echo %1
if not "%2"=="" (
  for /f "tokens=1,* delims=/" %%i in ("%2") do (call :sub %%i %%j)
)
复制代码

danny123

原帖由 broly 于 2011-2-12 21:00 发表
for循环中tokens（列）的极限数是31

请问有没有什么方法修改，不用tokens改用别的行不行？麻烦了

broly

for循环中tokens（列）的极限数是31