読者です 読者をやめる 読者になる 読者になる

三流君のソースコード置き場

三流プログラマーが作成したコードが置いてあります。あまり参考にならないと思いますがヨロシクお願いします。

Mid関数で文字列を抜き出す

ブログに過去のソースコードをアップして、ブログの検索機能で利用してます(利用予定です)
※古くさいコードが多いです・・・



ソースコード

<%@LANGUAGE=VBScript%>
<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>Mid関数のテストを解説する</title>
</head>
<body>
<h2>Mid関数のテストを解説する</h2>
test034-1.asp<br>
moji = "abcdefg"<br>
a = Mid(moji, 2, 3)  '2文字目から3文字取出す<br>
結果は、<br>
<%  '関数をテストする
  moji = "abcdefg"
  a = Mid(moji, 2, 3)  '2文字目から3文字取出す
  Response.Write a     '結果を表示する
%>
です。<br>
<HR>
</body>
</html>

↑をテスト実行する→ http://www.ken3.org/cgi-bin/test/test034-1.asp実行する



http: の文字を見つけたら、タグ付きにする ソースコード

<%@LANGUAGE=VBScript%>
<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<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  '初回のループを強引にONにしたいので
  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>

↑をテスト実行する→ http://www.ken3.org/cgi-bin/test/test034-2.asp実行する


三流君ASPでフォーム関係の解説とサンプル
三流君ASPでADO MDB接続関係の解説とサンプル
三流君ASPでADO Excel接続関係の解説ページとサンプル
三流君ASPでADO CSV接続関係の解説ページとサンプル
三流君ASPでテキストファイル関係の解説とサンプルページ
三流君ASP VBScript関数の解説とサンプル



三流君ASPで遊ぶ、失敗する