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

qq1178662380

列兵

Rank: 1

帖子: 5
积分: 15
技术: 0
捐助: 0
注册时间: 2010-8-9

3楼

发表于 2010-8-12 13:40 | 只看该作者

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

Batcher

管理员

Rank: 12

帖子: 14811
积分: 45989
技术: 848
捐助: 745
注册时间: 2008-6-9

4楼

发表于 2010-8-21 00:49 | 只看该作者

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

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

czjt1234

上尉

Rank: 5 Rank: 5

帖子: 942
积分: 1407
技术: 101
捐助: 0
注册时间: 2010-4-30

5楼

发表于 2010-8-21 17:48 | 只看该作者

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

四级士官

Rank: 3 Rank: 3

帖子: 70
积分: 295
技术: 1
捐助: 0
注册时间: 2009-8-3

6楼

发表于 2010-8-22 14:01 | 只看该作者

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

lvsehuaxue

六级士官

Rank: 4

帖子: 244
积分: 396
技术: 28
捐助: 0
注册时间: 2010-9-13

7楼

发表于 2011-5-25 21:11 | 只看该作者

@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!
 )
复制代码

Rank: 8 Rank: 8

帖子: 2702
积分: 14559
技术: 176
捐助: 630
注册时间: 2008-6-16

8楼

发表于 2011-5-25 21: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"
复制代码

＊＊＊共同提高＊＊＊

Rank: 8 Rank: 8

帖子: 2702
积分: 14559
技术: 176
捐助: 630
注册时间: 2008-6-16

9楼

发表于 2011-5-25 22:17 | 只看该作者

本帖最后由 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七少

列兵

Rank: 1

帖子: 34
积分: 40
技术: 0
捐助: 0
注册时间: 2011-4-26

10楼

发表于 2011-5-25 23:27 | 只看该作者

@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
复制代码

智慧是创造财富的唯一保障！

Rank: 8 Rank: 8

帖子: 2702
积分: 14559
技术: 176
捐助: 630
注册时间: 2008-6-16

11楼

发表于 2011-5-25 23:44 | 只看该作者

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

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

＊＊＊共同提高＊＊＊

Rank: 8 Rank: 8

帖子: 2702
积分: 14559
技术: 176
捐助: 630
注册时间: 2008-6-16

12楼

发表于 2011-5-26 00:01 | 只看该作者

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

上尉

Rank: 5 Rank: 5

帖子: 281
积分: 1063
技术: 22
捐助: 0
注册时间: 2008-9-12

13楼

发表于 2011-5-26 12:55 | 只看该作者

挖坟？

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