回答編集履歴
3
調整
test
CHANGED
|
@@ -47,7 +47,7 @@
|
|
|
47
47
|
loop
|
|
48
48
|
otf.close
|
|
49
49
|
with reg
|
|
50
|
-
.Pattern="<a .*?href=""https?://d.hatena.ne.jp/keyword.*?</a>"
|
|
50
|
+
.Pattern="<a .*?href=""https?://d.hatena.ne.jp/keyword.*?</a>"
|
|
51
51
|
.IgnoreCase=true
|
|
52
52
|
.Global=true
|
|
53
53
|
end with
|
2
ちょうせい
test
CHANGED
|
@@ -21,7 +21,7 @@
|
|
|
21
21
|
<a class="keyword" href="http://d.hatena.ne.jp/keyword/test1">test1</a>
|
|
22
22
|
<a class="keyword" href="http://d.hatena.ne.jp/nottarget">test2</a>
|
|
23
23
|
<a class="keyword" href="https://d.hatena.ne.jp/keyword/test3">test3</a>
|
|
24
|
-
<a class="keyword" href="http://d.hatena.ne.jp/nottarget">test4</a>
|
|
24
|
+
<a class="keyword" href="https://d.hatena.ne.jp/nottarget">test4</a>
|
|
25
25
|
```
|
|
26
26
|
以下のvbsファイルにドラッグアンドドロップします
|
|
27
27
|
//test.vbs
|
|
@@ -39,9 +39,7 @@
|
|
|
39
39
|
set f=fs.getfile(args(0))
|
|
40
40
|
set otf = fs.OpenTextFile(f)
|
|
41
41
|
txt=""
|
|
42
|
-
i=0
|
|
43
42
|
Do While true
|
|
44
|
-
i=i+1
|
|
45
43
|
txt=txt+otf.readline+vbCrLf
|
|
46
44
|
if otf.AtEndOfStream then
|
|
47
45
|
exit do
|
1
chousei
test
CHANGED
|
@@ -13,3 +13,50 @@
|
|
|
13
13
|
<a class="keyword" href="https://d.hatena.ne.jp/keyword/test3">test3</a>
|
|
14
14
|
|
|
15
15
|
```
|
|
16
|
+
|
|
17
|
+
# vbsサンプル
|
|
18
|
+
htmlファイルを用意します。
|
|
19
|
+
//test.htm
|
|
20
|
+
```html
|
|
21
|
+
<a class="keyword" href="http://d.hatena.ne.jp/keyword/test1">test1</a>
|
|
22
|
+
<a class="keyword" href="http://d.hatena.ne.jp/nottarget">test2</a>
|
|
23
|
+
<a class="keyword" href="https://d.hatena.ne.jp/keyword/test3">test3</a>
|
|
24
|
+
<a class="keyword" href="http://d.hatena.ne.jp/nottarget">test4</a>
|
|
25
|
+
```
|
|
26
|
+
以下のvbsファイルにドラッグアンドドロップします
|
|
27
|
+
//test.vbs
|
|
28
|
+
```VBScript
|
|
29
|
+
sub main()
|
|
30
|
+
set args= wscript.arguments
|
|
31
|
+
set oWSH =wscript.CreateObject("WScript.Shell")
|
|
32
|
+
set reg = CreateObject("VBScript.RegExp")
|
|
33
|
+
set fs = CreateObject("Scripting.FileSystemObject")
|
|
34
|
+
if args.count=0 then
|
|
35
|
+
msgbox "ファイルを落としてください。"
|
|
36
|
+
exit sub
|
|
37
|
+
end if
|
|
38
|
+
|
|
39
|
+
set f=fs.getfile(args(0))
|
|
40
|
+
set otf = fs.OpenTextFile(f)
|
|
41
|
+
txt=""
|
|
42
|
+
i=0
|
|
43
|
+
Do While true
|
|
44
|
+
i=i+1
|
|
45
|
+
txt=txt+otf.readline+vbCrLf
|
|
46
|
+
if otf.AtEndOfStream then
|
|
47
|
+
exit do
|
|
48
|
+
end if
|
|
49
|
+
loop
|
|
50
|
+
otf.close
|
|
51
|
+
with reg
|
|
52
|
+
.Pattern="<a .*?href=""https?://d.hatena.ne.jp/keyword.*?</a>"+vbCrLf
|
|
53
|
+
.IgnoreCase=true
|
|
54
|
+
.Global=true
|
|
55
|
+
end with
|
|
56
|
+
replacement=""
|
|
57
|
+
txt=reg.replace(txt,replacement)
|
|
58
|
+
msgbox txt
|
|
59
|
+
end sub
|
|
60
|
+
main()
|
|
61
|
+
```
|
|
62
|
+
|