Classic ASPテストページです。 情報が古いので参考程度に読んだりテストしてみてください。

三流君(TOP) /ASPで遊ぶ /ASP記事一覧を見る

分類: [Form関係] /DB系ADOを使い( [Mdb接続] [CSV接続] [Excel接続]) /[ASPでTextFileを操作] /[VBScript関数ほか]

HEX16進文字列を受け取り2進数文字列を返す(例外エラー処理なし)

自作した16進数文字列から2進数文字列への変換ルーチンを呼んでます。
※詳細は、ソースと詳細解説のページを見てください。

受け取ったデータは
F2
2進数に変換すると
11110010
です
テストデータの入力
調査したい16進数の文字列を入力してください。

↑いろいろと遊んでみてください↑
※16進数に無い、5GとかH1など入力するとエラーになります。
エラーチェックぐらいしろよって感じですが・・・



2進数を使用したサンプル(ソースの紹介)

詳細解説は[http:/asp/backno/asp094.html]を見てください
下記、/cgi-bin/test/test094-1.aspのソース(中身)です

2進数 を 使った ソースコードを紹介する

表示色の説明:ASP VBScriptは <% 〜 %>
キーワードは2進数 です。 <%@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>HEX16進文字列を受け取り2進数文字列を返す(例外エラー処理なし)</title> </head> <body> <h1>HEX16進文字列を受け取り2進数文字列を返す(例外エラー処理なし)</h1> 自作した16進数文字列から2進数文字列への変換ルーチンを呼んでます。<br> ※詳細は、ソースと詳細解説のページを見てください。<br> <hr> <% 'Request.ServerVariables("REQUEST_METHOD")でPOST/GETを判断 If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'POST判断 CHK_DATA = Request.Form("DATA") 'データを変数に保存 Else 'GET 'Request.QueryStringの値を取出す CHK_DATA = Request.QueryString("DATA") 'データを変数を保存 End If '長さをチェックする If Len(CHK_DATA) <> 0 Then '文字が入っていたら Response.Write "受け取ったデータは<br>" Response.Write Server.HTMLEncode(CHK_DATA) '関数を呼んで、2進数に変換して表示する Response.Write "<br>2進数に変換すると<br>" Response.Write HEX16toSTR2(CHK_DATA) & "<br>です<HR>" Else CHK_DATA = "FFFF" End If %> テストデータの入力<br> <FORM ACTION="test094-1.asp" METHOD="POST"> 調査したい16進数の文字列を入力してください。<br> <INPUT TYPE="text" SIZE="8" NAME="DATA" VALUE="<%=CHK_DATA%>"> <INPUT TYPE="submit" VALUE="変換開始"><br> ↑いろいろと遊んでみてください↑ </FORM> ※16進数に無い、5GとかH1など入力するとエラーになります。<br> エラーチェックぐらいしろよって感じですが・・・<br> <br> </body> </html> <% 'HEX16進文字列を受け取り2進数文字列を返す Function HEX16toSTR2(strHEX) Dim n 'ループカウンタ Dim i 'ループのカウンタ Dim n8421 '8 4 2 1の数値計算用 Dim str2STR Dim nCHK str2STR = "" '結果のエリアを初期化する '文字数分ループする For n = 1 To Len(strHEX) nCHK = CInt("&h" & Mid(strHEX, n, 1)) 'n文字目を数値変換 n8421 = 8 '初期値に8を代入する(上からチェックしたいので) For i = 1 To 4 '4回まわるよ If (nCHK And n8421) = 0 Then 'Andでビットをチェックする str2STR = str2STR & "0" 'ビットは立ってないよ Else str2STR = str2STR & "1" 'ビットは立ってるよ End If '次のビットをチェックしたいので2で割る n8421 = n8421 / 2 Next Next 'リターン値をセットして終了 HEX16toSTR2 = str2STR End Function %>


Googleで関連項目を検索する

[キーワード:2進数] と サンプル|解説|Dim|Set で検索
↓で検索して他のページも確認してみてください。

Google

あれ?私のページが検索に載ってない(笑)一度お試しを(私のページに、また戻ってきてね(爆))

[Topへ戻る] −−>[ASP系のTOPへ戻る] −−>[記事一覧を見る]

リンク 三流君 ASP系 の 解説を項目ごとにまとめてみました

まぁ、基本はデータの受け取りかなぁ。
・[Form等を使用したデータのやり取り]・・・ASPと言っても、HTMLの入力フォームからデータを受け取ります。POSTやGETでやりとりを押さえますか。

次は、データの入出力 で ADOを使った(ADOで接続) と SQLの解説を少々
・[ADOでMdbファイルを使う]・・・MDBと接続して、簡単な追加・更新・削除を行った。
・[ADOでExcelと接続してみた]・・・.xlsと接続してSQLを使ってみた。
・[ADOでCSVと接続してみた]・・・.CSV テキストを読み出した。※更新・削除はできません

DBが使えるので、あまり使用しないけど、普通のテキストファイル処理
・[テキストファイル処理]・・・ファイルを開いて、書き込む。1行読み込みなどを軽く



VBScriptでFormat関数が無いなど、微妙にVBAと違うけど
[VBScript関数関係の説明]・・・少し、処理を書いてみた。
[その他処理サンプル]・・・あまり良いサンプル作れなかったけど。。。
何かの参考となれば幸いです。

その他:blogや広告↓
[日記的なblog]← あまり更新してないけど・・・
[永遠の下書き日記?]← 恥ずかしいのであまり載せてないけど・・・
[ひとりで掲示板?] ←一人で?掲示板?ぉぃぉぃ


[Topへ戻る] −−>[ASP系のTOPへ戻る] −−>[記事一覧を見る]

現在時刻は、2019/07/21 8:07:52です。