中国DOS联盟

我试过了,www.txt文件里的内容就一行的,没有换行,难怪我试了好多都不正确.我弄一小段文件回车后用ccwan的代码可以,误差有一点.
如不回车,就这么长的一行有办法提取出来.htm结尾的么,用第三方工具也行,大家没事了想想怎么才能做到,呵呵.......

sed "s/htm/\n/" life|sed "/.htm/!d"|sed "s/.* 200/200/;s/.htm.*/.htm/"|more>a.txt
type a.txt
pause>nul

[ Last edited by vkill on 2006-12-26 at 06:35 AM ]

呵呵，sed awk解决文字很容易了

没看懂。

找了半天，没找到文件的规律~

'终于找到了解决方法,把下面的代码存为VBS
'你要处理的文件www.txt和这个VBS文件一定要在一个目录.
on error resume next set fso=createobject("scripting.filesystemobject") set file=fso.opentextfile("www.txt",1) a=file.readall file.close i=0 do i=instr(i+1,a,".htm") if i<>0 then b=b & mid(a,i-12,16)& vbcrlf loop until i=0 set file=fso.createtextfile("222.txt") file.write b file.close msgbox "文件处理完毕,请查看222.txt文件",48+4096,"操作成功"

[ Last edited by jmz573515 on 2006-12-26 at 08:44 AM ]

　　按照你的提示，把www.txt和那个vbs放在同一目录下操作，但是还是出错了。

晕~~
我试了多遍都没有问题,你要处理的文件名是不是www.txt?

如果还不行你可以试一下,把www.txt改成11.txt之后把vbs里的www.txt也改成11.txt看看行不行.

　　犯了个低级错误：复制代码的时候，把最开始的 ' 漏掉了。建议把代码部分用 [code] 和 [/code] 括起来，以方便别人的复制。

vbs确实厉害,不过现在还不能去学它,现在还要学我的c,以后试着用c解决我遇到的问题.

@echo off&setlocal enabledelayedexpansion set "t=" (for /f "tokens=*" %%a in (www.txt) do (set "str=!t!%%a"&set "t=%%a"&call :sub !str!))>dest.txt start dest.txt pause goto :eof :sub if /i "%~x1"==".htm" echo %1 shift if not "%1"=="" goto :sub set t=!t:.htm=! goto :eof

来一个纯批的！

我怎么下不了附件!~~~

来个混血的
more +4 "%~f0">#js.js cscript /nologo #js.js 文件.txt goto:eof ::::::::::::::::::::::: File_Path=WScript.arguments(0); var fso=new ActiveXObject("scripting.filesystemobject"); var fl=fso.opentextfile(File_Path,1); var sss=fl.readall(); var fl=fso.opentextfile(File_Path+"_处理后.txt",2,1); sss=sss.replace(/*?\s+(\d+\.htm)/g,"$1\r\n"); fl.write(sss);