[问题求助] [已解决]vbs语句及软件问题问题

1270697389

问题1、
vsb的功能很强大，但是不太熟悉，下了个汉化版的vsb无法使用，提示无法创建空文档。
2、有个语句我搞不懂，看了vsb教程还是没搞懂。大家帮我看看。
1.txt的内容：
<li><a href="http://www.chuxingyi.net/">首页</a></li>
        vbvnng<li><a href="http://www.chuxingyi.net/txt/1_1.html">玄幻</a></li>
        nnjgfgu<li><a href="http://www.chuxingyi.net/txt/2_1.html">修真</a></li>
        <li><a href="http://www.chuxingyi.net/txt/3_1.html">都市</a></li>
        dhghkg<li><a href="http://www.chuxingyi.net/txt/4_1.html">历史</a></li>
                kh        <li><a href="http://www.chuxingyi.net/txt/5_1.html">网游</a></li>
                ffg        <li><a href="http://www.chuxingyi.net/txt/6_1.html">科幻</a></li>
        jkj                <li><a href="http://www.chuxingyi.net/txt/7_1.html">推理</a></li>
        l;                <li><a href="http://www.chuxingyi.net/txt/8_1.html">灵异</a></li>
        =-lkk                <li><a href="http://www.chuxingyi.net/txt/9_1.html">同人</a></li>


我现在要提取每一行的<a href="http://www.chuxingyi.net/txt/6_1.html"这一段
代码如下：
Set fso = CreateObject("Scripting.FileSystemObject")
text = fso.OpenTextFile("a.txt").ReadAll
Set re = New RegExp
re.Pattern = "^<li^>(.*)^>"
re.Global = True
re.IgnoreCase = True
For Each a In re.Execute(text)
    str = str & a.SubMatches(0) & vbCrLf
Next
fso.opentextfile("b.txt",2,true).Write str
可是运行了每提取。应该是转意这里出了问题。谢谢！

1270697389

回复  1270697389

    你说的是vbseditor吗？
Batcher 发表于 2013-10-23 20:24

是vbsedit 里面只有vbsedit.exe,samples.xml,vbsedit_snippets.dat,这三个文件。
开始用没问题，后来下了个安装版的，这个就不行了。

Batcher

回复 7# 1270697389


    你说的是vbseditor吗？

1270697389

从哪里下载的？
Batcher 发表于 2013-10-22 22:44

    是论坛的，软件应该是没问题，我下的是汉化版的，开始可以，然后我就下了个安装版的，安装的时候360提示病毒，我就把360关了，再后来汉化的就打不开了，只能用英文的安装版了。软件是没问题的，估计是360把我电脑里的什么东西给删了。

1270697389

如楼主实在是要取到每一行的.*"
batman 发表于 2013-10-22 23:26

    有一事不明，这里为什么不需要转意符就可以？我试了，可行。非常棒，谢谢！

1270697389

首先我要告诉你这个强大的脚本语言叫VBS不是VSB
其次我要告诉你当代码不止一行时请用code标签将代码如下括 ...
batman 发表于 2013-10-22 22:42

    哈哈，不好意思，我写错了，是vbs不是vsb,谢谢您！
我以前不知道有vbs，一直不了解，现在尝到了甜头，非常好用，我正在一个一个的学习，希望没有影响到论坛的正常次序，谢谢！

batman

如楼主实在是要取到每一行的<a href="http://www.chuxingyi.net/txt/6_1.html"这一段，
正则应改成：objREG.Pattern = ".*<li>(.*"")>.*"

Batcher

下了个汉化版的vsb无法使用

从哪里下载的？

batman

首先我要告诉你这个强大的脚本语言叫VBS不是VSB
其次我要告诉你当代码不止一行时请用code标签将代码如下括起来
[\code]
代码
[\/code]这里都多打了一个\字符是为了让你看到这个示例
提取url的代码如下：

Dim objFSO, objStr
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStr = objFSO.OpenTextFile("a.txt").ReadAll
Dim objREG
Set objREG = New RegExp
objREG.Global = True
objREG.IgnoreCase = True
objREG.Pattern = ".*""([a-zA-z]+://[^\s]+)"".*"
objStr = objREG.Replace(objStr, "$1")
Set objREG = Nothing
objFSO.OpenTextFile("new.txt", 2, True).Write Replace(objStr, vbLf, vbCrLf)
Set objFSO = Nothing
WScript.Echo "ok"
复制代码