首先我要告诉你这个强大的脚本语言叫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"
复制代码
|