Macro/投稿/31 の変更点

http://sakura.qp.land.to/?Macro%2F%C5%EA%B9%C6%2F31


Top > Macro > 投稿 > 31
  • 追加された行はこの色です。
  • 削除された行はこの色です。
  • Macro/投稿/31 へ行く。

* 日時文字列を書き出し [#rbe5fc39]
-ページ: [[Macro/投稿]]
-作者: [[すい]]
-カテゴリー: ppa
-投稿日: 2004-12-14 (火) 04:59:16

** メッセージ [#m567c59c]
#code(pascal){{
// 実行には PPA.DLL が必須です。sakura.exe と同じフォルダに PPA.DLL を入れておいてください。
// マクロファイルの拡張子は .PPA でなくてはなりません。
// TAB=4

// 共通設定→[書式] にて
//
// 日付書式 
// ○ 標準(S) ◎ カスタム(C) D[yyyy'/'MM'/'dd'('ddd')'  ]
//
// 時刻書式
// ○ 標準(S) ◎ カスタム(U) T[HH':'mm':'ss             ]
//
// に設定しておくこと。

var
        str1,str2:String;        // 文字列型変数 str1,str2 を用意
        wk:String;                        // 文字列型変数 wk を用意
        pts,pte:Integer;        // 整数数値型変数 pts,pte を用意
begin
//        str1 := S_ExpandParameter('$d $t');        // 現在日時の文字列を str1 に取得・格納する
        str1 := S_ExpandParameter('$D $T');        // 開いているファイルのタイムスタンプの文字列を str1 に取得・格納する

        // str1 内部の (〜) 部の先頭2バイトを wk に取り出す。
        pts := Pos('(',str1);        // '(' を探して位置を pts に格納する
        pte := Pos(')',str1);        // ')' を探して位置を pte に格納する
        if( (pts = 0) or (pte = 0) )        then        Exit;        // '(' ')' どちらかが見つからなければマクロ終了(中断)
        wk := Copy(str1,pts+1,2);        // '(' の次の位置から 2バイトを wk に取得

        // wk を英曜日に変換する
        if     (wk = '日')        then        wk := 'Sun'
        else if(wk = '月')        then        wk := 'Mon'
        else if(wk = '火')        then        wk := 'Tue'
        else if(wk = '水')        then        wk := 'Wed'
        else if(wk = '木')        then        wk := 'Thu'
        else if(wk = '金')        then        wk := 'Fri'
        else if(wk = '土')        then        wk := 'Sat'
        ;

        // 出力する文字列 str2 を用意する。
        // str2 := 「先頭 〜 '(' まで」+「英曜日文字列」+「 '(' 〜 文字列末尾まで」
        str2 := Copy(str1,1,pts) + wk + Copy(str1,pte,Length(str1));

//        MessageBox(str2,'',0);        // ダイアログ表示
        S_InsText( str2 );                // 書き出す

end;
}}

----

#comment

    ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS