[5743] 整形の実現　
▽ 2007/1/14 (日) 05:46:09 しまけん
Mozilla/5.0 (Windows; U; Windows NT 5.1; ja; rv:1.8.1.1) Gecko/20061204 Firefox/2.0.0.1
Eclipse の format 機能のように、事前設定通りに整形するにはどうしたらいいでしょうか？

具体的に言うと、

Select USER_NAME, USER_id 
from
 t_users
where sal >     10 and entry_date = (select entry_date from t_date where id = '9')

を

SELECT user_name
     , user_id
  FROM t_users
 WHERE sal > 10
   AND entry_date = ( SELECT entry_date
                        FROM t_date
                       WHERE id = '9'
                    )

というようにしたいです。
マクロを組むしかないですかね？

[5745] RE: 整形の実現　
▽ 2007/1/16 (火) 01:51:37 maru
INCM1.23a
>Eclipse の format 機能のように、事前設定通りに整形するにはどうしたらいいでしょうか？
>具体的に言うと〜
なかなかお利巧な機能ですね。地道にマクロで挑戦するしか…。
[5765] Re2: 整形の実現　
▽ 2007/1/25 (木) 12:06:29 すす
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; InfoPath.1; .NET CLR 2.0.50727; Lunascape 3.0.4)
▼ maruさん
> なかなかお利巧な機能ですね。地道にマクロで挑戦するしか…。
ppaマクロ初心者が書いたらこんなになりました。
びっくりするぐらい遅いです。

var
        mess:String;                                                // メッセージ出力用変数
        org_str,target,w_str:String;                // 文字保存用変数
        tmp1,tmp2,w_tmp:String;                                // 文字判定用ワーク変数
        CRLF,TAB:String;                                        // 制御コード保持用変数
        byte:Integer;                                                // 変換対象文字列サイズ
        pt:Integer;                                                        // 変換対象文字列ポインター
        t_flg:Integer;                                                // インデント数
        i_cnt:Integer;                                                // インデント挿入用カウンター
        f_flg:Integer;                                                // '('のあと副問い合わせがある場合')'でインデント数を-2するフラグ
        s_flg:Integer;                                                // '('の前にキーワードがある場合改行するフラグ

begin
        CRLF  := '
';
        TAB  := '        ';
        org_str := S_GetSelectedString(0);
        byte := Length(org_str);
        if (byte=0) then
                begin
                        S_SelectAll();
                        org_str := S_GetSelectedString(0);
                        byte := Length(org_str);
                end
        ;
        pt := 1;
        t_flg := 0;
        f_flg := 0;
        s_flg := 0;

        target := '';
        w_str := '';

        while (pt <= byte) do
        begin
                tmp1 := Copy(org_str,pt,1);
                tmp2 := Copy(org_str,pt,2);
                if ((tmp1=' ') or (tmp1=TAB) or (tmp1=',') or (tmp2 = CRLF) or (tmp1='(') or (tmp1=')') or (tmp1 = ';') ) then
                        begin
[5766] Re2: 整形の実現　
▽ 2007/1/25 (木) 12:44:10 すす
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; InfoPath.1; .NET CLR 2.0.50727; Lunascape 3.0.4)
続き
                                w_tmp := LowerCase(Trim(w_str));
                                if ((w_tmp='select') or (w_tmp='update') or (w_tmp='commit') or (w_tmp='rollback') or (w_tmp='insert') or (w_tmp='delete') or (w_tmp='create') or (w_tmp='drop') or (w_tmp='truncate') or (w_tmp='alter')) then
                                        begin
                                                s_flg := 0;
                                                if (f_flg<>0) then f_flg := 2;
                                                i_cnt := 0;
                                                while (i_cnt < t_flg) do
                                                begin
                                                        target := target + TAB;
                                                        i_cnt := i_cnt + 1;
                                                end;
                                                if ((w_tmp='select') or (w_tmp='update') or (w_tmp='commit') or (w_tmp='rollback')) then
                                                        begin
                                                                t_flg := t_flg + 1;
                                                                target := target + Trim(w_str) + CRLF;
                                                        end
                                                else
                                                        begin
                                                                target := target + Trim(w_str) + ' ';
                                                        end
                                                ;
                                        end
                                else if ((w_tmp='values') or (w_tmp='set') or (w_tmp='from') or (w_tmp='where') or (w_tmp='having') or (w_tmp='group') or (w_tmp='order')) then
                                        begin
                                                if (w_tmp='values') then
                                                        begin
                                                                 s_flg := 2;
                                                         end
                                                 else
[5767] Re2: 整形の実現　
▽ 2007/1/25 (木) 12:45:02 すす
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; InfoPath.1; .NET CLR 2.0.50727; Lunascape 3.0.4)
続き
                                                         begin
                                                                 s_flg := 0;
                                                                target := target + CRLF;
                                                         end
                                                 ;
                                                if (f_flg<>0) then f_flg := 2;
                                                t_flg := t_flg - 1;
                                                i_cnt := 0;
                                                while (i_cnt < t_flg) do
                                                begin
                                                        target := target + TAB;
                                                        i_cnt := i_cnt + 1;
                                                end;
                                                if ((w_tmp='group') or (w_tmp='order')) then
                                                        begin
                                                                target := target + Trim(w_str) + ' ';
                                                        end
                                                else
                                                        begin
                                                                t_flg := t_flg + 1;
                                                                target := target + Trim(w_str) + CRLF;
                                                        end
                                                ;
                                        end
                                else if ((w_tmp='and') or (w_tmp='or') or (w_tmp='table') or (w_tmp='view') or (w_tmp='index') or (w_tmp='by') or (w_tmp='into')) then
                                        begin
                                                s_flg := 0;
                                                if ((w_tmp='table') or (w_tmp='view') or (w_tmp='index')) then
                                                        begin
                                                                target :=target + Trim(w_str) + ' ';
                                                        end
                                                else if ((w_tmp='by') or (w_tmp='into')) then
                                                        begin
                                                                target := target + Trim(w_str) + CRLF;
                                                                t_flg := t_flg + 1;
                                                        end
