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

文本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该怎么写？

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

北京勤哲软件技术

勤哲Excel服务器软件2024，用Excel自动生成基于web，移动APP和PC的中文编程语言。软博会金奖产品，适合于各行各业的管理人员使用。

2025-03-11 08:20广告

立即查看

不懂
前排围观

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吧

分享到:

日	一	二	三	四	五	六