Macro/投稿/31

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


Top > Macro > 投稿 > 31

日時文字列を書き出し

  • ページ: Macro/投稿
  • 作者: すい?
  • カテゴリー: ppa
  • 投稿日: 2004-12-14 (火) 04:59:16

メッセージ

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
// 実行には 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;


URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White

リロード   新規 編集 凍結 差分 添付 複製 名前変更   ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: 2006-07-29 (土) 23:55:02 (4405d)