>サクラエディタでタイムスタンプのマクロはどうやって
>作ったらいいのでしょうか？
そもそも Tigerさん がおっしゃる「タイムスタンプのマクロ」というのは どういう物でしょう？
「タイムスタンプ」をどうしたいのやら。
単に日時文字列を書き出せば良いのなら↓こんな
-----
// 実行には 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;
-----