プロフィール

pueblo del script
作者
azul-palazzo
作者プロフィール
業務ＰＧ暦６年、趣味のＰＧは１０年以上の微妙な中堅プログラマ。言語はVB, VB.NET(ASP.NETも込), Java, JSP。WSHはオフィシャルなEngineであるVBScript, JScript両方をカバー。最近はRubyやDMonkeyをかじろうかなと考えている。あとネコアレルギーの疑いも何のその、無類のネコ好き。
メッセージを送る

»プロフィール

更新情報

2009/09/10 記事new
JScript.NETの型キャスト
2009/08/28 記事
JScriptで無名ファンクションを使用する
2009/07/31 記事
MS Agentの設定ダイアログを表示する
2009/07/21 記事
マクロにWSHが使用できるエディタMeryって、どこかで見たような・・・
2009/07/17 記事
HTAのウィンドウサイズの設定はどこで行うか
2009/07/10 記事
ローカル環境でもJSONデータを吸い上げ
2009/07/02 記事
Firefox 3.0.x系統のCanvasオブジェクトでは、なぜかテキスト描画系のメソッドが実装されておらず
2009/06/26 記事
VxEditorでIniファイルセクションのエントリを列挙
2009/06/05 記事
IE拡張メニューのキャラクタセットはUTF-8の方がよい
2009/05/15 記事
HTML Application(HTA)にもXPテーマを適用したい

»更新情報一覧へ

マイサイト

blu-nero
Como Esta Senorita


お知らせ

»お知らせ一覧へ

おすすめ記事

JScript.NETの型キャスト

JScript.NET

2009/09/10 00:51

C#などは、

int a;
long b = 100;

a = (int)b;

という感じなのに対し、JScript.NETは

var a : int;
var b : long = 100;

a = int(b);

とカッコの括りが逆で、他言語に入れ込んでいると結構間違えます。

この記事の »コメント 一覧

マクロにWSHが使用できるエディタMeryって、どこかで見たような・・・

EmEditor

2009/07/21 23:53

窓の杜の記事を見て導入してみたところ、あれ？どこかで見たことのあるインターフェースの気が・・・。

確かにMeryの改変履歴にもアプリケーションの名称を変更したという旨が記載されており、その見たことのあるエディタの改変履歴も並べてみたところ、見事に一致しました。

ああ、旧mEditorですね。

最近、改変履歴を聞いていなかったので、どうしたのかなと思っていましたが。

使いやすいエディタなので、これからもよろしくです。

この記事の »コメント 一覧

HTAのウィンドウサイズの設定はどこで行うか

HTA

2009/07/17 02:40

HTAの場合、ウィンドウのリサイズの位置が悪いと描画モーションは結構目立ちます。
少なくともwindow_onloadに記述するのはよくありません。
では、どこに記述すればよいのでしょうか。
それは処理の頭付近であればどこでもよいのですが、HTMLの構文的にHEADタグに入ったら、すぐにSCRIPTタグを記述してその中に入れるのがベターでしょう。

<html>
<head>
<script type="text/jscript" >
<!--

window.resizeTo(500, 300);    //  ウィンドウサイズ設定
window.moveTo(300, 400);      //  ウィンドウ移動

//-->
</script>
</head>
</html>

この記事の »コメント 一覧

ローカル環境でもJSONデータを吸い上げ

AJAX

2009/07/10 02:06

HTTPRequestからデータを取得する部分をローカルファイルに置き換えただけです。

次のようなデータを吸い上げてみましょう。

jsdic.json

({
    sabu:({
            name:"Saburo",
            value:460
         }),
    taro:({
            name:"Taro",
            value:580
         }),
    hana:({
            name:"Hanako",
            value:240
            }),
    sanshi:({
            name:"Sanshiro",
            value:790
         })
})

データを吸い上げるプログラムソースはこちらです。

var inDat = "";
var dat = {};

//    データソースをテキストファイルとして取得
inDat = new ActiveXObject("Scripting.FileSystemObject").
    OpenTextFile("jsdic.json").ReadAll();

