http を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードはhttp です。
<%@LANGUAGE=VBScript%>
<html>
<head>
<title>http: の文字を見つけたら、タグ付きにする</title>
</head>
<body>
<h2>http: の文字を見つけたら、タグ付きにする</h2>
test034-2.asp<br>
掲示板に書いてくれると、うれしいです。<br>
(掲示板 http://www.ken3.org/vba/bbs-vba.html )<br>
サンプルファイルは、<br>
http://www.ken3.org/vba/lzh/vba042.lzh <br>
にtest042-book.xlsが保存されています<br>
これを変換してみる。<br>
結果は、<br>
<% '処理を作成する
'テストのデータを作成する
moji = "掲示板に書いてくれると、うれしいです。" & vbCrLf
moji = moji & "(掲示板 http://www.ken3.org/vba/bbs-vba.html )" & vbCrLf
moji = moji & "サンプルファイルは、" & vbCrLf
moji = moji & "http://www.ken3.org/vba/lzh/vba042.lzh" & vbCrLf
moji = moji & "にtest042-book.xlsが保存されています " & vbCrLf
henkan = "" '変換結果を初期化
old = 1 '前回の検索位置
n = 1 '初回のループを強引にＯＮにしたいので
Do While n <> 0 '文字が見つかっている間ループする
n = InStr(old, moji, "http:") 'httpを探す
If n <> 0 Then 'データが見つかったか？
'まず、前回位置から手前までをコピーする
Response.Write "n=" & n & " old=" & old & "<br>" 'テスト
henkan = henkan & Mid(moji, old, (n - old))
'次に切り取る位置を探す(スペースorCRLFを探す)
nSPC = InStr(n, moji, " ") 'スペースを探す
nVBCRLF = InStr(n, moji, vbCrLf) 'CRFLを探す
If nSPC > nVBCRLF And nVBCRLF <> 0 Then nSPC = nVBCRLF 'どちらか先に見つかったほう
'タグを付ける
strURL = Mid(moji, n, (nSPC - n)) 'URLを抜き出す
henkan = henkan & "<a href='" & strURL & "'>" & strURL & "</a>"
'位置を記憶させる
old = nSPC
Response.Write "old=" & old & "URL=" & strURL & "<br>" 'テスト
Else '見つからなかった時は、ループをOffにする
henkan = henkan & Mid(moji, old) '前回の位置から後ろをコピー
LoopFLG = 0
End If
Loop
'結果を表示する
Response.Write "<pre>" & Server.HTMLEncode(henkan) & "</pre>"
%>
です。<br>
<HR>
</body>
</html>
| 最近発売の雑誌を紹介する
プログラミングと関係あるような無いような、ビジネス・経済の雑誌を紹介します。
- 株式にっぽん 2008年 5/15号
- 日経ビジネス Associe (アソシエ) 2008年 5/20号
- 起業塾 2008年 06月号
- 東洋経済 統計月報 2008年 06月号
- 近代セールス 2008年 5/15号
- オール投資 2008年 5/15号
- バンクビジネス 2008年 5/15号
- 食品工業 2008年 5/30号
- 経済 2008年 06月号
|