[過去ﾛｸﾞ] 【漏れは】猫でもわかる質問スレ【猫以下です】 (531ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

305(4): 2006/04/07(金)09:37 AAS
くそな質問だとは思うんですVBにおいて()
MOTMOVE0(という文字列をASCIIコードの１６進数に変換するプログラムって)
どうかけばいいのですかね？

ボタンを押したら任意の文字列が１６進数に変換されるプログラムがほしいんですが!()

---

306(2): 2006/04/07(金)12:15 AAS
' >>305
' こんな関数作って適宜呼べばいいっしょ。
' 接頭辞、接尾辞はお好みで
Function hexStr(str As String) As String
hexStr = "#" ' 接頭辞
For ic = 1 To Len(str)
hexStr = hexStr & Hex(Asc(Mid(str, ic)))
Next
' hexStr = hexStr & "h" ' 接尾辞
End Function
省4

---

318: 305 2006/04/09(日)16:41 AAS
パソコンが使えない環境にいたもので
お礼が遅くなってすみません！
>>306さん御親切にどうもありがとうございました！
やってみますね〜♪

---

326(1): 305 2006/04/10(月)16:32 AAS
すみません、また質問なんですが・・・

16進数に変換する以前に任意の文字列
たとえば GETCOMとすると　ASCII→((71 69 84 67 79 77)(10))
参照:外部ﾘﾝｸ[html]:e-words.jp
となりまして、それをすべて足すと447(10)になるんですが
この数字の下位2ビット 4 と　7　を抽出してさらに16進数に変換して
4 →　34(16) 7 →　37(16)　 を
接尾辞以前に加えて出力
例えば→((71 69 84 67 79 77)(10))→((47 45 54 43 4F 4D)(16))
となりますので、接頭、接尾辞を加えまして
省6

---

328: 305 2006/04/10(月)22:28 AAS
なんとかがんばってやっております。
ところで

Function DecStr(ByVal str As String) As String '10進数のSUMの下位2桁
Dim DecStr1 As String
Dim DecStr2 As String

For i = 1 To 8
DecStr = DecStr + (Asc(Mid(str, i)))
Next
DecStr = Hex(DecStr)

DecStr1 = Mid(DecStr, 2, 2)
省8

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 1.376s*