|
|
2進数 を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードは2進数 です。
<%@LANGUAGE=VBScript%>
<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>2進数文字列を受け取りHEX16進文字列を返す(頭０を＋する)</title>
</head>
<body>
<h1>2進数文字列を受け取りHEX16進文字列を返す(頭０を＋する)</h1>
自作した2進数文字列から16進数文字列への変換ルーチンを呼んでます。<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)
'関数を呼んで、16進数に変換して表示する
Response.Write "<br>16進数に変換すると<br>"
Response.Write STR2toHEX16(CHK_DATA) & "<br>です<HR>"
Else
CHK_DATA = "11110101"
End If
%>
テストデータの入力<br>
<FORM ACTION="test094-2.asp" METHOD="POST">
調査したい2進数の文字列を入力してください。<br>
<INPUT TYPE="text" SIZE="20" NAME="DATA" VALUE="<%=CHK_DATA%>">
<br><INPUT TYPE="submit" VALUE="変換開始"><br>
↑いろいろと遊んでみてください↑
</FORM>
<br>
</body>
</html>
<%
'2進文字列を受け取り16進文字列を返す
Function STR2toHEX16(str2)
Dim strHEX
Dim n 'ループカウンタ
Dim i 'ループのカウンタ
Dim n8421 '8 4 2 1の数値計算用
Dim nBYTE
'頭４文字単位かチェックする
n = Len(str2) Mod 4 '足りない文字数を計算する
If n <> 0 Then
str2 = String(4 - n, "0") & str2 '頭に文字０を追加する
End If
strHEX = "" '結果のエリアを初期化する
'文字数分ループする
For n = 1 To Len(str2) Step 4 '４文字(1バイト)単位にループを作る
n8421 = 8 '初期値に８を代入する(上から計算したいので)
nBYTE = 0 '1バイト計算用変数を初期化
For i = 0 To 3 '４回まわるよ(4ビット分)
'ビットが立っているかチェックする
If Mid(str2, n + i, 1) = "1" Then
nBYTE = nBYTE + n8421 'ビットに対応した数値を＋する
End If
'次のビットを計算したいので２で割る
n8421 = n8421 / 2
Next
'計算して、１倍との数値が完成したので１６進文字にしてセットする
strHEX = strHEX & Hex(nBYTE)
Next
'リターン値をセットして関数を抜ける
STR2toHEX16 = strHEX
End Function
%>
| 商品:楽器関係を紹介(広告)
楽器ほか →の人気
-
ティアック LINE6 デジタルワイヤレスマイクシステム (ハンドマイク 5月15日 最近販売
-
GATOR / ゲーター GL-TRUMPET-A ( GLTRUMPE 5月15日 伸び率UP
-
Schecter WET VIBES (ウェットヴァイブス) WV-26 5月14日 最近販売
-
CNB EPC-120 SIL EP 7インチレコードケース → 5月14日 伸び率UP
-
Line 6 Pod X3 → 5月13日 最近販売
-
ESP CL-8SA SID 明希 Model Guitar ＆ Bas 5月13日 伸び率UP
-
Ken L'Arc~en~Ciel ”Golf Rag baby Pic 5月12日 最近販売
-
レコード針 5月12日 伸び率UP
続き(一覧)を見る
|