Latest comments replied to fujidig

fujidig's comment on ミリ秒まで含んだ時刻文字列

ミリ秒まで含んだ時刻文字列 (Nested Flatten)

あ、.roundしちゃだめだった。xx秒999500でxx秒1000とかなるよね

fujidig's comment on メソッドのフック

メソッドのフック (Nested Flatten)

すいません、さらにもう一つ。

define_method( method ) do |args|
は引数が0個や1個の場合でも配列で得るように
define_method( method ) do |*args|
の方がよいですね。

fujidig's comment on メソッドのフック

メソッドのフック (Nested Flatten)

あ、rescueした後、再度同じ例外を発生されるのを忘れていました＞＜
rescue Exception => e
after.call( self, args, result, e )
の後にraiseをつけます。

fujidig's comment on 文字変換表に基く文字列の変換

文字変換表に基く文字列の変換 (Nested Flatten)

引数の順序は逆の方がよいですね。

--- doukaku148.hsp.orig    Sat Feb 02 22:11:44 2008
+++ doukaku148.hsp    Sat Feb 02 22:11:29 2008
@@ -9,8 +9,8 @@
     tr1 = _tr1 : tr2 = _tr2
     tr_len = strlen( tr1 )
     repeat tr_len
-        c = peek(tr1, cnt)
-        palette peek(tr2,cnt), c, c, c, cnt==(tr_len-1)
+        c = peek(tr2, cnt)
+        palette peek(tr1,cnt), c, c, c, cnt==(tr_len-1)
     loop
     buffer 30, len, 1, 1
     repeat 256
@@ -24,4 +24,4 @@
     return text
 #global
 
-mes tr( "Hello world!!", "ABCDEFGHIJKLMNOPQRSTUVWXYZ", "abcdefghijklmnopqrstuvwxyz" )
\ No newline at end of file
+mes tr( "Hello world!!", "abcdefghijklmnopqrstuvwxyz", "ABCDEFGHIJKLMNOPQRSTUVWXYZ" )
\ No newline at end of file

[ diff ] [ download code ] ]

fujidig's comment on フォルダパス一覧のツリー構造への変換

フォルダパス一覧のツリー構造への変換 (Nested Flatten)

訂正。

54c54
<                 char *new_dirname = realloc( dirname, size );
---
>                 char *new_dirname = realloc( dirname, new_size );

[ diff ] [ download code ] ]

fujidig's comment on JPEGをGETして色反転して保存

JPEGをGETして色反転して保存 (Nested Flatten)

> これじゃあまりにアレなので、後ほどIImgCtxとhspcvを使ったきちんとしたのも投稿したいです。
というわけで投稿。

#include "hspcv.as"
#define IID_IImgCtx   "{3050f3d7-98b5-11cf-bb82-00aa00bdce0b}"
#define CLSID_IImgCtx "{3050f3d6-98b5-11cf-bb82-00aa00bdce0b}"

#usecom  ImgCtx IID_IImgCtx CLSID_IImgCtx
#comfunc IImgCtx_Load 3 wstr,int
#comfunc IImgCtx_GetStateInfo 8 var,var,int
#comfunc IImgCtx_StretchBlt 12 int,int,int,int,int,int,int,int,int,int

    load_url = "http://www.example.com/examle.jpg"
    save_file_name = "save.jpg"

    newcom pImage, ImgCtx
    IImgCtx_Load pImage, load_url, 0
    dim size, 4
    repeat
        IImgCtx_GetStateInfo pImage, flg, size, 1
        if ( flg & 0x00200000 )==0 : break
        wait 4
    loop
    IImgCtx_GetStateInfo pImage, flg, size, 0
    buffer 1, size(0), size(1)
    IImgCtx_StretchBlt pImage, hdc, 0, 0, size(0), size(1), 0, 0, size(0), size(1), 0xCC0020
    delcom pImage

    cvbuffer 0, size(0), size(1)
    cvputimg 0
    cvxors
    cvsave save_file_name, 0

[ HSP ] [ download code ] ]

fujidig's comment on コラッツ・角谷の問題

コラッツ・角谷の問題 (Nested Flatten)

環境を忘れていました。Pentium 4 CPU 2.40GHz / 512 MB RAM です。。

fujidig's comment on 税込み価格への修正

税込み価格への修正 (Nested Flatten)

searchdown2 で。

    disabledraw;
    begingroupundo;
    gofiletop;
    while( true ) {
        searchdown2 "[0-9]", regular;
        if( !result ) {
            break;
        }
        #figX = x;
        #figY = y;
        searchdown "[^0-9]", regular;
        if( !result ) {
            gofileend;
        }
        #figure = val( gettext( #figX, #figY, x, y ) );
        beginsel;
        moveto #figX, #figY;
        insert str( #figure * 105 / 100 );
    }
    endgroupundo;
    enabledraw;

[ 秀丸マクロ ] [ download code ] ]

fujidig's comment on /コメント/を取り除く

/*コメント*/を取り除く (Nested Flatten)

searchdown2 を使えばもっと簡潔にできましたね。

    disabledraw;
    begingroupundo;
    gofiletop;
    while( true ) {
        searchdown2 "/*";
        if ( !result ) {
            break;
        }
        #commentStartX = x;
        #commentStartY = y;
        movetolineno column + 1 + strlen( "/*" ), lineno;
        searchdown2 "*/";
        if( !result ) {
            gofileend;
        }
        movetolineno column + 1 + strlen( "*/" ), lineno;
        beginsel;
        moveto #commentStartX, #commentStartY;
        delete;
    }
    endgroupundo;
    enabledraw;

[ 秀丸マクロ ] [ download code ] ]

fujidig's comment on 文字列の反転

文字列の反転 (Nested Flatten)

unichar 、 unicode でなく、 char と ascii でもマルチバイト文字に対応していましたので以下のコードでも動きました。

    call reverse_string "Hello";
    message $$return;
    call reverse_string "こんにちは";
    message $$return;
    call reverse_string "濁点(だくてん)";
    message $$return;
    endmacro;

reverse_string:
    $$result = "";
    while( $$1 != "" ) {
        $$char = char( ascii( $$1 ) );
        $$result = $$char + $$result;
        $$1 = rightstr( $$1, strlen( $$1 ) - strlen( $$char ) );
    }
    return $$result;

[ 秀丸マクロ ] [ download code ] ]

Latest comments replied to fujidig

fujidig's comment on ミリ秒まで含んだ時刻文字列

fujidig's comment on メソッドのフック

fujidig's comment on メソッドのフック

fujidig's comment on 文字変換表に基く文字列の変換

fujidig's comment on フォルダパス一覧のツリー構造への変換

fujidig's comment on JPEGをGETして色反転して保存

fujidig's comment on コラッツ・角谷の問題

fujidig's comment on 税込み価格への修正

fujidig's comment on /*コメント*/を取り除く

fujidig's comment on 文字列の反転

fujidig's comment on /コメント/を取り除く