//    evalメソッドでデータソースを連想配列へキャスト
dat = eval(inDat);

//    取込内容の表示
for(e in dat)
    WScript.Echo(e + "\t" + dat[e].name + "\t" + dat[e].value);

よくよく考えると、以前に紹介したevalメソッドでインクルード紛いの事をするのと大差はありませんね。

あと、出力部分を見ての通り、出力はWSHベースで記述してありますので、ブラウザベースで試される方はdocument.writeなどに置き換えて下さい。

この記事の »トラックバック/コメント 一覧

HTML Application(HTA)にもXPテーマを適用したい

HTA

2009/05/15 05:13

HTAは細かいツールが作れて便利なのですが、WindowsXPで起動した際にHTAだけが旧来のインターフェースの外観となってのっぺりして浮いてしまっている感は否めません。

そこで、HTAの先頭付近に次のMETAタグを一筆加えるだけで、HTAにもXPテーマが適用できます。

<META HTTP-EQUIV="MSThemeCompatible" CONTENT="No">

これ、単純明快ながら非常に助かります。

参照URL
ビジュアル スタイルを HTML コンテンツと共に使用する

この記事の »コメント 一覧

JScriptで配列のシャッフル(Fisher-Yates for JScript)

JScript

2009/04/21 00:00

PerlにはFisher-Yatesという配列をシャッフルする有名なアルゴリズムがあるのですが、これをJScriptに移植してみました。

//  配列を拡張
Array.prototype.shuffule = function(){
    
    var l = this.length;     //  要素数
    var i;                   //  ループ用
    var wk;                  //  ソート用のワーク
    
    //  配列の要素が尽きるまでループ
    while(--l){
        
        i = Math.floor( Math.random() * (l + 1) );
        
        if(i == l) continue;
        
        //  要素の入替
        wk = this[i];
        this[i] = this[l];
        this[l] = wk;
    
    }
    
}


//  メイン処理
function main(){

    var z = [
              0, 1, 2, 3, 4,
              5, 6, 7, 8, 9
          ];
    
    var i = 0;
    
    try{
        
        //  メイン処理
        
        //  これは初期状態
        WScript.Echo(z);
        
        //  検証用に数回シャッフルする
        for(i = 1; i <= 5; i++){
        
            z.shuffule();
            
            WScript.Echo(z);
            
        }
        
    }catch(ex){
        
        //  例外処理
        
        WScript.Echo(ex.description);
        
        
    }finally{
    
        //  終了処理
        
    }
    
};
main();

テストデータの作成とかに役立つかな。

この記事の »コメント 一覧

WSHで実用的な乱数を取る

WSH

2009/04/17 00:00

以前に乱数系列の初期化方法を載せましたが、今度は実用的な乱数の使い方を載せる事にしましょう。

乱数とは単純明快に説明しますと、「サイコロ」ですね。何面でも作成できるような。
では乱数がどのような所で使用されているかと言いますと、１番身近なのはゲームですね。
例えば、勇者の攻撃力が10でスライムの守備力が5で、モンスターに与えるダメージが単純に、

攻撃力−守備力

で求められる場合、 スライムに与えるダメージは常に5ではないですよね？
結構3〜6ぐらいなどのばらつきがあるはずです。
このばらつきを発生させているのが乱数なのです。

よって、実際にはこのような式になるはずです。

(攻撃力−守備力)＋乱数

さて、乱数の取り方ですが、乱数系の関数の実行結果は基本的に小数で返されるので、いざ使おうとしても使いにくいのが現状なので、これを整数化するようにしましょう。

次の例では、１から10までの範囲で乱数を取ります。

[VBScript]

Const MAXVALUE = 10     'As Long

Randomize Time()

WScript.Echo CInt(Rnd(1) * MAXVALUE + 1)

[JScript]

var MAXVALUE = 10;

WScript.Echo( Math.ceil(Math.random() * MAXVALUE) );

実際に使用する場合は、MAXVALUEの値は自分が欲しい値に書き換えて下さい。
あと、VBScriptで使用する場合は以前にもお話しましたように、Randomizeステートメントで乱数系列を初期化するのをお忘れずに。

