DOWN LOAD BBS [One Message View / ハイパーリンク]

DOWN LOAD BBS

■155 / 親階層)

　ハイパーリンク

□投稿者/ hidetake -(2003/03/18(Tue) 00:36:50)

桐でやる手ももちろんだけれど，正規表現を使えれば
こんな風に出来るというサンプルの意味も含めて・・・

取り敢えず，今時の Windows であれば大体において
使えるであろう WSH のうち VBS でのスクリプト例！

ex. httplink.vbs infile outfile

-------------------------------------------------------------------------------
Dim Arg
Set Arg = WScript.Arguments
If Arg.Count < 2 Then
WScript.Quit
End If

Dim Src, Dst
Src=Arg(0)
Dst=Arg(1)

Dim Fs
Set Fs = Wscript.CreateObject("Scripting.FileSystemObject")
If Not Fs.FileExists(Src) Then
WScript.Echo "ファイルがありません！"
Set Fs = Nothing
Set Arg = Nothing
WScript.Quit
End If
If Fs.FileExists(dst) = True Then
Fs.DeleteFile dst,True
End If

Set sFile = Fs.OpenTextFile(Src)
Set dFile = FS.CreateTextFile(Dst)

Dim Line
Set objRE = New RegExp
objRE.IgnoreCase = True
objRE.Global = True
objRE.Pattern = "(((s?https?|ftp)://|mailto:)[-_.!~*'()a-zA-Z0-9;/?:@&=+$,%#]+)"

Do Until sFile.AtEndOfStream
Line = sFile.ReadLine
If Line = Chr(&h1A) Then
Exit Do
End If
If objRE.Test(Line) = True Then
Line = objRE.Replace(Line,"" + "$1" + "")
End If
dFile.WriteLine(Line)
Loop

sFile.Close
dFile.Close
Set sFile = Nothing
Set dFile = Nothing
Set Arg = Nothing
Set Fs = Nothing
WScript.Quit
-------------------------------------------------------------------------------

[メール受信/OFF] 削除キー/

→Re[1]: ハイパーリンク /hidetake
　

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
ハイパーリンク / hidetake (03/03/18(Tue) 00:36) #155 ←Now
`└` Re[1]: ハイパーリンク / hidetake (03/03/18(Tue) 00:37) #156
`└` Re[2]: ハイパーリンク / hidetake (03/03/18(Tue) 00:39) #157 解決済み!
上記ツリーを一括表示 / 上記ツリーをトピック表示
上記の記事へ返信

入力内容にタグは利用できません。

他人を中傷する記事は管理者の判断で予告無く削除されます。
半角カナは使用しないでください。文字化けの原因になります。
名前、コメントは必須記入項目です。記入漏れはエラーになります。
入力内容の一部は、次回投稿時の手間を省くためブラウザに記録されます。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
URLは自動的にリンクされます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
- No123 → 記事No123の記事リンクになります(指定表示)。
- No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
- No123-130 → 記事No123～130 の記事リンクになります(連続表示)。

Name	/
E-Mail	/
└> 関連するレス記事をメールで受信しますか? / アドレス
Title	/
メッセージ中には下記URLと同じURLを書き込まないで下さい
URL	/
Comment/ 通常モード->　図表モード-> (適当に改行して下さい/半角10000文字以内) ■No155に返信(hidetakeさんの記事) > 桐でやる手ももちろんだけれど，正規表現を使えれば > こんな風に出来るというサンプルの意味も含めて・・・ > > 取り敢えず，今時の Windows であれば大体において > 使えるであろう WSH のうち VBS でのスクリプト例！ > > ex. httplink.vbs infile outfile > > ------------------------------------------------------------------------------- > Dim Arg > Set Arg = WScript.Arguments > If Arg.Count < 2 Then > WScript.Quit > End If > > Dim Src, Dst > Src=Arg(0) > Dst=Arg(1) > > Dim Fs > Set Fs = Wscript.CreateObject("Scripting.FileSystemObject") > If Not Fs.FileExists(Src) Then > WScript.Echo "ファイルがありません！" > Set Fs = Nothing > Set Arg = Nothing > WScript.Quit > End If > If Fs.FileExists(dst) = True Then > Fs.DeleteFile dst,True > End If > > Set sFile = Fs.OpenTextFile(Src) > Set dFile = FS.CreateTextFile(Dst) > > Dim Line > Set objRE = New RegExp > objRE.IgnoreCase = True > objRE.Global = True > objRE.Pattern = "(((s?https?\|ftp)://\|mailto:)[-_.!~*'()a-zA-Z0-9;/?:@&=+$,%#]+)" > > Do Until sFile.AtEndOfStream > Line = sFile.ReadLine > If Line = Chr(&h1A) Then > Exit Do > End If > If objRE.Test(Line) = True Then > Line = objRE.Replace(Line,"<a href=""" + "$1" + """>" + "$1" + "</a>") > End If > dFile.WriteLine(Line) > Loop > > sFile.Close > dFile.Close > Set sFile = Nothing > Set dFile = Nothing > Set Arg = Nothing > Set Fs = Nothing > WScript.Quit > ------------------------------------------------------------------------------- > >
File	/ アップ可能拡張子=> /.gif/.jpg/.jpeg/.png/.txt/.lzh/.zip/.mid 圧縮ファイル[lzh,zip]は、事前に解凍してご利用下さい。 1) 太字の拡張子は画像として認識されます。 2) 画像は初期状態で縮小サイズ250×250ピクセル以下で表示されます。 3) 同名ファイルがある、またはファイル名が不適切な場合、　　ファイル名が自動変更されます。 4) アップ可能ファイルサイズは1回200KB(1KB=1024Bytes)までです。 5) ファイルアップ時はプレビューは利用できません。 6) スレッド内の合計ファイルサイズ:[0/500KB] 残り:[500KB]
パスワード	/ 半角小文字で「ケイ・アイ・アール・アイ」を入力
削除キー	/ (半角8文字以内)
解決済み! BOX/ 解決したらチェックしてください!
プレビュー/

- Child Tree -
- Antispam Version -