中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-08-09 18:55

欢迎新会员 antixc　 RSS
共 47,811 主题排行 / 349,896 发帖 / 今日 1 篇 / 48,254 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [已解决] 关于网页转换成文本以及文本相同内容的删除. 查看 1,741　回复 18

楼主 [已解决] 关于网页转换成文本以及文本相同内容的删除. 发表于 2008-09-14 20:23　·　中国福建福州电信

zb1007zb

初级用户

★

积分 88
发帖 39
注册 2008-08-16 01:10
17年会员
UID 123307
性别男

状态离线

请教大家2个问题

1.网页上的内容我想转化成文本,应该怎么写
(通过网址复制内容进文本)

2.文本内相同数值的删除(例如IP)又该怎么写?

谢谢大家了

[ Last edited by zb1007zb on 2008-9-19 at 04:55 PM ]

/? 永远是你最好的老师

第 2 楼发表于 2008-09-14 21:16　·　中国重庆九龙坡区电信

HAT

版主

★★★★★

积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别男

状态离线

1.

curl -s http://www.baidu.cn/>a.txt

2. 把文本内容贴出来看看？

第 3 楼发表于 2008-09-14 21:18　·　中国福建福州电信

zb1007zb

初级用户

★

积分 88
发帖 39
注册 2008-08-16 01:10
17年会员
UID 123307
性别男

状态离线

比如一些IP咯

随便吧

127.0.0.1:1199
127.0.0.1:1237
127.0.0.1:4040
127.0.0.1:4043
209.85.173.127:80
220.162.238.229:80
60.187.220.110:8000
218.88.220.19:8000
60.187.220.110:8000
218.88.220.19:8000
从卡巴里拿的大家不要乱来哦哈哈

怎么删除重复的

/? 永远是你最好的老师

第 4 楼发表于 2008-09-14 21:24　·　中国重庆九龙坡区电信

HAT

版主

★★★★★

积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别男

状态离线

@echo off

type nul>b.txt

for /f "tokens=1-2 delims=:" %%a in (a.txt) do (

  findstr "%%a" b.txt>nul 2>nul||echo %%a:%%b>>b.txt

)

第 5 楼发表于 2008-09-14 21:45　·　中国福建福州电信

zb1007zb

初级用户

★

积分 88
发帖 39
注册 2008-08-16 01:10
17年会员
UID 123307
性别男

状态离线

Originally posted by HAT at 2008-9-14 09:24 PM:

@echo off

type nul>b.txt

for /f "tokens=1-2 delims=:" %%a in (a.txt) do (

  findstr "%%a" b.txt>nul 2>nul||echo %%a:%%b>>b.txt

)

方法很好,怪我没描述清楚我指的重复也包括端口

端口不同也算不同的哦

/? 永远是你最好的老师

第 6 楼发表于 2008-09-14 21:51　·　中国重庆九龙坡区电信

HAT

版主

★★★★★

积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别男

状态离线

@echo off

type nul>b.txt

for /f "delims=" %%a in (a.txt) do (

  findstr /x /c:"%%a" b.txt>nul 2>nul||echo %%a>>b.txt

)

第 7 楼发表于 2008-09-14 21:53　·　中国福建福州电信

zb1007zb

初级用户

★

积分 88
发帖 39
注册 2008-08-16 01:10
17年会员
UID 123307
性别男

状态离线

@echo off
type nul>b.txt
for /f "tokens=1-2 delims= " %%a in (a.txt) do (
findstr "%%a" b.txt>nul 2>nul||echo %%a>>b.txt
)

/? 永远是你最好的老师

第 8 楼发表于 2008-09-14 22:01　·　中国重庆九龙坡区电信

HAT

版主

★★★★★

积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别男

状态离线

转帖
1. 下载得到网页源代码

@echo off

<"%~f0" more +5 >tmp.vbs

cscript //NoLogo /e:vbscript tmp.vbs %1

del tmp.vbs

goto:eof

Set oDOM = WScript.GetObject(WScript.Arguments(0))

do until oDOM.readyState = "complete"

WScript.sleep 200

loop

WScript.echo oDOM.documentElement.outerHTML

2. 下载得到网页文本

@echo off

<"%~f0" more +5 >tmp.vbs

cscript //NoLogo /e:vbscript tmp.vbs %1

del tmp.vbs

goto:eof

Set oDOM = WScript.GetObject(WScript.Arguments(0))

do until oDOM.readyState = "complete"

WScript.sleep 200

loop

WScript.echo oDOM.documentElement.outerText

第 9 楼发表于 2008-09-14 22:40　·　中国福建福州电信

zb1007zb

初级用户

★

积分 88
发帖 39
注册 2008-08-16 01:10
17年会员
UID 123307
性别男

状态离线

好人............

/? 永远是你最好的老师

第 10 楼发表于 2008-09-14 22:51　·　中国福建福州电信

zb1007zb

初级用户

★

积分 88
发帖 39
注册 2008-08-16 01:10
17年会员
UID 123307
性别男

状态离线

如果我的FOR循环里面像刚才一样有函数了

我想加一个数字变量怎么加

就是比如XXX>2.TXT执行一次就自己加1

/? 永远是你最好的老师

第 11 楼发表于 2008-09-15 00:03　·　中国福建福州电信

zb1007zb

初级用户

★

积分 88
发帖 39
注册 2008-08-16 01:10
17年会员
UID 123307
性别男

状态离线

@echo off
type nul>b.txt

for /f "tokens=1-5 delims==| " %%a in (a.txt) do (
findstr "%%d:%%e" b.txt>nul 2>nul||(echo ServerXX=%%a>>b.txt
echo IpXX=%%d:%%e>>b.txt
echo.>>b.txt
))

b.txt
pause>nul
goto :all

我想在FOR里面加一个可以自加的变量
每查一个IP就+1
然后用在代码中XX处
望高人帮我解答谢谢~

/? 永远是你最好的老师

第 12 楼发表于 2008-09-15 00:26　·　中国重庆九龙坡区电信

HAT

版主

★★★★★

积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别男

状态离线

@echo off

setlocal enabledelayedexpansion

set count=0

type nul>b.txt



for /f "tokens=1-5 delims==| " %%a in (a.txt) do (

set /a count+=1

findstr "%%d:%%e" b.txt>nul 2>nul||(echo ServerXX=%%a>>b.txt

echo Ip!count!=%%d:%%e>>b.txt

echo.>>b.txt

))



b.txt

pause>nul

goto :all