[5768] Re2: 整形の実現　
▽ 2007/1/25 (木) 12:45:49 すす
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; InfoPath.1; .NET CLR 2.0.50727; Lunascape 3.0.4)
続き

                                                else
                                                        begin
                                                                target :=target + ' ' + Trim(w_str) + CRLF;
                                                        end
                                                ;
                                        end
                                else if (tmp1=',') then
                                        begin
                                                s_flg := 2;
                                                i_cnt := 0;
                                                while (i_cnt < t_flg) do
                                                begin
                                                        target := target + TAB;
                                                        i_cnt := i_cnt + 1;
                                                end;
                                                target := target + Trim(w_str) + tmp1 + CRLF;
                                        end
                                else if (tmp1='(') then
                                        begin
                                                f_flg := 1;
                                                if (s_flg=1) then target := target + CRLF;
                                                if (Length(w_tmp) <> 0) then
                                                        begin
                                                                s_flg := 1;
                                                                i_cnt := 0;
                                                                while (i_cnt < t_flg) do
                                                                begin
                                                                        target := target + TAB;
                                                                        i_cnt := i_cnt + 1;
                                                                end;
                                                                target := target + Trim(w_str) + CRLF;
                                                        end
                                                ;
                                                i_cnt := 0;
                                                while (i_cnt < t_flg) do
                                                begin
                                                        target := target + TAB;
                                                        i_cnt := i_cnt + 1;
                                                end;
                                                t_flg := t_flg + 1;
                                                target := target + tmp1 + CRLF;
                                        end
                                else if (tmp1=')') then
[5769] Re2: 整形の実現　
▽ 2007/1/25 (木) 12:46:42 すす
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; InfoPath.1; .NET CLR 2.0.50727; Lunascape 3.0.4)
続き
                                        begin
                                                if (Length(w_tmp) <> 0) then
                                                        begin
                                                                i_cnt := 0;
                                                                while (i_cnt < t_flg) do
                                                                begin
                                                                        target := target + TAB;
                                                                        i_cnt := i_cnt + 1;
                                                                end;
                                                        end
                                                ;
                                                target := target + Trim(w_str) + CRLF;
// mess := 'f_flg[' +inttostr(f_flg) + ']' + target + CRLF;
// MessageBox(mess,'選択中の文字列',0);
                                                if (f_flg=2) then t_flg := t_flg - 2 else t_flg := t_flg - 1;
                                                i_cnt := 0;
                                                while (i_cnt < t_flg) do
                                                begin
                                                        target := target + TAB;
                                                        i_cnt := i_cnt + 1;
                                                end;
                                                target := target + tmp1 + CRLF;
                                                if (t_flg<0) then t_flg := 0;
                                                f_flg := 0;
                                        end
                                else if (tmp1=';') then
                                        begin
                                                if (Length(w_tmp) <> 0) then
                                                        begin
                                                                i_cnt := 0;
                                                                while (i_cnt < t_flg) do
                                                                begin
                                                                        target := target + TAB;
                                                                        i_cnt := i_cnt + 1;
                                                                end;
                                                        end
                                                ;
                                                t_flg := 0;
                                                f_flg := 0;
                                                s_flg := 0;
[5770] Re2: 整形の実現　
▽ 2007/1/25 (木) 12:47:17 すす
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; InfoPath.1; .NET CLR 2.0.50727; Lunascape 3.0.4)
最後
                                                target := target + Trim(w_str) + ';' + CRLF;
                                        end
                                else
                                        begin
                                                if (Length(w_tmp) <> 0) then
                                                        begin
                                                                i_cnt := 0;
                                                                while (i_cnt < t_flg) do
                                                                begin
                                                                        target := target + TAB;
                                                                        i_cnt := i_cnt + 1;
                                                                end;
                                                        end
                                                ;
                                                if (tmp2 = CRLF) then
                                                        begin
                                                                target := target + Trim(w_str);
                                                                if (Length(w_tmp) <> 0) then s_flg := 1;
                                                        end
                                                else
                                                        begin
                                                                if ((tmp1<>TAB) and (tmp1<>' ')) then
                                                                        begin
                                                                                target := target + Trim(w_str) + tmp1;
                                                                                s_flg := 0;
                                                                        end
                                                                else
                                                                        begin
                                                                                target := target + Trim(w_str);
                                                                                if (s_flg<>2) then s_flg := 1;
                                                                        end
                                                                ;
                                                        end
                                                ;
                                        end
                                ;
                                w_str := '';
                        end
                else
                        begin
                                w_str := w_str + tmp1;
                        end
                ;
                pt := pt + 1;
        end;
        if (w_str<>'') then target := target + Trim(w_str);
        target := target + CRLF;
        S_Delete();
        S_InsText(target);
end;
INCM/CMT
Cyclamen v3.81