satocchiaブログ

キーワードサーチ

▼キーワード検索

プロフィール

satocchia

フォローする

カレンダー

お気に入りブログ

まだ登録されていません

コメント新着

tomoZo@ Re:Pale　Moon日本語化トラブル(06/06) はじめまして。 28.16.0でまたもや提供さ…

satocchia @ Re[1]:Pale　Moon日本語化トラブル(06/06) zui_9さんへ本日、確認しました。ようや…

zui_9 @ Re:Pale　Moon日本語化トラブル(06/06) 上記リンク「Githubのプロジェクト」の左…

わたなべ@ Re:powershellコンソール、見づらくありませんか？(08/26) 初めまして、この情報最高です！背景を白…

y__@ Re:uwscでGUIフォーム(05/12) UWSC 仮掲示板から飛んできました。 HTAで…

フリーページ

2018.12.19

N進数と十進変換

カテゴリ： UWSC

しろまささんブログに触発され、N進変換を書いてみました。siromasa進数には未対応。

ChangeRadix.uws

if Get_UWSC_Name="ChangeRadix.uws"
    //1121を36進法で表示→v5
    msgbox( NumbertoRadix( 1121, 36 ) )
    //36進数「v5」の10進表示→1121
    msgbox( RadixToNumber( "v5", 36 ) )
    //36進を超えるとエラー→空文字

endif

function    NumbertoRadix( n, r )
    com_err_ign
    with    createoleobj( "ScriptControl" )
        .language="JScript"
        .addCode( "function f(x,y){ return x.toString(y)}" )
        result=.CodeObject.f(n,r)
    endwith
    com_err_ret
    if com_err_flg
        result=""

fend

function    RadixToNumber( str, r )
    com_err_ign
    with    createoleobj( "ScriptControl" )
        .language="JScript"

        result=.CodeObject.f(str,r)
    endwith
    com_err_ret
    if com_err_flg
        result=""
    endif
fend

お気に入りの記事を「いいね！」で応援しよう