この記事の »コメント 一覧

.NET Framework 2.0で派生クラスを使用したJScript.NETソースをビルドしたい

JScript.NET

2009/04/16 05:55

タイトルの件でハマっていましたが、Accessibilityというアセンブリが必須となるようです。

jsc /r:Accessibility hoge.jsd

よって、イベントを使用するプログラムはすべて既出のように記述することになります。
例えば、その代表的なものがGUIプログラムですね。あれは必ずイベントが必要になりますから。
最低でも次のような記述が必須となるでしょう。

jsc /t:winexe /r:Accessibility hoge.jsd

この記事の »コメント 一覧

Microsoft CLR デバッガを用いる JScript.NET のデバッグ

JScript.NET

2009/04/07 23:38

まずはMicrosoft CLR デバッガを入手します。Microsoft CLR デバッガはVisual Studio、もしくは.NET SDKに同梱されているので、いずれかをインストールしましょう。Visual Studioを使用する場合はStandard版以上をインストールして下さい。Express版はＮＧです。こちらはMicrosoft CLR デバッガはおろか、コマンドラインツールはついてきません。

インストールが終わったら、デバッグしたいファイルをデバッグ情報付でコンパイルしましょう。
コマンドラインは次のような感じです。

jsc /debug hoge.js


エラーなくコンパイルが通ったら、アセンブリ(EXE or DLL)、デバッグ情報ファイル(PDB)の２ファイルが存在することを確認して下さい。既出の例ならば、hoge.exeとhoge.pdbの2ファイルが作成されることになります。

コンパイルが終わったら、Microsoft CLR デバッガを起動します。
起動したら、「デバッグ」−「デバッグするプログラム」と辿り、先程生成したアセンブリを選択します。
更にソリューションのツリーにアセンブリのソースをドロップします。

これで準備は完了です。

後はVisual Studioと操作は同じです。F5でプログラムの開始、F10でステップ実行、F11でステップインetc・・・。
クイックウォッチで変数の内容をチェックできる辺りも同様です。

確かにJScript.NETのWebアプリを除く、GUI，CUIアプリケーションはVisual Studioに非対応ですが、Microsoft CLR デバッガでVisual Studioに近いデバッグを行うことが出来るので、コンパイルしてしまえば、後は何とかなるような感じでしょう。

実質、JScript.NET専用のエディタやIDEは存在しませんので、あまり凝ったプログラムを作ろうとすると、MSDNを引きながらということになるので、そちらの方ではずいぶん苦労しそうですが。

最近、IronPython Studioなんていう、IronPython専用のIDEを見つけたので、親切な誰かサンが同じようなJScript.NET専用のIDEを作ってくれないかなとか思ったりします。

この記事の »コメント 一覧

Accessマクロを使ってステータスバー領域をプログレスバーとして利用するサンプル

OfficeVBA

2009/03/17 00:00

ひとまずマクロのソースを載せておきます。

Version =196611
ColumnsShown =0
Begin
    Action ="RunCode"
    Comment ="ステータスバー領域をクリア"
    Argument ="SysCmd (5)"
End
Begin
End
Begin
    Action ="RunCode"
    Comment ="プログレスバーを初期化"
    Argument ="SysCmd (1, \"Wait Working･･･\",100)"
End
Begin
End
Begin
    Action ="RunCode"
    Comment ="ウェイト"
    Argument ="vbSleep (1000)"
End
Begin
End
Begin
    Action ="RunCode"
    Comment ="値をセット"
    Argument ="SysCmd (2, 33)"
End
Begin
End
Begin
    Action ="RunCode"
    Comment ="ウェイト"
    Argument ="vbSleep (1000)"
End
Begin
End
Begin
    Action ="RunCode"
    Comment ="値をセット"
    Argument ="SysCmd (2, 66)"
End
Begin
End
Begin
    Action ="RunCode"
    Comment ="ウェイト"
    Argument ="vbSleep (1000)"
End
Begin
End
Begin
    Action ="RunCode"
    Comment ="値をセット"
    Argument ="SysCmd (2, 100)"
