レス数が 500 を超えています。残念ながら全部は表示しません。
【引き込まれるwiki総合：３】 ３
▼ページ最下部
スレ第３回目です。
事件・事故・現象・人物・能力・・・
読んでいて戦慄・驚愕するwikiなどを紹介・語るスレです。
※wikiよりも推薦できるサイトがある場合（より詳細に解説されているなど）、wiki以外でも可です
※アドレスと共に、表題やちょっとした紹介文などがあると興味をそそられますので推奨です
【満杯になったスレ自体を保存し、後で読む】
万一スレがいっぱいになった場合、スレが消える前に永久保存しておきましょう。
このスレ内の適当な空白で右クリック→プロパティ→アドレスをコピー→画面上部のアドレス直接入力枠にペースト→そのアドレスへ飛ぶ→このスレが表示される→ファイル→名前を付けて保存。
事件・事故・現象・人物・能力・・・
読んでいて戦慄・驚愕するwikiなどを紹介・語るスレです。
※wikiよりも推薦できるサイトがある場合（より詳細に解説されているなど）、wiki以外でも可です
※アドレスと共に、表題やちょっとした紹介文などがあると興味をそそられますので推奨です
【満杯になったスレ自体を保存し、後で読む】
万一スレがいっぱいになった場合、スレが消える前に永久保存しておきましょう。
このスレ内の適当な空白で右クリック→プロパティ→アドレスをコピー→画面上部のアドレス直接入力枠にペースト→そのアドレスへ飛ぶ→このスレが表示される→ファイル→名前を付けて保存。
※省略されてます すべて表示...
>>129 のプログラム【改正版】です。すみません。 ---------------------------------------------------------------------------
Public Function URLDecodeUTF8(strSource As String) As String
Dim objSC As Object
On Error GoTo brokencode
Set objSC = CreateObject("ScriptControl")
objSC.Language = "Jscript"
URLDecodeUTF8 = objSC.CodeObject.decodeURIComponent(strSource)
Set objSC = Nothing
Exit Function
brokencode: URLDecodeUTF8 = "■■■"
End Function
Sub wikilist()
Dim a, b, c As String: Dim p, q As Long
Open "c:¥wikiin.txt" For Input As #1
Open "c:¥wikiout.txt" For Output As #2
Do
Line Input #1, a: p = InStr(a, "ht" + "tp://ja.wikipedia.org/wiki/")
If p > 0 Then
b = URLDecodeUTF8(Mid(a, p + 29)): b = RTrim(Replace(b, "_", " "))
q = InStr(b, "#"): If q > 0 Then b = Left(b, q - 1)
c = c + b + "／": If Len(c) > 50 Then Print #2, c: c = ""
End If
Loop Until EOF(1)
Print #2, c: Close #2: Close #1
End Sub
----------------------------------------------------------------------------
リンクが壊れている場合は「■■■」を吐き出すようにしました。
ついでに処理を少しだけ効率化しました。
画像のような感じに出力されます。スレ汚し失礼。
ジュディ・ガーランド http://ja.wikipedia.org/wiki/%E3%82%B8%E3%83%A5%E3%83%...
映画、「オズの魔法使い」のドロシー役として有名。
俺が知らなかっただけで有名な話なのだが、実は糞ビッチだった。
▲ページ最上部
ログサイズ：275 KB 有効レス数：501 削除レス数：0
不適切な書き込みやモラルに反する投稿を見つけた時は、書き込み右の マークをクリックしてサイト運営者までご連絡をお願いします。確認しだい削除いたします。
オカルト掲示板に戻る 全部 前100 次100 最新50
スレッドタイトル：【引き込まれるwiki総合：３】