home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 January (DVD) / VPR980100.ISO / OLS / WIN32 / KAKIMAC / KAKIMACP.LZH / HMWLP.mac < prev    next >
Text File  |  1997-05-14  |  14KB  |  436 lines
  1. // HMWLP.MAC Ver.3
  2. // 秀丸からWinLPrtをDDEで制御するマクロ - Version 3
  3. // （WinLPrt Ver.5.27 以降が必須！）
  4. //     Programmed by h_tosh & 水銀水 1996/10/15
  5. //     Arranged by 水銀水            1997/01/19
  6. //     ReWrited by 水銀水            1997/05/15
  7.  
  8. call setCond;        //状態設定
  9. call DDEcom;        // DDE通信
  10. call setStyleData;    //書式情報取得 
  11. call getPrevpage;    //プレビューモードにし、表示頁を算出 
  12. call dispPrev;        //プレビュー表示
  13. call afterPrev;        //プレビュー後の動作
  14. ending://終了
  15. ddeterminate;
  16. title 0;
  17. #hwndCALC=findhidemaru($tmp);
  18. if(#hwndCALC>0){
  19.     closehidemaruforced #hwndCALC;
  20. }
  21. endmacro;
  22.  
  23. endByFalse://不正による終了
  24. message $$1;
  25. goto ending;
  26.  
  27. DDEcom:// DDE通信
  28. // WINLPRT.EXEのフルパスを取得 by h_tosh (水銀水には、こんなマネはできません(^^;)
  29. openreg "LOCALMACHINE", "Software\\Microsoft\\Windows\\CurrentVersion\\App Paths\\WINLPRT.EXE";
  30. $WinLPrtPass = getregstr( "" );
  31. closereg;
  32.  
  33. // DDE通信情報
  34. $app="WINLPRT";
  35. $topic="PRTSERVER";
  36. // DDE接続<<==(h_toshさんのWinLPrtヘルプを参考にさせて頂きましたm(_ _)m)
  37. ddeinitiate $app, $topic;
  38. if (!result) {// WinLPrtが動作していないので起動する
  39.     title "WinLPrt起動中...";
  40.     if(!#runAndPreview){
  41.         if(#stayMode){
  42.             title "●WinLPrt(常駐モード)起動中...";
  43.             run $WinLPrtPass+" /r ";
  44.         }else{
  45.             title "●WinLPrt(通常通り)起動中...";
  46.             run $WinLPrtPass+" /m ";
  47.         }
  48.     }else{
  49.         if(#stayMode){
  50.             title "●WinLPrt(常駐モード)起動中...";
  51.             run $WinLPrtPass+" /r ";
  52.         }else{
  53.             title "●WinLPrt(ステルスモード)起動中...";
  54.             run $WinLPrtPass+" /h ";
  55.         }
  56.     }
  57.     if(!result)call endByFalse 
  58.         "報告…WinLPrtの起動に失敗しました。\n"+
  59.         "内容…WinLPrtが見当たりません。\n"+
  60.         "対策…WinLPrtが正しく導入されているか確認してください\n";
  61.     else if(!#runAndPreview)goto ending;
  62.     title "WinLPrtとDDE通信中...";
  63.     ##retry = 0;
  64.     retry_loop:// ウェイト
  65.     ##loop = 0;
  66.     while (##loop < #reTryWaitCount)##loop = ##loop + 1;
  67.     ddeinitiate $app, $topic;
  68.     if (!result) {
  69.         if (##retry > #retryMaxNum)call endByFalse 
  70.             "報告...WinLPrtとのDDE接続に失敗しました。\n"+
  71.             "内容...WinLPrt自体はすでに起動してます。"+
  72.             "対応...続けて当マクロを再実行。次回からは即、プレビューできます(^^)";
  73.         else {// マシンによってはリトライが必要
  74.             ##retry = ##retry + 1;
  75.             title "DDE接続リトライ("+str(##retry)+")中...";
  76.             goto retry_loop;
  77.         }
  78.     }
  79.     call checkVersion;
  80. }else{
  81. //    play "c:\\windows\\media\\The Microsoft Sound.wav";//気晴らし(^^;
  82.     if(!#runAndPreview){
  83.         ddeexecute "ShowMainWnd(0)";
  84.         ddeexecute "ShowPrevWnd(0)";
  85.         goto ending;
  86.     }
  87. }
  88. return;
  89.  
  90. watchLastPrevPage://ddeadvice版
  91.     $$g0 = dderequest("PreviewPage");
  92.     if($$g0 == "" || $$g0 == "0")$$g0 = "1";
  93.     else{
  94.         title "HMWLP - ﾌﾟﾚﾋﾞｭｰﾍﾟｰｼﾞ("+$$g0+")監視中...";
  95.         #OrgPage = val($$g0);
  96.     }
  97.     while( 1 ) {
  98.         call getStyleNow2;
  99.         ddestartadvice "PreviewPage", $$g;
  100.         $$g = "";
  101.         while( strlen($$g) == 0 ){
  102.             ddewaitadvice "PreviewPage", 100;
  103.         }
  104.         if( $$g == "0")break;
  105.         else $$gg = $$g;
  106.         title "HMWLP - ﾌﾟﾚﾋﾞｭｰﾍﾟｰｼﾞ("+$$g+")監視中...";
  107.     }
  108.     if(val($LPP)*val($PP)==0)message "DDE情報の取得ミス";
  109.     if($$gg=="")$$gg=$$g0;
  110. return val($$gg);
  111.  
  112. calcPage://ﾌﾟﾚﾋﾞｭｰ表示ﾍﾟｰｼﾞの算出
  113. if(!#calculateType){//文字充填率で簡易計算
  114.     ##pageChar=val($WLPColNum)*val($WLPRowNum)*#WLPTblNum;
  115.     ##pageCharRC=##pageChar*#fullUpCharRate/100;
  116.     ##PP=1+width*(#ty+1)/##pageChar;
  117. }else{//できるだけ正確に計算してみる(^_^ゞ
  118.     title "ﾌﾟﾚﾋﾞｭｰ表示ﾍﾟｰｼﾞを算出中...";
  119.     disabledraw;
  120.     selectall;
  121.     copy;
  122.     moveto #tx,#ty;
  123.     #hwndCALC=findhidemaru($tmp);
  124.     if(#hwndCALC<0){
  125.         call openCalc;
  126.     }else{//異常終了による残留したTMP秀丸処理
  127.         #hwndCALC=hidemaruhandle(#hwndCALC);
  128.         if(#hwndCALC){
  129.             setactivehidemaru #hwndCALC;
  130.             selectall;
  131.             delete;
  132.         }else call openCalc;
  133.     }
  134.     if(#widthOrg<1 || #widthOrg>250){
  135.         message "err"+str(#widthOrg);
  136.         goto ending;
  137.     }
  138.     config "w"+str(#widthOrg);
  139.     envchanged;
  140.     if(#SEL)paste;
  141.     else poppaste;
  142.     moveto #tx,#ty;
  143.     golinetop2;
  144.     ##CharXY=(#ty-y)*#widthOrg+#tx;
  145.     config "w"+$WLPColNum;
  146.     envchanged;
  147.     ##nY=y+(##CharXY/val($WLPColNum));
  148.     ##PP=1+##nY/(val($WLPRowNum)*#WLPTblNum);//conf"w"によるカーソル移動の補正(^_^)
  149.     setactivehidemaru #hwndOrg;
  150.     title "ﾌﾟﾚﾋﾞｭｰ画面準備中...";
  151.     moveto #tx,#ty;
  152.     enabledraw;
  153. }
  154. return str(##PP);
  155.  
  156. getPage:
  157. if(#startPageCalc){
  158.     call calcPage;
  159.     $dispPage=$$return;
  160. }else beep;
  161. return;
  162.  
  163. wait:
  164. ##k=0;
  165. while(##k<##1)##k=##k+1;
  166. return;
  167.  
  168. openCalc:
  169.     openfile " /h ";
  170.     changename $tmp;
  171.     #hwndCALC=hidemaruhandle(0);
  172. return;
  173.  
  174. calcHMLastPage:
  175. setactivehidemaru #hwndCALC;
  176. config "w"+$WLPColNum;//この時点では、keepCalcHMはONであるはずだからＯＫ
  177. envchanged;
  178. moveto 0,(#LastPage-1)*val($WLPRowNum)*#WLPTblNum;
  179. config "w"+str(#widthOrg);//この時点では、keepCalcHMはONであるはずだからＯＫ
  180. envchanged;
  181. #LastPageHMY = y;
  182. setactivehidemaru #hwndOrg;
  183. return;
  184.  
  185. //書式情報取得
  186. setStyleData:
  187. if(!#NoName){
  188.     ddeexecute "SearchAsscFormat("+basename2+")";
  189.     if(!result)goto ending;
  190.     $WLPAsscFormat=dderequest( "AsscFormat" );
  191. }else $WLPAsscFormat="";
  192. if($WLPAsscFormat==""){
  193.     beep;
  194.     if(#dsNameYN){//現在の書式を保存しマクロ終了後に戻すべき？
  195.         $WLPAsscFormat=$dsName;
  196.         call waitTitle "指定デフォルト書式";
  197.     }else{
  198.         $WLPAsscFormat=dderequest( "CurrentFormat" );
  199.         call waitTitle "現書式を継続使用して";
  200.     }
  201. }else{
  202.     ddeexecute "SetCurrentFormat("+$WLPAsscFormat+")";
  203.     $WLPAsscFormat=dderequest( "AsscFormat" );
  204. }
  205. ddeexecute "SetCurrentFormat("+$WLPAsscFormat+")";
  206. $WLPColNum=dderequest( "ColumnNumber" );
  207. $WLPRowNum=dderequest( "RowNumber" );
  208. $WLPTblNum=dderequest( "TableNumber" );
  209. #WLPTblNum=val($WLPTblNum);
  210. if(#WLPTblNum<0)#WLPTblNum=#WLPTblNum*(-1);
  211. if(#WLPTblNum*val($WLPColNum)*val($WLPRowNum)==0)call endByFalse "●メモリ不足が発生しました..終了します";
  212. $WLPColNumOrg=$WLPColNum;
  213. $WLPRowNumOrg=$WLPRowNum;
  214. $WLPTblNumOrg=$WLPTblNum;
  215. #WLPTblNumOrg=#WLPTblNum;
  216. return;
  217.  
  218. waitTitle:
  219.     if(#msgWaitCount>100){
  220.         title "[×]関連付け書式ナシ!!　"+$$1+"("+$WLPAsscFormat+")を採用";
  221.         while(##i<#msgWaitCount)##i=##i+1;
  222.     }
  223. return;
  224.  
  225. getStyleNow:
  226. ddeinitiate $app, $topic;
  227. $WLPAsscFormat=dderequest( "CurrentFormat" );
  228. if(!result)call endByFalse "●報告...getStyleNowのdderequest( AsscFormat )";
  229. else message $WLPAsscFormat;
  230. ddeexecute "SetCurrentFormat("+$WLPAsscFormat+")";
  231. $WLPColNum=dderequest( "ColumnNumber" );
  232. $WLPRowNum=dderequest( "RowNumber" );
  233. $WLPTblNum=dderequest( "TableNumber" );
  234. $LPP=dderequest( "LastPreviewPage" );
  235. $PP=dderequest( "PreviewPage" );
  236. #WLPTblNum=val($WLPTblNum);
  237. if(#WLPTblNum<0)#WLPTblNum=#WLPTblNum*(-1);
  238. if(#WLPTblNum*val($WLPColNum)*val($WLPRowNum)==0)call endByFalse "●メモリ不足が発生しました..終了します";
  239. return;
  240.  
  241. getStyleNow2:
  242. $$WLPAsscFormatN=dderequest( "CurrentFormat" );
  243. if($$WLPAsscFormatN!=$WLPAsscFormat)ddeexecute "SetCurrentFormat("+$$WLPAsscFormatN+")";
  244. $WLPTblNum=dderequest( "TableNumber" );
  245. $LPP=dderequest( "LastPreviewPage" );
  246. if($LPP=="0"||$LPP=="")$LPP=dderequest( "LastPreviewPage" );
  247. if($LPP=="0"||$LPP=="")$LPP=dderequest( "LastPreviewPage" );
  248. $PP=dderequest( "PreviewPage" );
  249. if($PP=="0"||$PP=="")$PP=dderequest( "PreviewPage" );
  250. if($PP=="0"||$PP=="")$PP=dderequest( "PreviewPage" );
  251. #WLPTblNum=val($WLPTblNum);
  252. if(#WLPTblNum<0)#WLPTblNum=#WLPTblNum*(-1);
  253. if(#WLPTblNum*val($WLPColNum)*val($WLPRowNum)==0)call endByFalse "●メモリ不足が発生しました..終了します";
  254. return;
  255.  
  256. checkVersion:
  257.     $$version = dderequest("Version");
  258.     if(!result)call endByFalse "●報告...WinLPrtのバージョンがかなり古いようなので、HMWLP(Ver.2)は停止します。\n"+
  259.                 "●理由...WinLPrtのﾊﾞｰｼﾞｮﾝが5.19以降でないと、HMWLP.MAC(Ver.1)は動作しません。また、HMWLP.mac(Ver.2)はWinLPrt(Ver.5.20)以降でないと正しく動きません。\n"+
  260.                 "●対応...WinLPrtの最新版を、NIFTY-Serve FWINAL LIB#8 か、h_toshさんのホームページ<http://www.na.rim.or.jp/~htosh/>で入手してください。";
  261.     ##verNum = strstr($$version,".");
  262.     $$v = leftstr($$version,##verNum)+rightstr($$version,2);
  263.     if(val($$v)<520)call endByFalse "●...WinLPrtのバージョンが5.20より古いようなので、HMWLP(Ver.2)は停止します。\n"+
  264.                 "●理由...HMWLP(Ver.2)はWInLPrt(Ver.5.20)以降が必要です。\n"+
  265.                 "●対応...WinLPrtの最新版を、NIFTY-Serve FWINAL LIB#8 か、h_toshさんのホームページ<http://www.na.rim.or.jp/~htosh/>で入手してください。";
  266. return;
  267.  
  268. checkType:
  269. if(#calculateType==0 && (#fullUpCharRate<0 || #fullUpCharRate>100))call endByFalse 
  270.     "注意...文字充填率によるページ算出に設定されていますが問題アリ。\n"+
  271.     "内容...現在［#fullUpCharRate="+str(#fullUpCharRate)+"］となっています。\n"+
  272.     "対応...#fullUpCharRateには 1～100 の値を半角数字で指定してください。";
  273. return;
  274.  
  275. setINI:
  276. if($stayMode == "")call setIniFirst;
  277. else call setIniGet;
  278. call checkType;
  279. if(filename==""){
  280.     if(updated==0)#NoName=2;
  281.     else #NoName=1;
  282. }
  283. return;
  284.  
  285. setCond:
  286. $ff = filename;
  287. $tmp = hidemarudir+"\\HMWLP.TMP";
  288. #widthOrg=width;
  289. #hwndOrg=hidemaruhandle(0);
  290. $fi = hidemarudir+"\\kakimac\\HMWLP.kdf";
  291. $se = "ENV";
  292. $sp = "PRV";
  293. if(iskeydown(91)||iskeydown(92))execmacro "hmwlpS.mac";
  294. $stayMode = getinistr($fi,$se,"stayMode");
  295. call setINI;
  296. call checkGo;
  297. return;
  298.  
  299. getPrevpage://プレビューモードにし、表示頁を算出 
  300. if(#reversePrt){message  "●確認...現在、逆順印刷に設定されています。\n"+
  301.         "●操作...プレビューを『終了後』に逆順印刷を開始します。\n"+
  302.         "●注意...プレビュー画面から直接「印刷」を実行してはダメ！";
  303. }
  304. ddeexecute "SetPreview(1)";
  305. if(!result)call endByFalse "WinLPrt「プレビューモードにする」で失敗";
  306. if(!selecting){//全体印刷
  307.     #tx=x;#ty=y;
  308.     if (updated||#NoName) {
  309.         #update=1;
  310.         if(#startPageCalc){
  311.             call getPage;
  312.         }else{
  313.             disabledraw;
  314.             selectall;
  315.             copy;
  316.         }
  317.         $exec="PrintFile(/c;/v"+$dispPage+")";
  318.     } else {
  319.         if(#startPageCalc)call getPage;
  320.         $param=filename;
  321.         $exec="PrintFile(/v"+$dispPage+";"+$param+")";
  322.     }
  323.     moveto #tx,#ty;
  324.     if(#startPageCalc)ddeinitiate $app, $topic;//再接続！
  325.     if(#update)ddeexecute "SetClipboardFileName("+filename2+"(更新中)   "+date+"  "+time+")";
  326. }else{//文字列、行、ＢＯＸ等の範囲指定印刷
  327.     if(rectselecting)#RECT=1;//box
  328.     else #RECT=0;// no box
  329.     #SEL=1;
  330.     #tx=seltopx;#ty=seltopy;
  331.     #ex=selendx;#ey=selendy;
  332.     disabledraw;
  333.     copy;
  334.     moveto #tx,#ty;
  335.     if(#RECT)beginrect;
  336.     else beginsel;
  337.     moveto #ex,#ey;
  338.     #partial=1;
  339.     $exec="PrintFile(/c)";
  340. }
  341. return;
  342.  
  343. dispPrev://プレビュー表示
  344. ddeexecute $exec;
  345. if (!result)call endByFalse "WinLPrt「プレビュー作画」で失敗";
  346. ddeexecute "ShowPreviewWnd(0)";
  347. if (!result)call endByFalse "WinLPrt「プレビュー表示」で失敗";
  348. return;
  349.  
  350. afterPrev://0:秀丸でも最後のプレビュー画面を表示、1:WinLPrt起動時の秀丸画面
  351. if(!#keepCalcHM)goto ending;
  352. else {
  353.     call watchLastPrevPage;
  354.     #LastPage = ##return;
  355.     if(!#LastPage){
  356.         message "プレビューで問題発生(^^;　作業ファイルを探す努力をして、見つかればこれを閉じ、マクロを終了します。";
  357.         #tmpOrder = findhidemaru("+$tmp+");
  358.         if(#tmpOrder != -1)closehidemaruforced #hwndCALC;
  359.         else message "何か不正な事件が事件が…";
  360.         goto ending;
  361.     }else{
  362.         if(#partial)return;
  363.         call calcHMLastPage;
  364.         if((//書式名の変更にも対応するべき？
  365.             $WLPColNumOrg==$WLPColNum &&
  366.             $WLPRowNumOrg==$WLPRowNum &&
  367.             #WLPTblNumOrg==#WLPTblNum )){
  368.             if(#LastPage == #OrgPage){
  369.                 if(!#reversePrt)return;
  370.             }
  371.         }
  372.         if(!#reversePrt)moveto 0,#LastPageHMY;
  373.         else call reversePrint;
  374.     }
  375. }
  376. return;
  377.  
  378. checkGo://白紙の秀丸調査
  379. if(y==0 && x==0 && code==eof){// DDE取得ミスの事前回避
  380.     question "●報告…プレビューできません。\n"+
  381.         "●理由…白紙でプレビューする文字列がありません。\n"+
  382.         "●対応…とりあえずWinLPrtを起動しましょうか？";
  383.     if(!result)endmacro;
  384.     else #runAndPreview=0;
  385. }
  386. return;
  387.  
  388. reversePrint://"reverse print"
  389. ddeinitiate $app, $topic;
  390. ddeexecute "SetPreview(0)";// 1:preview 0:print
  391. question "●今から、第"+$LPP+"ページから１ページへ向けて、逆順に印刷を開始します。たっぷり時間をかけて悠々と印刷します。"+
  392.     "（注意）逆順印刷を開始するとページ数と同じ回数だけ印刷ダイアログボックスが出て、そのたびにページのカウントをしますが、慌てたり怖がることはありません。印刷は正しく行えます(^^;"+
  393.     "\n●逆順印刷を実行しても、よろしゅうござひますね。";
  394. if(!result)goto ending;
  395. #LPP=val($LPP);
  396. while(#LPP>0){
  397.     ddeexecute "PrintFile(/n"+str(#LPP)+";"+$ff+")";
  398.     #LPP=#LPP-1;
  399. }
  400. return;
  401.  
  402. setIniGet:
  403. #stayMode = getininum($fi,$se,"stayMode");
  404. #keepCalcHM = getininum($fi,$se,"keepCalcHM");
  405. #reTryWaitCount = getininum($fi,$se,"reTryWaitCount");
  406. #retryMaxNum = getininum($fi,$se,"retryMaxNum");
  407. #msgWaitCount = getininum($fi,$se,"msgWaitCount");
  408. #runAndPreview = getininum($fi,$sp,"runAndPreview");
  409. #startPageCalc = getininum($fi,$sp,"startPageCalc");
  410. #calculateType = getininum($fi,$sp,"calculateType");
  411. #pageCheckLine = getininum($fi,$sp,"pageCheckLine");
  412. #pageCheckMinL = getininum($fi,$sp,"pageCheckMinL");
  413. #fullUpCharRate = getininum($fi,$sp,"fullUpCharRate");
  414. #reversePrt = getininum($fi,$sp,"reversePrt");
  415. #dsNameYN = 2-getininum($fi,$sp,"dsNameYN");
  416. $dsName = getinistr($fi,$sp,"dsName");
  417. if($dsName=="")$dsName="標準";
  418. return;
  419.  
  420. setIniFirst:
  421. #stayMode = 1;    //1:常駐モード起動、0:非常駐モード起動
  422. #keepCalcHM =1;    //1:秀丸でも最後のプレビュー画面を表示、0:WinLPrt起動時の秀丸画面
  423. #runAndPreview=1;    //1:起動に続いてプレビュー、0:WinLPrtを起動するだけ
  424. #startPageCalc=1;    //1:ﾍﾟｰｼﾞ算出（低速）、0:常に１ﾍﾟｰｼﾞ目から表示（高速）
  425. #calculateType=1;    //1:正確に算出（正確＆低速）0:文字充填率で概算（高速＆不正確）
  426. #pageCheckLine=1;    //1:現在のカーソル位置が先頭に近い場合は高速に第一ページを自動表示、0:頁計算は上の設定に任せる
  427. #pageCheckMinL=30;    //頁計算をする場合に、頁計算を開始する位置（これ以上だと頁計算する）
  428. #fullUpCharRate=80;        //文字充填率（1～100の半角数字を指定）
  429. #reTryWaitCount=1000;//ddeinitiate文で再接続するためのウェイト（各自の環境に依存）
  430. #retryMaxNum=5;    //リトライ最大回数
  431. #msgWaitCount=3000;    //関連付けされていない場合に自動設定される書式の表示時間カウンタ
  432. #reversePrt =0;    //0:正順に印刷、1:逆順に印刷（ただし、プレビュー終了後）
  433. #dsNameYN = 1;
  434. $dsName = "標準";
  435. return;
  436.