End

サンプルを試す際は既出のソースをAccessVBAの隠しメソッドであるLoadFromTextメソッドで吸い上げてAccessに取り込んで下さい。

あと補助用のVBモジュールです。 
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Function vbSleep(ByVal argWait As Long)
    Sleep argWait
End Function

処理としては１秒ごとに進捗を進め、3秒後に100%となり処理が完了という流れになります。

さて、まず頭から処理を説明していくと、まず、SysCmd (5)でステータスバー領域を明示的にクリアします。これはステータスバー領域をテキスト表示する場合でもプログレスバー表示する場合でも同様のようです。
次にSysCmd (1, "Wait Working･･･",100)でプログレスバーとしての初期化を行います。
第２引数はプログレスバーの横に表示するメッセージで進捗が進んでいく間は固定となります。次の第３引数は進捗がMAXになった場合の値を示します。ここは任意ですが、今回はパーセントのイメージで使用したいので、100を指定しました。
あとは１秒ごとにSysCmd (2, x)で進捗を進め、３秒経つと進捗が100%になり完了です。

この記事の »コメント 一覧

新着記事

JScript.NETの型キャスト

JScript.NET

2009/09/10 00:51

C#などは、

int a;
long b = 100;

a = (int)b;

という感じなのに対し、JScript.NETは

var a : int;
var b : long = 100;

a = int(b);

とカッコの括りが逆で、他言語に入れ込んでいると結構間違えます。

この記事の »コメント 一覧

JScriptで無名ファンクションを使用する

JScript

2009/08/28 01:53

これが、

function main(){
    WScript.Echo("Hello");
}
main();

このように書き換えられます。

(function (){
    WScript.Echo("Hello");
})();

ブックマークレットでもよく使われていますね。

ただし、他にファンクションが存在すると、うまく動作しない場合があるので、使う場面はそれなりに限られてくるでしょう。

この記事の »コメント 一覧

MS Agentの設定ダイアログを表示する

MS Agent

2009/07/31 02:01 

[JScript]

var AgentCtl;       //As Agent.Control.2

AgentCtl = new ActiveXObject("Agent.Control.2");

AgentCtl.Connected = true;
AgentCtl.PropertySheet.Visible = true;

//  スクリプトの終了が落ちると、ダイアログも落ちるので、ダイアログのクローズを監視する
while(1){

    if(!AgentCtl.PropertySheet.Visible) break;
    
    WScript.Sleep(1000);

}

AgentCtl = null;

別にダイアログに限った話ではありませんが、WSHからMSAgentのオブジェクトを使う際は、MSAgentの処理の終了待ちをしなければなりません。

この記事の »トラックバック/コメント 一覧

マクロにWSHが使用できるエディタMeryって、どこかで見たような・・・

EmEditor

2009/07/21 23:53

窓の杜の記事を見て導入してみたところ、あれ？どこかで見たことのあるインターフェースの気が・・・。

確かにMeryの改変履歴にもアプリケーションの名称を変更したという旨が記載されており、その見たことのあるエディタの改変履歴も並べてみたところ、見事に一致しました。

ああ、旧mEditorですね。

最近、改変履歴を聞いていなかったので、どうしたのかなと思っていましたが。

使いやすいエディタなので、これからもよろしくです。

この記事の »コメント 一覧

HTAのウィンドウサイズの設定はどこで行うか

HTA

2009/07/17 02:40

HTAの場合、ウィンドウのリサイズの位置が悪いと描画モーションは結構目立ちます。
少なくともwindow_onloadに記述するのはよくありません。
では、どこに記述すればよいのでしょうか。
それは処理の頭付近であればどこでもよいのですが、HTMLの構文的にHEADタグに入ったら、すぐにSCRIPTタグを記述してその中に入れるのがベターでしょう。

<html>
<head>
<script type="text/jscript" >
<!--

window.resizeTo(500, 300);    //  ウィンドウサイズ設定
window.moveTo(300, 400);      //  ウィンドウ移動

//-->
</script>
</head>
</html>

この記事の »コメント 一覧

»記事一覧へ