http://w.atwiki.jp/cz8686/ セイコウトウテイ日記 @ wiki ja 2008-01-04T20:14:43+09:00 1199445283 https://w.atwiki.jp/cz8686/pages/2.html **メニュー -[[トップページ]] -[[うつ病TOP]] 　∟[[発病]] 　∟[[勤務継続]] 　∟[[休職]] 　∟[[1年8ヶ月の休職生活]] 　∟[[復職]] 　∟[[復職後の勤務]] 　∟[[退職]] 　∟[[現在]] -音楽 　∟[[中村一義]] 　∟[[七尾旅人]] 　∟[[スネオヘアー]] 　∟[[Base Ball Bear]] 　∟[[ya-kyim]] 　∟[[UVERworld]] -技術メモ 　∟[[Oracle]] 　∟[[PL／SQL]] 　∟[[javascript]] 　∟[[css]] 　∟[[HTML]] 　∟[[DOS]] 　∟[[Excel VBA]] 　∟[[Java]] ---- #javascript(){ <script type="text/javascript" src="http://x6.toumoku.com/ufo/051473901"></script> } #html2(){ <noscript><a href="http://x6.toumoku.com/bin/gg?051473901" target="_blank"> } #image(http://x6.toumoku.com/bin/ll?051473901) ---- **リンク -[[@セイコウトウテイ日記 in はてなダイアリー >>http://d.hatena.ne.jp/cz8686/]] // リンクを張るには "[" 2つで文字列を括ります。 // ">" の左側に文字、右側にURLを記述するとリンクになります ---- **更新履歴 #recent(20) 2008-01-04T20:14:43+09:00 1199445283 https://w.atwiki.jp/cz8686/pages/21.html -スネオヘアー　セイコウトウテイ #video(http://jp.youtube.com/watch?v=PF6t6K6sjpE) -スネオヘアー　冬の翼 #video(http://jp.youtube.com/watch?v=me1tsUIa6X8) -スネオヘアー　ワルツ #video(http://jp.youtube.com/watch?v=ICiXmSo5sUw) 2008-01-04T06:19:05+09:00 1199395145 https://w.atwiki.jp/cz8686/pages/20.html -中村一義 永遠なるもの #video(http://jp.youtube.com/watch?v=XGhmWklWf0A) -中村一義　笑顔 #video(http://jp.youtube.com/watch?v=zoHu3IzNwSo) -中村一義(100s) あの荒野に花束を #video(http://jp.youtube.com/watch?v=beMcaUlTxh8) 2008-01-04T06:15:15+09:00 1199394915 https://w.atwiki.jp/cz8686/pages/11.html #html2(){ <table border="0" cellpadding="5"><tr><td colspan="2"><a href="http://www.amazon.co.jp/gp/redirect.html%3FASIN=4535562148%26tag=seikoutoutein-22%26lcode=xm2%26cID=2025%26ccmID=165953%26location=/o/ASIN/4535562148%253FSubscriptionId=0G91FPYVW6ZGWBH4Y9G2" target="_blank">うつからの脱出―プチ認知療法で「自信回復作戦」</a><img src='http://www.assoc-amazon.jp/e/ir?t=seikoutoutein-22 &l=ur2&o=9' width='1' height='1' border='0' alt='' /></td></tr><tr><td valign="top"><a href="http://www.amazon.co.jp/gp/redirect.html%3FASIN=4535562148%26tag=seikoutoutein-22%26lcode=xm2%26cID=2025%26ccmID=165953%26location=/o/ASIN/4535562148%253FSubscriptionId=0G91FPYVW6ZGWBH4Y9G2" target="_blank"><img src="http://ecx.images-amazon.com/images/I/21CFYGV91VL.jpg" border="0" alt="うつからの脱出―プチ認知療法で「自信回復作戦」" /></a></td><td valign="top"><font size="-1">下園 壮太 <br /><br />日本評論社 2004-05<br />売り上げランキング : 757<br /><br /><strong>おすすめ平均 </strong><img src="http://g-images.amazon.com/images/G/01/detail/stars-5-0.gif" alt="star" /><br /><img src="http://g-images.amazon.com/images/G/01/detail/stars-5-0.gif" alt="star" />寝たら治る。<br /><img src="http://g-images.amazon.com/images/G/01/detail/stars-3-0.gif" alt="star" />波にのって。<br /><img src="http://g-images.amazon.com/images/G/01/detail/stars-5-0.gif" alt="star" />かゆいところをついている本！<br /><br /><a href="http://www.amazon.co.jp/gp/redirect.html%3FASIN=4535562148%26tag=seikoutoutein-22%26lcode=xm2%26cID=2025%26ccmID=165953%26location=/o/ASIN/4535562148%253FSubscriptionId=0G91FPYVW6ZGWBH4Y9G2" target="_blank">Amazonで詳しく見る</a></font><font size="-2"> by <a href="http://www.goodpic.com/mt/aws/index.html" >G-Tools</a></font></td></tr></table> } #html2(){{ <table border="0" cellpadding="5"><tr><td colspan="2"><a href="http://www.amazon.co.jp/gp/redirect.html%3FASIN=4007001154%26tag=seikoutoutein-22%26lcode=xm2%26cID=2025%26ccmID=165953%26location=/o/ASIN/4007001154%253FSubscriptionId=0G91FPYVW6ZGWBH4Y9G2" target="_blank">「うつ」からの社会復帰ガイド (岩波アクティブ新書)</a><img src='http://www.assoc-amazon.jp/e/ir?t=seikoutoutein-22 &l=ur2&o=9' width='1' height='1' border='0' alt='' /></td></tr><tr><td valign="top"><a href="http://www.amazon.co.jp/gp/redirect.html%3FASIN=4007001154%26tag=seikoutoutein-22%26lcode=xm2%26cID=2025%26ccmID=165953%26location=/o/ASIN/4007001154%253FSubscriptionId=0G91FPYVW6ZGWBH4Y9G2" target="_blank"><img src="http://ecx.images-amazon.com/images/I/21FQGSZ9V5L.jpg" border="0" alt="「うつ」からの社会復帰ガイド (岩波アクティブ新書)" /></a></td><td valign="top"><font size="-1">うつ気分障害協会 <br /><br />岩波書店 2004-06<br />売り上げランキング : 3347<br /><br /><strong>おすすめ平均 </strong><img src="http://g-images.amazon.com/images/G/01/detail/stars-4-5.gif" alt="star" /><br /><img src="http://g-images.amazon.com/images/G/01/detail/stars-3-0.gif" alt="star" />うつの回復期に読むのにはつらい。<br /><img src="http://g-images.amazon.com/images/G/01/detail/stars-5-0.gif" alt="star" />サポーターとなってくれる１冊<br /><img src="http://g-images.amazon.com/images/G/01/detail/stars-5-0.gif" alt="star" />休職中のサラリーマンの方へ<br /><br /><a href="http://www.amazon.co.jp/gp/redirect.html%3FASIN=4007001154%26tag=seikoutoutein-22%26lcode=xm2%26cID=2025%26ccmID=165953%26location=/o/ASIN/4007001154%253FSubscriptionId=0G91FPYVW6ZGWBH4Y9G2" target="_blank">Amazonで詳しく見る</a></font><font size="-2"> by <a href="http://www.goodpic.com/mt/aws/index.html" >G-Tools</a></font></td></tr></table> }} 2008-01-04T06:02:15+09:00 1199394135 https://w.atwiki.jp/cz8686/pages/1.html カウンター 合計：&counter() 今日：&counter(today) 昨日：&counter(yesterday) **セイコウトウテイ日記@wikiへようこそ このwikiでは、私、cz8686のこと、ITに関すること、趣味のこと その他についてのまとめサイトです。 #image(Duke1.jpg) 2008-01-04T05:12:44+09:00 1199391164 https://w.atwiki.jp/cz8686/pages/12.html -[Oracle]PL／SQL 処理時間計測 #highlight(pl/sql){ DECLARE TIME_BEFORE BINARY_INTEGER; TIME_AFTER BINARY_INTEGER; BEGIN TIME_BEFORE := DBMS_UTILITY.GET_TIME; --//処理実行 TIME_AFTER := DBMS_UTILITY.GET_TIME; DBMS_OUTPUT.PUT_LINE(TIME_AFTER - TIME_BEFORE); END; / --//テストプロシージャ CREATE OR REPLACE PROCEDURE HATASYS1.TEST_SHORI_JIKAN IS TIME_BEFORE BINARY_INTEGER; TIME_AFTER BINARY_INTEGER; BEGIN --//100分の1ミリ秒単位で取得 TIME_BEFORE := DBMS_UTILITY.GET_TIME; FOR i IN 1..100 LOOP DBMS_OUTPUT.PUT_LINE(i); END LOOP; TIME_AFTER := DBMS_UTILITY.GET_TIME; DBMS_OUTPUT.PUT_LINE(TO_CHAR( (TIME_AFTER - TIME_BEFORE)/100) || 'sec'); END; } -[Oracle]PL/SQL 日付(YYYY,MM,DD)妥当性チェック #highlight(pl/sql){ /*********************************************************** このFUNCTIONでは、引数の年､月、日より　その日付が 妥当であるかを判定します。 返り値：BOOLEAN ***********************************************************/ FUNCTION DATE_CHECK ( W_YEAR VARCHAR2 := NULL, W_MONTH VARCHAR2 := NULL, W_DATE VARCHAR2 := NULL ) RETURN BOOLEAN IS MONTH1 CONSTANT NUMBER := 31; MONTH2 CONSTANT NUMBER := 28; --//通常の場合の2月の日数 MONTH2_LEAP CONSTANT NUMBER := 29; --//閏年の場合の2月の日数 MONTH3 CONSTANT NUMBER := 31; MONTH4 CONSTANT NUMBER := 30; MONTH5 CONSTANT NUMBER := 31; MONTH6 CONSTANT NUMBER := 30; MONTH7 CONSTANT NUMBER := 31; MONTH8 CONSTANT NUMBER := 31; MONTH9 CONSTANT NUMBER := 30; MONTH10 CONSTANT NUMBER := 31; MONTH11 CONSTANT NUMBER := 30; MONTH12 CONSTANT NUMBER := 31; BEGIN IF W_MONTH ='01' THEN IF TO_NUMBER(W_DATE) <= MONTH1 THEN RETURN TRUE; ELSE RETURN FALSE; END IF; ELSIF W_MONTH = '02' THEN --( ( (strYear%4 == 0)&&(strYear%100 != 0) ) || (strYear%400 == 0) ) ) --//■うるう年のチェック IF ( ( MOD(TO_NUMBER(W_YEAR),4) = 0) AND (MOD(TO_NUMBER(W_YEAR),100) != 0) ) OR (MOD(TO_NUMBER(W_YEAR),400) = 0) THEN IF TO_NUMBER(W_DATE) <= MONTH2_LEAP THEN RETURN TRUE; ELSE RETURN FALSE; END IF; ELSE IF TO_NUMBER(W_DATE) <= MONTH2 THEN RETURN TRUE; ELSE RETURN FALSE; END IF; END IF; ELSIF W_MONTH = '03' THEN IF TO_NUMBER(W_DATE) <= MONTH3 THEN RETURN TRUE; ELSE RETURN FALSE; END IF; ELSIF W_MONTH = '04' THEN IF TO_NUMBER(W_DATE) <= MONTH4 THEN RETURN TRUE; ELSE RETURN FALSE; END IF; ELSIF W_MONTH = '05' THEN IF TO_NUMBER(W_DATE) <= MONTH5 THEN RETURN TRUE; ELSE RETURN FALSE; END IF; ELSIF W_MONTH = '06' THEN IF TO_NUMBER(W_DATE) <= MONTH6 THEN RETURN TRUE; ELSE RETURN FALSE; END IF; ELSIF W_MONTH = '07' THEN IF TO_NUMBER(W_DATE) <= MONTH7 THEN RETURN TRUE; ELSE RETURN FALSE; END IF; ELSIF W_MONTH = '08' THEN IF TO_NUMBER(W_DATE) <= MONTH8 THEN RETURN TRUE; ELSE RETURN FALSE; END IF; ELSIF W_MONTH = '09' THEN IF TO_NUMBER(W_DATE) <= MONTH9 THEN RETURN TRUE; ELSE RETURN FALSE; END IF; ELSIF W_MONTH = '10' THEN IF TO_NUMBER(W_DATE) <= MONTH10 THEN RETURN TRUE; ELSE RETURN FALSE; END IF; ELSIF W_MONTH = '11' THEN IF TO_NUMBER(W_DATE) <= MONTH11 THEN RETURN TRUE; ELSE RETURN FALSE; END IF; ELSIF W_MONTH = '12' THEN IF TO_NUMBER(W_DATE) <= MONTH12 THEN RETURN TRUE; ELSE RETURN FALSE; END IF; ELSE --//どの場合にも当てはまらない、入力値がおかしい時 RETURN FALSE; END IF; END; } -[Oracle]PL/SQL 例外処理 #highlight(pl/sql){ ■主キー制約違反 EXCEPTION --//一意制約違反 WHEN DUP_VAL_ON_INDEX THEN DBMS_OUTPUT.PUT_LINE('データの重複有り'); ROLLBACK; ■その他例外発生時 EXCEPTION WHEN OTHERS THEN DBMS_OUTPUT.PUT_LINE(SQLERRM); DBMS_OUTPUT.PUT_LINE(SQLCODE); ROLLBACK; ■ユーザ定義例外 ここでは、例として、「REQUIRED_ITEM_EXCEPTION」を 定義するものとする。 ①宣言部 /*■独自例外定義■*/ --//新規ユーザ追加用のデータの必須項目がNULLだった場合 REQUIRED_ITEM_EXCEPTION EXCEPTION; ②実行部 --//例外を投げる。 RAISE REQUIRED_ITEM_EXCEPTION; ③例外処理部 EXCEPTION --//新規ユーザ登録に必要な項目のNULLチェック WHEN REQUIRED_ITEM_EXCEPTION THEN DBMS_OUTPUT.PUT_LINE('SQLERRM'|| SQLERRM); DBMS_OUTPUT.PUT_LINE('SQLCODE'||SQLCODE); ROLLBACK; } 2008-01-04T04:58:07+09:00 1199390287 https://w.atwiki.jp/cz8686/pages/13.html -[JavaScript] 数値チェック #highlight(javascript){ function CheckNum(value) { var str = value; if ( isNaN(str) == true ){ return false; } return true; } ▼使用例 ※数値でない場合(falseを返す場合)、フラグを立てる。 if ( CheckNum(form_value) == false) { 　　　　　 numFlg = 1; 　　　　} } -[JavaScript] DHTMLによる表示・非表示 #highlight(javascript){{ <script language="JavaScript"> <!-- function show(id) { if (document.all) { document.all.item(id).style.visibility = "visible"; } else if (document.layers) { document.layers[id].visibility = "show"; } else if (document.getElementById) { document.getElementById(id).style.visibility = "visible"; } } function hide(id) { if (document.all) { document.all.item(id).style.visibility = "hidden"; } else if (document.layers) { document.layers[id].visibility = "hide"; } else if (document.getElementById) { document.getElementById(id).style.visibility = "hidden"; } } // --> </script> <a href="wwwssi.htm" onmouseover="show('id1')" onmouseout="hide('id1')">SSI入門</a> <span id=id1 style="visibility:hidden"> <ilayer name=id1 visibility="hide"> - 「とほほのSSI入門」にジャンプします。 </ilayer> </span> <br> <a href="wwwcgi.htm" onmouseover="show('id2')" onmouseout="hide('id2')">CGI入門</a> <span id=id2 style="visibility:hidden"> <ilayer name=id2 visibility="hide"> - 「とほほのCGI入門」にジャンプします。 </ilayer> </span> }} -[JavaScript] DHTMLサンプル #highlight(javascript){ <HTML> <HEAD> <Script Language="JavaScript" Type="text/javascript"> <!-- function test1(){ // 色の変更 document.all("T1").style.color="red"; // フォーム背景色の変更 document.all("T2").style.backgroundColor="red"; // inntertext の変更 document.all("T3").innerText = "kakikukuko"; // innerHTML の変更 document.all("T4").innerHTML = "<TEXTAREA>fadsfdaf<br>dfafdaf</TEXTAREA>" } // --> </Script> </HEAD> <BODY> <FORM NAME="f1"> <INPUT TYPE="TEXT" NAME="TEST1" VALUE="AAAAA" ID="T1"> <INPUT TYPE="TEXT" NAME="TEST2" VALUE="あいうえお" ID="T2"> <BR> <DIV ID="T3">かきくけこ</DIV> <BR> <DIV ID="T4">abcdefg</DIV> <INPUT TYPE="BUTTON" VALUE="テスト" onClick="javascript:test1();"> </FORM> </BODY> </HTML> } -[JavaScript] ブラウザの戻るボタンを無効にする #highlight(javascript){ （戻りたくない画面に） <SCRIPT> history.forward(); </SCRIPT> を記述しておく } -[JavaScript] 右クリック禁止１ #highlight(javascript){{ <Script Language="JavaScript" Type="text/javascript"> <!-- function notes(eve){ if(document.all){ /*IEの場合*/ if(event.button == 2){ alert("右クリック禁止！"); return false; } } if(document.layers){ /*Netscape4.Xの場合*/ if(eve.which == 3){ alert("右クリック禁止！!"); return false; } } } if(document.layers)document.captureEvents(Event.MOUSEDOWN); document.onmousedown=notes; // --> </Script> }} -[JavaScript] 右クリック禁止２ #highlight(html){ <BODY oncontextmenu="alert('右クリックは禁止です。');return false;" BGCOLOR="#C0C0C0" TEXT="#000000" ALINK="RED" VLINK="BLUE"> } -[JavaScript] 新規Windowオープン(GET引数) #highlight(javascript){{ function new_window_open2 (a,b,c,d,e,f){ if (f==""){f="no";} var w = window; if ((w == window) || win_00.closed) { w = open("",b,"width="+c+",height="+d+",toolbar=no,menubar="+f+",location=no,scrollbars="+e+",status=yes,resizable=yes"); w.document.write("<marquee>"); w.document.write("<span style='font:bold;color:#ff0000;font-size:10pt;'>"); w.document.write("ただいま処理しております。<br>しばらくお待ちください。"); w.document.write("</span>"); w.document.write("</marquee>"); w.location.replace(a); } else { w.location.replace(a); } w.focus(); return(w); } ▼使用例 <Script Language="JavaScript" Type="text/javascript"><!-- function PAGE_TEST1(){ var w_url="PAGE_TEST1I"+ "?W_FORM_NAME1=form1.W_KYU_KUNITOSHI_CD"+ "&W_FORM_NAME2=form1.W_KYU_KUNI_MEI"+ "&W_FORM_NAME3=form1.W_KYU_TOSHI_MEI"+ ""; } // --></Script> }} -[JavaScript] 全角文字チェック #highlight(javascript){{ function CheckZenkaku(str){ str2 = str.replace(/[　 ]/g,""); for (var i = 0; i < str2.length; i++) { var c = str2.charCodeAt(i); // Shift_JIS: 0x0 ～ 0x80, 0xa0 , 0xa1 ～ 0xdf , 0xfd ～ 0xff // Unicode : 0x0 ～ 0x80, 0xf8f0, 0xff61 ～ 0xff9f, 0xf8f1 ～ 0xf8f3 if ( (c >= 0x0 && c < 0x81) || (c == 0xf8f0) || (c >= 0xff61 && c < 0xffa0) || (c >= 0xf8f1 && c < 0xf8f4)) { return false; } } return true; } ▼使用例 if (CheckZenkaku(form_value) == false) { message = message + "氏名に全角以外の文字が含まれています\nすべて全角文字で入力してください"; alert(message); return false; } }} -[JavaScript] 送信ボタン連打防止 #highlight(javascript){{ ●ボタン連打を防ぐ ///////////////////////////////////////////////////////// ■使用方法　：以下の文をカットアンドペーストして使う ■説明　　　：サブミット時のボタン連打を防ぐ ///////////////////////////////////////////////////////// <SCRIPT LANGUAGE="JavaScript"> <!-- sent = false; function send_check(){ if(sent){ return false; }else{ sent = true; return true; } } // --> </SCRIPT> 　　●別例 二重投稿禁止<form onsubmit="for (i=0;i<this.length;i++) {if (this[i].type == 'submit') this[i].disabled = true}"> フォームのボタンは、たまにですが過敏に反応しすぎて二度押したように判断する時があります。 例えば掲示板なら、同じ記事を即時に二回送信してしまうわけです。 このパターンの二重投稿はJavaScriptで回避できるのでした。 }} -[JavaScript] 日付(YYYYMMDD)妥当性チェック関数 #highlight(javascript){{ ※　myGetYearとセットで使用 function CheckDate(value) { var flg; var year; var month; var date; flg = value.match(/(\d{8})/); if ( !flg ) { return false; }else{ year = value.substring(0,4); month = value.substring(4,6); date = value.substring(6,8); newdate = new Date(year,month-1,date) if ( myGetYear(newdate) != year || (newdate.getDate() != date) || (month != newdate.getMonth()+1)) { return false; } return true; } } function myGetYear(dobj) { var year ; year = dobj.getYear() ; if (year <1900) { year += 1900; } return year; } }} -[JavaScript] 履歴を残さずに画面遷移 #highlight(javascript){{ <HTML> <HEAD> <TITLE></TITLE> <SCRIPT language="JavaScript"> <!-- function pageReplace(){ window.location.replace("history9.htm"); } // --> </SCRIPT> </HEAD> <BODY> <CENTER> <A href="javascript:pageReplace()">指定したページへ移動</A><BR><BR> <FORM> <INPUT type="button" value="指定したページへ移動" onClick="pageReplace()"> </FORM> </CENTER> </BODY> </HTML> }} -[javascript] WindowOpen用の共通関数 #highlight(javascript){{ function new_window_open2 (a,b,c,d,e,f){ if (f==""){f="no";} var w = window; if ((w == window) || win_00.closed) { w = open("",b,"width="+c+",height="+d+",toolbar=no,menubar="+f+",location=no,scrollbars="+e+",status=yes,resizable=yes"); w.document.write("<marquee>"); w.document.write("<span style=''font:bold;color:#ff0000;font-size:10pt;''>"); w.document.write("ただいま処理しております。<br>しばらくお待ちください。"); w.document.write("</span>"); w.document.write("</marquee>"); // w.location.href=a; w.location.replace(a); } else { // w.location.href=a; w.location.replace(a); } w.focus(); return(w); } }} 2008-01-04T04:55:48+09:00 1199390148 https://w.atwiki.jp/cz8686/pages/14.html -[CSS] コメント用　CSSクラス #highlight(css){ <STYLE TYPE="text/css"> <!-- .comment{ background-color:#EDF0F3;border-color:black;border-style:dashed;} .comment{ font-size:10pt;border-width:1px;padding:5px;} --> </STYLE> <DIV CLASS="COMMENT"> コメントを記入 </DIV> } -[CSS] フォームボタン #highlight(css){ .button_class1 { width:70; height:14pt; font-size:9pt; border:2px solid #505050;} .button_class2 { height:14pt; font-size:9pt; border:2px solid #505050;} } -[CSS] 右詰入力テキストフォーム #highlight(css){ .form_class2 { border:1px solid #505050; } .form_class2 { background-color:#FFFFFF;} .form_class2 { font-size:9pt} .form_class2 { text-align: right } .form_class2 { ime-mode: disabled } .form_class3 { border:1px solid #505050; } .form_class3 { background-color:#FFE8E8;} .form_class3 { font-size:9pt} .form_class3 { text-align: right } .form_class3 { ime-mode: disabled } } -[CSS] 検索結果テーブル用　CSSクラス #highlight(css){ .list_tbl2 { border:1px solid #808080; } .list_tbl2 TH { height:15pt; border:1px solid #808080; } .list_tbl2 TH { background-color:#EBF8D6 } .list_tbl2 TD { height:10pt; border:1px solid #808080; } .list_tbl2 TD { font-size:10pt;white-space:nowrap; } .list_tbl2 TABLE { border:0px; } .list_tbl2 TABLE TD { border:0px; } .list_tbl2 TABLE TH { border:0px; } } -[CSS]入力フォームでのＩＭＥ禁止 #highlight(css){ style="ime-mode: disabled;" } 2008-01-04T04:52:16+09:00 1199389936 https://w.atwiki.jp/cz8686/pages/15.html -[DOS] バッチにて日付時間(YYYYMMDDHIMMSS)取得 #highlight(dos){ rem GetTimeStr.bat rem ### 実行時間文字列取得 for /f %%A in ('date/t') do set TODAY=%%A for /F "tokens=2" %%a in ('echo:^|time') do set TIME=%%a SET DYYYY=%TODAY:~0,4% SET DMM=%TODAY:~5,2% SET DDD=%TODAY:~8,2% set DHH=%TIME:~0,2% set DMI=%TIME:~3,2% set DSEC=%TIME:~6,2% rem Set Filename=%DYYYY%%DMM%%DDD%_%DHH%%DMI%%DSEC% Set Filename=%DYYYY%%DMM%%DDD%%DHH%%DMI%%DSEC% echo %Filename% > a.txt ※上記の場合､変数「Filename」に”YYYYMMDDHIMMSS”がセットされる } -[DOS]返り値(ERRORLEVEL)の判定 #highlight(dos){ cscript //nologo test.vbs rem ERRORLEVELは値の大きい順序で条件を記述する IF ERRORLEVEL 1 GOTO EXECUTE_OK IF ERRORLEVEL 0 GOTO EXECUTE_NG IF ERRORLEVEL -1 GOTO EXECUTE_ERR :EXECUTE_OK echo %ERRORLEVEL%個のファイルを削除しました。 >> %CL_LOG_FILE% GOTO END :EXECUTE_NG echo ファイルは削除されませんでした。 >> %CL_LOG_FILE% GOTO END :EXECUTE_ERR echo 引数が正しくありません >> %CL_LOG_FILE% GOTO END :END EXIT } 2008-01-04T04:52:08+09:00 1199389928 https://w.atwiki.jp/cz8686/pages/16.html -[ExcelVBA]BOOKクローズ時に保存しないように #highlight(vb){ OwnBook.Saved = True } -[ExcelVBA]Excelブックをｵﾌﾞｼﾞｪｸﾄ変数にセット #highlight(vb){ '//EXCELVBAブックをオブジェクト変数にセット Set OwnBook = ActiveWorkbook Set DataSheet = OwnBook.Worksheets("data") Set TemplateSheet = OwnBook.Worksheets("template") } -[ExcelVBA]データシートの行数取得 #highlight(vb){ DataSheetRowCnt = DataSheet.Range("A1").CurrentRegion.Rows.Count } -[ExcelVBA]テキスト取込み #highlight(vb){ Dim j As Integer Worksheets("Sheet1").Select Open "D:\MyDocuments\data.txt" For Input As #1 '//変数初期化 i = 0 Do Until EOF(1) Input #1, _ myBuf(1), myBuf(2), myBuf(3), myBuf(4), myBuf(5), myBuf(6), myBuf(7), myBuf(8), myBuf(9), myBuf(10), myBuf(11), myBuf(12), myBuf(13), myBuf(14), myBuf(15), myBuf(16), myBuf(17), myBuf(18), myBuf(19), myBuf(20), _ myBuf(21), myBuf(22), myBuf(23), myBuf(24), myBuf(25), myBuf(26), myBuf(27), myBuf(28), myBuf(29), myBuf(30), myBuf(31), myBuf(32), myBuf(33), myBuf(34), myBuf(35), myBuf(36), myBuf(37), myBuf(38), myBuf(39), myBuf(40), _ myBuf(41), myBuf(42), myBuf(43), myBuf(44), myBuf(45), myBuf(46), myBuf(47), myBuf(48), myBuf(49), myBuf(50), myBuf(51), myBuf(52), myBuf(53), myBuf(54), myBuf(55), myBuf(56), myBuf(57), myBuf(58), myBuf(59), myBuf(60), _ myBuf(61), myBuf(62), myBuf(63), myBuf(64), myBuf(65), myBuf(66), myBuf(67), myBuf(68), myBuf(69), myBuf(70), myBuf(71), myBuf(72), myBuf(73), myBuf(74), myBuf(75), myBuf(76), myBuf(77), myBuf(78), myBuf(79), myBuf(80), _ myBuf(81), myBuf(82), myBuf(83), myBuf(84), myBuf(85), myBuf(86), myBuf(87), myBuf(88), myBuf(89), myBuf(90), myBuf(91), myBuf(92), myBuf(93), myBuf(94), myBuf(95), myBuf(96), myBuf(97), myBuf(98), myBuf(99), myBuf(100), _ myBuf(101), myBuf(102), myBuf(103), myBuf(104), myBuf(105), myBuf(106), myBuf(107), myBuf(108), myBuf(109), myBuf(110), myBuf(111), myBuf(112), myBuf(113), myBuf(114), myBuf(115), myBuf(116), myBuf(117), myBuf(118), myBuf(119), myBuf(120), _ myBuf(121), myBuf(122), myBuf(123), myBuf(124), myBuf(125), myBuf(126), myBuf(127), myBuf(128), myBuf(129), myBuf(130), myBuf(131), myBuf(132), myBuf(133), myBuf(134), myBuf(135), myBuf(136), myBuf(137), myBuf(138), myBuf(139), myBuf(140), _ myBuf(141), myBuf(142), myBuf(143), myBuf(144), myBuf(145), myBuf(146), myBuf(147), myBuf(148), myBuf(149), myBuf(150), myBuf(151), myBuf(152), myBuf(153), myBuf(154), myBuf(155), myBuf(156), myBuf(157), myBuf(158), myBuf(159), myBuf(160), _ myBuf(161), myBuf(162), myBuf(163), myBuf(164), myBuf(165), myBuf(166), myBuf(167), myBuf(168), myBuf(169), myBuf(170), myBuf(171), myBuf(172), myBuf(173), myBuf(174), myBuf(175), myBuf(176), myBuf(177), myBuf(178), myBuf(179), myBuf(180), _ myBuf(181), myBuf(182), myBuf(183), myBuf(184), myBuf(185), myBuf(186), myBuf(187), myBuf(188), myBuf(189), myBuf(190), myBuf(191), myBuf(192), myBuf(193), myBuf(194), myBuf(195), myBuf(196), myBuf(197), myBuf(198), myBuf(199), myBuf(200), _ myBuf(201), myBuf(202), myBuf(203), myBuf(204), myBuf(205), myBuf(206), myBuf(207), myBuf(208), myBuf(209), myBuf(210), myBuf(211), myBuf(212), myBuf(213), myBuf(214), myBuf(215), myBuf(216), myBuf(217), myBuf(218), myBuf(219), myBuf(220), _ myBuf(221), myBuf(222), myBuf(223), myBuf(224), myBuf(225), myBuf(226), myBuf(227), myBuf(228), myBuf(229), myBuf(230), myBuf(231), myBuf(232), myBuf(233), myBuf(234), myBuf(235), myBuf(236), myBuf(237), myBuf(238), myBuf(239), myBuf(240), _ myBuf(241), myBuf(242), myBuf(243), myBuf(244), myBuf(245), myBuf(246), myBuf(247), myBuf(248), myBuf(249) i = i + 1 For j = 1 To 249 Cells(i, j) = myBuf(j) Next j Loop Close #1 } -[ExcelVBA]テキスト出力 #highlight(vb){ Sub outputXML() Dim SaveFilename As String Dim i As Integer Dim DataSheetRowCnt As Integer 'データ行数取得 DataSheetRowCnt = ActiveWorkbook.Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.Count 'SaveFilename = Application.GetSaveAsFilename("test", "(*.xml),*.xml", , "結果の保存") SaveFilename = ActiveWorkbook.Path & "\" & "address.xml" MsgBox SaveFilename & vbCr & "に出力されました" Open SaveFilename For Output As #1 Print #1, "<?xml version='1.0' encoding='Shift_JIS'?>" Print #1, "<?xml-stylesheet type='text/xsl' href='address.xsl'?>" Print #1, "<名簿>" For i = 3 To DataSheetRowCnt Print #1, "<連絡先>" Print #1, "<正式名称>"; Cells(i, 1).Value; "</正式名称>" Print #1, "<略称>"; Cells(i, 2).Value; "</略称>" Print #1, "<担当者>"; Cells(i, 3).Value; "</担当者>" Print #1, "<内線>"; Replace(Cells(i, 4).Value, Chr(10), "、"); "</内線>" Print #1, "<メールアドレス>"; Replace(Cells(i, 5).Value, Chr(10), "、"); "</メールアドレス>" Print #1, "<担当システム>"; Replace(Cells(i, 6).Value, Chr(10), "、"); "</担当システム>" Print #1, "<備考>"; Cells(i, 7).Value; "</備考>" Print #1, "<補足>"; Cells(i, 8).Value; "</補足>" Print #1, "</連絡先>" Next i Print #1, "</名簿>" Close #1 ActiveWorkbook.Save End Sub } -[ExcelVBA]フォルダ選択ダイアログ #highlight(vb){ '■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 'パブリック変数宣言 '■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ '■定数■ '/* BrowseForFolder Method Options */ Const BIF_RETURNONLYFSDIRS = &H1 '// Only return file system directories. '■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ ' フォルダ取得ダイアログを表示する ' ' (BrowseForFolder関数) ' 　引数　sTitle タイトルの文字列 ' nOptions 選択オプションの値 ' sRootFolder 既定フォルダの文字列 '■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Public Function BrowseForFolder(sTitle As String, nOptions, Optional sRootFolder As String = "") As String Dim oShell As Object Dim oFolder As Object Set oShell = CreateObject("Shell.Application") Set oFolder = oShell.BrowseForFolder(0, sTitle, nOptions, sRootFolder) If oFolder Is Nothing Then BrowseForFolder = "" Else If oFolder.ParentFolder Is Nothing Then '下位の未選択デスクトップ Dim objWShell As Object ' WScript.Shell 'シェルのオブジェクトを作成 Set objWShell = CreateObject("WScript.Shell") 'デスクトップの場所を返す BrowseForFolder = objWShell.SpecialFolders("Desktop") 'オブジェクトの解放 Set objWShell = Nothing Else BrowseForFolder = oFolder.Items.Item.Path 'パスをセットする End If End If Set oFolder = Nothing Set oShell = Nothing End Function sub 呼び出しがわ() dim PUB_SAVE_FOLDER as String PUB_SAVE_FOLDER = BrowseForFolder(mymsg, BIF_RETURNONLYFSDIRS, "") Msgbox PUB_SAVE_FOLDER end sub } -[ExcelVBA]改行コードの除去 #highlight(vba){ Sub test() Dim value1 As String value1 = Cells(1, 2) value1 = Replace(value1, Chr(10), "") '改行コードの除去　Chr(10)= LF：改行 MsgBox value1 Cells(2, 1) = value1 End Sub } -[ExcelVBA]全シート選択・ﾌﾟﾚﾋﾞｭｰ #highlight(vb){ Dim i As Integer For i = ActiveWorkbook.Worksheets.Count To 1 Step -1 ActiveWorkbook.Worksheets(i).Select fase Next i ActiveWindow.SelectedSheets } -[Excel関数]色々 #highlight(vb){ ■(例)セル値が○になっているデータの数をカウントする。 =COUNTIF(E4:E25,"○") ■(例)セル値が空欄の数をカウントする。 =COUNTBLANK(E5:E27) } 2008-01-04T04:51:54+09:00 1199389914