Macro/投稿/31
をテンプレートにして作成
Land.to
[
ホーム
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
* 日時文字列を書き出し [#rbe5fc39]
-ページ: [[Macro/投稿]]
-作者: [[すい]]
-カテゴリー: ppa
-投稿日: 2004-12-14 (火) 04:59:16
** メッセージ [#m567c59c]
#code(pascal){{
// 実行には PPA.DLL が必須です。sakura.exe と同じフォルダ...
// マクロファイルの拡張子は .PPA でなくてはなりません。
// TAB=4
// 共通設定→[書式] にて
//
// 日付書式
// ○ 標準(S) ◎ カスタム(C) D[yyyy'/'MM'/'dd'('ddd')' ]
//
// 時刻書式
// ○ 標準(S) ◎ カスタム(U) T[HH':'mm':'ss ]
//
// に設定しておくこと。
var
str1,str2:String; // 文字列型変数 str1,str...
wk:String; // 文字列型変数...
pts,pte:Integer; // 整数数値型変数 pts,pte...
begin
// str1 := S_ExpandParameter('$d $t'); // ...
str1 := S_ExpandParameter('$D $T'); // 開...
// str1 内部の (〜) 部の先頭2バイトを wk に取り出...
pts := Pos('(',str1); // '(' を探して位置...
pte := Pos(')',str1); // ')' を探して位置...
if( (pts = 0) or (pte = 0) ) then E...
wk := Copy(str1,pts+1,2); // '(' の次の位...
// 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,Len...
// MessageBox(str2,'',0); // ダイアログ表示
S_InsText( str2 ); // 書き出す
end;
}}
----
#comment
終了行:
* 日時文字列を書き出し [#rbe5fc39]
-ページ: [[Macro/投稿]]
-作者: [[すい]]
-カテゴリー: ppa
-投稿日: 2004-12-14 (火) 04:59:16
** メッセージ [#m567c59c]
#code(pascal){{
// 実行には PPA.DLL が必須です。sakura.exe と同じフォルダ...
// マクロファイルの拡張子は .PPA でなくてはなりません。
// TAB=4
// 共通設定→[書式] にて
//
// 日付書式
// ○ 標準(S) ◎ カスタム(C) D[yyyy'/'MM'/'dd'('ddd')' ]
//
// 時刻書式
// ○ 標準(S) ◎ カスタム(U) T[HH':'mm':'ss ]
//
// に設定しておくこと。
var
str1,str2:String; // 文字列型変数 str1,str...
wk:String; // 文字列型変数...
pts,pte:Integer; // 整数数値型変数 pts,pte...
begin
// str1 := S_ExpandParameter('$d $t'); // ...
str1 := S_ExpandParameter('$D $T'); // 開...
// str1 内部の (〜) 部の先頭2バイトを wk に取り出...
pts := Pos('(',str1); // '(' を探して位置...
pte := Pos(')',str1); // ')' を探して位置...
if( (pts = 0) or (pte = 0) ) then E...
wk := Copy(str1,pts+1,2); // '(' の次の位...
// 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,Len...
// MessageBox(str2,'',0); // ダイアログ表示
S_InsText( str2 ); // 書き出す
end;
}}
----
#comment
ページ名: