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

ljfa0

我现在举例，我的文本内容：
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

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

qq1178662380

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

Batcher

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

czjt1234

假如文件名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

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

lvsehuaxue

@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

来个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

再来一个正则的，我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七少

@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

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

batman

再来个兼容一行多个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

挖坟？

如果是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"
复制代码