China DOS Union

I tried it. The content in the www.txt file is just one line without line breaks. No wonder many of my attempts were incorrect. I made a small segment of the file and after pressing enter, the code of ccwan works, but there is a little error.
If there is no enter, just such a long single line, is there a way to extract it with a.htm ending? It's okay to use third-party tools. Everyone can think about how to do it when free, hehe.......

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 ]

Hehe, sed and awk are very easy for handling text

Didn't understand.

After searching for a long time, I didn't find the pattern of the files.

Finally found the solution. Save the following code as a VBS.

The file you want to process www.txt and this VBS file must be in the same directory.

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 "File processing completed, please check the 222.txt file",48+4096,"Operation successful"

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

According to your prompt, I put www.txt and that vbs in the same directory for operation, but it still went wrong.

Oh, dizziness~~
I've tried many times and there's no problem. Is the file name you need to handle www.txt?

If it still doesn't work, you can try changing www.txt to 11.txt and then also change www.txt in the vbs to 11.txt to see if it works.

Made a rookie mistake: when copying the code, I missed the initial '. It is suggested to enclose the code part with [code] and [/code] to facilitate others' copying.

VBS is indeed powerful, but I can't learn it right now. I still need to study my C. I'll try to use C to solve the problems I encounter in the future.

```
@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
```

A purely batch one!

Why can't I download the attachment!~~~

A hybrid one

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);