网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
12月31日漏签0天
vbs吧 关注:18,243贴子:104,530
  • 看贴

  • 图片

  • 吧主推荐

  • 游戏

  • 4回复贴,共1页
<<返回vbs吧
>0< 加载中...

VBS提取文本两个关键字之间的内容

  • 只看楼主
  • 收藏

  • 回复
  • aipca
  • 初级粉丝
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
文本1.txt中有如下内容:
<a href="javascript:void(0);" onclick="fnServerDuelRoleFight( 22985 );">随便看看</a>
<a href="javascript:void(0);" onclick="fnServerDuelRoleFight( 521563 );">随便看看</a>
<a href="javascript:void(0);" onclick="fnServerDuelRoleFight( 580389 );">随便看看</a>
<a href="javascript:void(0);" onclick="fnServerDuelRoleFight( 631416 );">随便看看</a>
<a href="javascript:void(0);" onclick="fnServerDuelRoleFight( 670263 );">随便看看</a>
<a href="javascript:void(0);" onclick="fnServerDuelRoleFight( 752814 );">随便看看</a>
<a href="javascript:void(0);" onclick="fnServerDuelRoleFight( 755753 );">随便看看</a>
<a href="javascript:void(0);" onclick="fnServerDuelRoleFight( 767675 );">随便看看</a>
<a href="javascript:void(0);" onclick="fnServerDuelRoleFight( 773962 );">随便看看</a>
<a href="javascript:void(0);" onclick="fnServerDuelRoleFight( 835439 );">随便看看</a>
<a href="javascript:void(0);" onclick="fnServerDuelRoleFight( 844513 );">随便看看</a>
<a href="javascript:void(0);" onclick="fnServerDuelRoleFight( 937978 );">随便看看</a>
<a href="javascript:void(0);" onclick="fnServerDuelRoleFight( 987716 );">随便看看</a>
<a href="javascript:void(0);" onclick="fnServerDuelRoleFight( 1026009 );">随便看看</a>
<a href="javascript:void(0);" onclick="fnServerDuelRoleFight( 1268673 );">随便看看</a>
我想提取成:
22985
521563
580389
631416
670263
752814
755753
767675
773962
835439
844513
937978
987716
1026009
1268673
这样子分行保存到文本2.txt里面 然后在给每行前面加个固定的网址让它成为一个完整的路径,这个VBS该怎么写?


  • nefu_20061617
  • 铁杆吧友
    8
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Set FSO = CreateObject("Scripting.FileSystemObject")
ss = Split(FSO.OpenTextFile("1.txt").ReadAll, "fnServerDuelRoleFight(")
Set f2 = FSO.OpenTextFile("2.txt", 2, True)
For i = 1 To UBound(ss)
f2.WriteLine Trim(Split(ss(i), ")")(0))
Next
f2.Close


2025-12-31 07:12:36
广告
不感兴趣
开通SVIP免广告
  • lzgs978
  • 铁杆吧友
    8
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
不懂
前排围观


  • PENGUINES
  • 知名人士
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Dim objfso
Set objfso=CreateObject("Scripting.FileSystemObject")
Dim r
Set r=objfso.opentextfile("2.txt",1,true,0)
Dim a()
Dim c
c=1
Do while not r.AtEndOfStream
Redim Preserve a(c)
a(c)="http://tieba.baidu.com/p/" & r.ReadLine
c=c+1
Loop
Set r=nothing
Dim w
Set w=objfso.Createtextfile("2.txt",true)
For i=1 to c-1
w.writeline a(i)
Next


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 4回复贴,共1页
<<返回vbs吧
分享到:
©2025 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示