#author("2020-05-10T16:34:42+09:00;2020-05-10T16:33:54+09:00","","") #navi(../) * VBScriptで16進数文字列を10進数に変換する・&H, Execute [#j8c5c4c7] VBScriptで文字列で構成された16進数を10進数に変換する方法を以下に記します。~ 使用した関数はExecuteで、16進数を示す&Hの両方を使用して実現してます。 #contents #htmlinsertpcsp(win-top.html,win-sp.html) * 関連記事 [#t47163e6] -[[VBScriptで10進数を16進数に変換する・Hex>WSH/10進数を16進数に変換する・Hex]] * 16進数文字列を10進数に変換するサンプルコード [#k3264dce] 以下のVBScriptサンプルコードは16進数文字列を10進数に変換します。~ Execute関数に、文字列で構成した命令文を渡し実行しています。 #ref(Hex2Dec.zip) ''ファイル名:Hex2Dec.vbs'' Dim n1, n2, n3, h1, h2, h3 h1="F" h2="FF" h3="FFF" Execute ("n1 = &H" & h1) WScript.Echo h1 & "(Hex) = " & n1 & "(Dec)" Execute ("n2 = &H" & h2) WScript.Echo h2 & "(Hex) = " & n2 & "(Dec)" Execute ("n3 = &H" & h3) WScript.Echo h3 & "(Hex) = " & n3 & "(Dec)" * サンプルコード実行結果 [#n9684bef] 以下に上記のHex関数を使用したサンプルコードの実行結果を記します。 ** cscriptを使用して実行 [#cd893a19] cscriptコマンドを使用してコマンドプロンプト上で上記のExecute関数を使用したVBScriptを実行した出力結果です。 C:\Users\sakura\Desktop>cscript Hex2Dec.vbs Microsoft (R) Windows Script Host Version 5.8 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. F(Hex) = 15(Dec) FF(Hex) = 255(Dec) FFF(Hex) = 4095(Dec) ** ダブルクリックで実行 [#d19b0384] 上記のExecute関数を使用したVBScriptをダブルクリックで起動したときの出力結果です。 #ref(01.gif) #br #ref(02.gif) #br #ref(03.gif) 以上、VBScriptでExecute関数を使用し16進数を10進数に変換するサンプルコードでした。 #htmlinsertpcsp(win-btm.html,win-sp.html)