批处理BAT如何在一堆URL中提取其每行的一级域名？

terse · 发表于 2014-2-19 00:50:08

判断结尾后六个字符的长度

@echo off
for /f "delims=" %%i in (a.txt) do (
set "str=%%i"
setlocal enabledelayedexpansion
set str=!str:http://= !
for %%a in (!str!) do (
for /f "delims=/" %%b in ("%%a") do set str=%%b
for /f %%b in ("!str!") do (
for /f %%c in ("!str:.=\!\..") do set s=%%~nc%%~xb&set "str=%%~nb"
if "!s:~6!" == "" for /f %%d in ("!str:.=\!\..") do (
if "%%~nd" neq "" set s=%%~nd.!s!
)
echo !s!
)
)
endlocal
)
pause

复制代码

DAIC · 发表于 2014-2-19 07:48:33

回复 15# 封印

你把没有成功提取的贴出来，也许可以变成绝对完美。

封印 · 发表于 2014-2-19 14:24:48

回复 14# xxpinqz

朋友，还能再改一下吗？
后面两字符的，取三组的话。那像ABC.DEF.CN这类型取出来就是二级域名了。
分两种情况，比如一种是ABC.DEF.GH.IJ这类型，后缀是GH.IJ
一种是ABC.DEF.IJ这类型后缀是IJ
按照特征来看的话，后缀圆点左右各两字符的取三组。后缀圆点右边两字符的，取两组就可以了。
看看怎么样？

封印 · 发表于 2014-2-19 15:03:40

回复 16# terse

运行完后，没有生成整理后的文本啊。

DAIC · 发表于 2014-2-19 15:11:32

回复 19# 封印

你自己加个重定向就行了啊

封印 · 发表于 2014-2-19 16:00:22

回复 20# DAIC

嗯，加好了，效果更完美了。
只是这代码FOR这么多层，对我来说好难理清啊。要是能注释一下，就更好了

。
向你学习

terse · 发表于 2014-2-19 16:53:10

回复 19# 封印
将第二行至第十七行括起来然后重定向到B.TXT

(这里是第二行至第十七行代码)>b.txt

复制代码

xxpinqz · 发表于 2014-2-20 12:38:10

回复 18# 封印
如此：

@echo off&setlocal enabledelayedexpansion
(for /f "tokens=1* delims=:" %%a in (a.txt) do (
set "str=%%b"
set "str=!str::= !"
for %%i in (!str!) do (
for /f "delims=/" %%a in ("%%i") do (
set "str=%%a"
set "str=!str:.= !"
set m=0
set "tmp="
for %%a in (!str!) do (
set/a m+=1
set ".=!tmp!"
set "#!m!=%%a."
set "tmp=%%a"
)
if "!.:~2!"=="" (set/a n=m-2) else set/a n=m-1
set "e="
for /l %%a in (!n!,1,!m!) do set "e=!e!!#%%a!"
echo,!e:~,-1!
)
)
))>b.txt

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] 批处理BAT如何在一堆URL中提取其每行的一级域名？