批处理如果将网址最后一个斜线后面的所有内容清除？

ljfa0 · 发表于 2010-8-12 13:07:22

我现在举例，我的文本内容：
http://www.baidu.com/bbs/apisfjdpasdfpj.htm
http://www.soso.com/bbs/forumdisplay.php?fid=119
http://www.11.com/forumdisplay.php?fid=119
http://www.22.com/bbs/forumdisplay.php?fid=119
http://www.33.com/forumdisplay.php?fid=119

运行完批处理后要这样的效果：
http://www.baidu.com/bbs/
http://www.soso.com/bbs/
http://www.11.com/
http://www.22.com/bbs/
http://www.33.com/

将/bbs和/com后面的版面代码去掉，但是/bbs不要去掉，网址后面没有/bbs的也别添上去。

我不懂批处理，谁能帮我写个批处理，小弟在这万分感谢！我没有发广告，上面的网址全是乱打上去的，这些网页根本不存在。

[ 本帖最后由 ljfa0 于 2010-8-12 16:00 编辑 ]

wankoilz · 发表于 2010-8-12 13:33:44

额...你是说去掉最后一个 / 以及后面的内容吗？

qq1178662380 · 发表于 2010-8-12 13:40:54

本人不太懂代码，不过有个苯办法。
存为txt文件，一行一个，用excel打开，打开时选择以“/”字符做为分隔符号隔成一列一列的，比如：
http www.baidu.com bbs apisf。。。
http www.11.com forumdispaly。。。
然后按列c排序，剩下的就知道了吧。

Batcher · 发表于 2010-8-21 00:49:17

同样的问题：
http://bbs.bathome.net/thread-8965-1-1.html

czjt1234 · 发表于 2010-8-21 17:48:23

假如文件名22.txt

@echo off
for /f "tokens=1,2,3 delims=/" %%i in (22.txt) do (
if /i %%k equ bbs echo %%i//%%j/%%k>>11.txt
if /i %%k neq bbs echo %%i//%%j>>11.txt
)

qq506657335 · 发表于 2010-8-22 14:01:08

@for /f "tokens=1,2,3 delims=/" %%i in (1.txt) do echo
%%i//%%j/%%k
pause

lvsehuaxue · 发表于 2011-5-25 21:11:50

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
set "v=%%~dpi"
set "v=!v:%cd%\=!"
set "v=!v:\=/!"
set "v=!v:http:/=http://!"
echo !v!
)

复制代码

batman · 发表于 2011-5-25 21:57:57

来个vbs的，文本名自己改哈：

Set fso = CreateObject("scripting.filesystemobject")
vbstr = fso.OpenTextFile("a.txt", 1, 1).ReadAll()
fso.DeleteFile("a.txt")
For Each str In Split(vbstr, vbCrLf)
vbout = ""
For i = 0 To UBound(Split(str, "/"))-1
vbout = vbout & Split(str, "/")(i) & "/"
Next
fso.OpenTextFile("a.txt", 8, 1).WriteLine Replace(vbout, "http:/", "http://")
Next
Set fso = Nothing
MsgBox "ok"

复制代码

batman · 发表于 2011-5-25 22:17:36

本帖最后由 batman 于 2011-5-25 23:10 编辑

再来一个正则的，我vbs正则很弱，当练习了：

Set fso = CreateObject("scripting.filesystemobject")
vbstr = fso.OpenTextFile("a.txt", 1, 1).ReadAll()
Set RegEx = New RegExp
regex.Global = True
regex.Pattern = "(\w+://.*/)[^/]+" & vbCrLf
vbstr = regex.Replace(vbstr, "$1" & vbCrLf)
Set regex = Nothing
fso.OpenTextFile("a.txt", 2, 1).Write vbstr
Set fso = Nothing
MsgBox "ok"

复制代码

andy七少 · 发表于 2011-5-25 23:27:39

@echo off
for /f "tokens=1,2,3 delims=/" %%i in (1.txt) do (
if "%%k"=="bbs" (echo %%i//%%j/%%k)
else echo %%i//%%j)
pause>nul

复制代码

batman · 发表于 2011-5-25 23:44:51

本帖最后由 batman 于 2011-5-25 23:47 编辑

10# andy七少
如果是http://ww.bathome.net/123/123/12 ... page%3D1&page=1这样子的呢？

batman · 发表于 2011-5-26 00:01:20

再来个兼容一行多个url的正则，url间的分隔符只能为tab、空格以及其他空字符

Set fso = CreateObject("scripting.filesystemobject")
vbstr = fso.OpenTextFile("a.txt", 1, 1).ReadAll()
Set RegEx = New RegExp
regex.Global = True
regex.Pattern = "(\w+://[^:\s]+/)[^/:\s]+"
vbstr = regex.Replace(vbstr, "$1")
Set regex = Nothing
fso.OpenTextFile("a.txt", 2, 1).Write vbstr
Set fso = Nothing
MsgBox "ok"

复制代码

slore · 发表于 2011-5-26 12:55:19

挖坟？

如果是VBS的话。。。其实2个函数就好了啊，不用搞的那么复杂

Left(strlines(i),InStrRev(strlines(i),"/"))

Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("scripting.filesystemobject")
Set objFile = objFSO.OpenTextFile("a.txt", ForReading, 1)
vbstr = objFile.ReadAll()
objFile.Close
'objFSO.DeleteFile("a.txt")
Set objFile = objFSO.OpenTextFile("a.txt", ForWriting, 1)
Dim strlines
strlines=Split(vbstr, vbCrLf)
For i = 0 To UBound(strlines)
IF Len(strlines(i))>0 Then
objFile.WriteLine Left(strlines(i),InStrRev(strlines(i),"/"))
End If
Next
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
MsgBox "Finish"

复制代码

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

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

[文本处理] 批处理如果将网址最后一个斜线后面的所有内容清除？