seidee5 @ ウィキ

vbs-文字コード

2011-07-03T07:50:48+09:00

Const adTypeBinary = 1 Const adTypeText = 2 Const adReadAll = -1 Const adReadLine = -2 Dim bin Dim str Dim srcFile Dim srcCode Dim dstFile Dim dstCode '読み込み ver2 Dim objADOST_R srcFile = "c:\src.txt" '元ファイル srcCode = "UTF-8" 'srcCode = "Shift-JIS" dstFile = "c:\dst.txt" '変換後ファイル dstCode = "Shift-JIS" 'dstCode = "UTF-8" '読み込み 'With CreateObject("ADODB.Stream") '.Open '.Type = adTypeText '.Charset = srcCode '.LoadFromFile srcFile 'str = .ReadText(adReadAll) '全て読み込み '.Close 'End With '読み込み ver2 Set objADOST_R = CreateObject("ADODB.Stream") objADOST_R.Type = 1 'adTypeBinary objADOST_R.Open objADOST_R.LoadFromFile srcFile objADOST_R.Position = 0 str = objADOST_R.ReadText(adReadAll) '全て読み込み- Wscript.Echo str 'Base64デコード With CreateObject("Microsoft.XMLDOM").createElement("temp") .DataType = "bin.base64" .Text = str bin = .NodeTypedValue End With 'UTF-8をSHIFT-JISでファイル出力 With CreateObject("ADODB.Stream") .Open .Type = adTypeBinary .Write bin .Position = 0 .Type = adTypeText .Charset = dstCode .SaveToFile dstFile '.SaveToFile "c:\[[test]].txt", 2 '同名ファイルがあったら上書きする場合 adSaveCreateOverWrite=2 .Close End With

test3

2009-10-05T08:11:19+09:00

import java.io.*; import javax.servlet.*; import javax.servlet.http.*; import java.text.NumberFormat; import org.jfree.chart.*; import org.jfree.data.general.DefaultPieDataset; import org.jfree.chart.labels.StandardPieSectionLabelGenerator; import org.jfree.chart.plot.PiePlot; public class PieChart extends HttpServlet{ public void doGet(HttpServletRequest request, HttpServletResponse response) throws ServletException,IOException { response.setContentType("image/png"); OutputStream out = response.getOutputStream(); try{ //グラフ作成 [[JFreeChart]] chart = createChart(); //PNGで書き出す ChartUtilities.writeChartAsPNG(out,chart,300,300); } catch (Exception e) { System.out.println(e.toString()); }finally { out.close(); } } private JFreeChart createChart() { //データセット DefaultPieDataset data = new DefaultPieDataset(); data.setValue("XXXXX", 70); data.setValue("YYYYY", 30); //グラフ作成 JFreeChart chart = ChartFactory.createPieChart( "タイトル", // タイトル data, // データ true, // 凡例 false, // ツールチップ false // URL ); //プロットの取得 PiePlot plot = (PiePlot)chart.getPlot(); //パーセント表示 plot.setLabelGenerator(new StandardPieSectionLabelGenerator("{0} = {1} ({2})", NumberFormat.getNumberInstance(), NumberFormat.getPercentInstance())); return chart; } }

JFreeChart

2009-10-05T05:32:18+09:00

JFreeChart 応用 http://www.jfree.org/ http://www.fireproject.jp/feature/jfreechart/ http://park.geocities.jp/gdfsm000/jfreechart/ http://www.ujihara.jp/jbyjsharp/jfreechart/results/ --- 参考 JFreeChartの軸表示 http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=39499&forum=12

Struts2

2009-10-04T18:20:17+09:00

HttpServletResponse response = ServletActionContext.getResponse(); response.setContentType("application/x-csv"); response.setHeader("Content-Disposition", "attachment;filename=" + fileName); outputStream = response.getOutputStream(); outputStreamWriter = new OutputStreamWriter(outputStream, "Windows-31J"); bufferedWriter = new BufferedWriter(outputStreamWriter);

Oracle

2009-09-29T17:09:53+09:00

Oracle Documentation http://otndnld.oracle.co.jp/document/products/oracle10g/102/doc_cd/index.htm oracle http://books-support.sbcr.jp/isbn/1683/appendix.html http://www.esrij.com/document/esri/arcgisserver/93/help/manager/geodatabases/oracle_1010194088.htm mailmagazine http://www.insight-tec.com/mailmagazine/ora3/vol188.html sysでログイン！ alter system set sga_max_size=1536M; alter system set sga_target=1536M; alter system set pga_aggregate_target=512M; port確認 select dbms_xdb.gethttpport(), dbms_xdb.getftpport() from dual; port変更 begin dbms_xdb.sethttpport('18080');end;/ conn sys/sys as SYSDBA -- 共有プール（SHARED POOL）をクリアする ALTER SYSTEM FLUSH SHARED_POOL; -- データベース・バッファ・キャッシュのクリア ALTER SYSTEM FLUSH BUFFER_CACHE; ------- begin declare CURSOR IND_CURR IS SELECT INDEX_NAME FROM user_indexes where status='UNUSABLE'; SQL_VAL varchar2(300); DATA_VAL varchar2(300); begin FOR currVal IN IND_CURR LOOP DATA_VAL := currVal.INDEX_NAME; SQL_VAL := 'alter index ' || DATA_VAL || ' rebuild'; execute immediate SQL_VAL; END LOOP; end; end; / ------- set long 2000 set heading off set line 120 set pages 2000 set long 2000 set heading off set trimspool off set feedback off set longchunksize 600 EXEC DBMS_METADATA.SET_TRANSFORM_PARAM( DBMS_METADATA.SESSION_TRANSFORM,'SQLTERMINATOR',TRUE) spool create_table.sql select --dbms_metadata.get_ddl('TABLE',table_name) dbms_metadata.get_ddl('TABLE',table_name) from user_tables; spool off; -------

SQLite

2009-09-28T17:23:32+09:00

SQLite http://shoppers-jp.com/software/data/tashizaurus120.zip

TRAC

2009-09-28T13:08:04+09:00

TRACをインストールしたディレクトリを変更する必要あり。 ※メモ帳でBOM無しのUTF-8ファイルを上書き保存すると自動的にBOMが付加される。　メモ帳で保存した場合は、別のエディタで、BOM無しを選択して上書きが必要。 [対象ファイル] %TRACインストールDIR%\projects\trac\%プロジェクト名%\conf\trac.ini 完了後、リポジトリと同期をとる [ポート変更] 80ポートが競合する場合に、TracLightningのポートを変更する。変更方法は以下の通り。 %TracLightHOME%\CollabNetSVN\httpd\conf\httpd.conf を編集以下の2箇所を変更 Listen 80 ⇒ 80 以外の番号に変更 ⇒ （例）Listen 8090 Server Name localhost ⇒localhostを :[ポート番号]に変更（Listenに合わせる） ⇒ （例）Server Name localhost:8090 [チケット] = マイチケットページ = このページでは、あなたに関係するチケットを表示することができます。より詳細にチケット情報の検索と表示を行うには、レポートとクエリーをご利用ください。 * [/report レポート] * [/query クエリー] * [/wiki/custom_tickets MyTickets改] * [/wiki/tips Tips] == 全件表示 == * [/report/6 レポート全件] * [/report/6?asc=0&sort=ticket レポート全件：チケット降順] * [/report/6?asc=1&sort=ticket レポート全件：チケット昇順] * [/query?status=accepted&status=assigned&status=new&status=reopened&group=priority&col=id&col=summary&col=component&col=status&col=type&col=owner&col=changetime&order=id レポート：カスタムクエリー] * [/query?status=accepted&status=assigned&status=new&status=reopened&group=priority&order=id&col=id&col=summary&col=status&col=owner&col=type&col=component&col=changetime&milestone=ITa レポート：ITa] * [/query?status=accepted&status=assigned&status=new&status=reopened&group=priority&order=id&col=id&col=summary&col=status&col=owner&col=type&col=component&col=changetime&milestone=ITb レポート：ITb] == あなたが担当しているチケット == あなたが担当者として割り当てられているチケットを表示します。あなたの作業状況の確認にご利用ください。 [[TicketQuery(owner=$USER&status!=closed,table)]] == あなたに関係するチケット == 関係者(CC)にあなたが含まれているチケットを表示します。あなたに関係するチケットの状態を確認するのにご利用ください。 [[TicketQuery(cc=~$USER&status!=closed,table)]] == あなたが報告したチケット == あなたが報告(登録)したチケットを表示します。あなたが登録したチケットの処理状況/進捗状況を把握するのにご利用ください。 [[TicketQuery(reporter=$USER&status!=closed,table)]]

vbs-DB操作

2009-09-25T14:40:36+09:00

Option Explicit ' '********************************************************************** ' * ' * File Name : CreateControlFile.vbs ' * Description : ユーザの全テーブル分のローダの制御ファイルと ' * ローダのコマンド(バッチファイル)を自動生成 ' * 生成されたフォルダにTableName.CSVを格納し、 ' * バッチファイルを実行してください ' * Creator : xxxxxxxxxx ' * Date : 2009/09/08 ' * ' * History ' * ver. : date : person : reason ' * 1.0.0 2009/09/08 xxxxxxxxxx 新規作成 ' * ' '********************************************************************** '*********************************************************** ' ↓ここから下を変更して下さい '*********************************************************** Public Const User = "[[test]]" 'ユーザ名 Public Const Pass = "test" 'パスワード Public Const Driver = "[[Oracle]] In XE" 'ドライバ名 Public Const Sid = "xe" '接続文字列 'Public Const Sid = "" 'ローカルの場合 ' Loader Mode Select ' 下記３行の内、１行選択。他はコメントアウトしてください。 Public Const loadmode = "TRUNCATE" 'Truncate & Load 'Public Const loadmode = "REPLACE" 'Delete & Load 'Public Const loadmode = "APPEND" '追加 'ロードするデータのフォーマット ' 下記２行の内、１行選択。他はコメントアウトしてください。 'Public Const formatmode = "固定長" '固定長 Public Const formatmode = "可変長" '可変長(,区切り、""括り) '*********************************************************** ' ↑ここから上を変更して下さい '*********************************************************** Call CreateControlFile(User) MsgBox "ローダの制御ファイルを作成しました。" '########################################################### ' ' 関数名：F_GetName ' 概要：名前の生成 ' 引数：strTblName －テーブル名 ' strtype －拡張子 ' 戻り値：テーブル名 o rファイル名 ' '########################################################### Function F_GetName(strTblName,strtype) Select Case UCASE(strtype) Case "" F_GetName = strTblName Case Else F_GetName = strTblName & "." & strtype End Select End Function '########################################################### ' ' 関数名：CreateControlFile ' 概要：Loaderの制御ファイルと ' Loaderのコマンド作成 ' 引数：owner －スキーマ名 ' '########################################################### Sub CreateControlFile(owner) Dim objADO 'ADOオブジェクト Dim objRS ' Dim objRS2 ' Dim strSql 'ＳＱＬ文格納 Dim strCtl '制御ファイル文格納 Dim TblName 'テーブル名格納 Dim i '添え字 Dim fs 'ファイルシステムオブジェクト Dim fldr '書き込み先フォルダ名 Dim newText '書き込み先ファイル名 Dim nPosition 'ADOオブジェクトを作成 Set objADO = CreateObject("ADODB.Connection") 'DBオープン 'objADO.Open "Driver=Driver;DBQ=Sid;UID=User;PWD=Pass;" objADO.Open "Driver=Oracle In XE;DBQ=xe;UID=test;PWD=test;" 'テーブル名取得SQL strSQL = "SELECT TABLE_NAME FROM ALL_TABLES WHERE OWNER = '" & UCASE(owner) & "'" Set objRS = objADO.Execute(strSQL) 'スキーマの全テーブル分繰り返す Do Until objRS.Eof = True TblName = objRS("TABLE_NAME") '制御ファイル文言クリア strCtl = "" '列名・型・桁数取得SQL strSQL = _ "SELECT COLUMN_NAME, DATA_TYPE, NVL(DATA_PRECISION,DATA_LENGTH) DATA_PRECISION" & _ " FROM ALL_TAB_COLUMNS " & _ "WHERE TABLE_NAME = '" & UCASE(TblName) & "'" & _ " AND OWNER = '" & UCASE(owner) & "'" & _ "ORDER BY COLUMN_ID" Set objRS2 = objADO.Execute(strSQL) '==================================================== ' 制御ファイル文言生成 '==================================================== strCtl = _ "LOAD DATA" & vbCrLf & _ loadmode & vbCrLf & _ "INTO TABLE " & F_GetName(TblName,"") & vbCrLf If formatmode = "固定長" Then strCtl = strCtl & "(" & vbCrLf Else '使用状況に応じて区切り文字は修正して下さい strCtl = strCtl & "FIELDS TERMINATED BY ',' OPTIONALLY ENCLOSED BY '""' " & vbCrLf & "(" & vbCrLf End If nPosition = 1 '列名分繰り返す Do Until objRS2.Eof = True strCtl = strCtl & space(4) & objRS2("COLUMN_NAME") strCtl = strCtl & space(35 - len(objRS2("COLUMN_NAME"))) 'データ型別の書式設定なし If formatmode = "固定長" Then strCtl = strCtl & _ " POSITION(" & nPosition & ":" & _ nPosition + objRS2("DATA_PRECISION") - 1 & ")" End If 'データ型別の書式設定あり(使用状況に応じて修正して下さい) 'If formatmode = "固定長" Then ' If objRS2("DATA_TYPE") = "VARCHAR2" Then ' strCtl = strCtl & vbTab & "CHAR" ' End If ' If objRS2("DATA_TYPE") = "NUMBER" Then ' strCtl = strCtl & vbTab & "INTEGER EXTERNAL" ' End If 'End If 'If objRS2("DATA_TYPE") = "DATE" Then ' strCtl = strCtl & vbTab & " DATE ""YYYY/MM/DD HH24:MI:SS""" 'End If strCtl = strCtl & "," & vbCrLf nPosition = nPosition + objRS2("DATA_PRECISION") 'カーソルを次の行へ objRS2.MoveNext Loop If strCtl <> "" Then strCtl = Left(strCtl,Len(strCtl) - Len("," & vbCrLf)) End If strCtl = strCtl & vbCrlf & ")" & vbCrlf 'オブジェクトの解放 objRS2.close set objRS2 = nothing '==================================================== ' 制御ファイルの作成 '==================================================== Set fs = CreateObject("Scripting.FileSystemObject") 'フォルダ作成("'formatmode'Loader_TableName") fldr = formatmode & "Loader_" & F_GetName(TblName,"") fs.CreateFolder (fldr) '制御ファイル書き込み("TableName.ctr") fldr = fldr & "\" Set newText = fs.CreateTextFile(fldr & F_GetName(TblName,"ctr"), True) newText.Write strCtl 'ファイル・クローズ newText.Close '==================================================== ' ローダーのコマンドファイル作成("TableName_LDR.cmd") '==================================================== Set newText = fs.CreateTextFile(fldr & F_GetName(TblName,"") & "_LDR.cmd", True) 'コマンド生成 If Sid <> "" Then newText.WriteLine "SQLLDR " & User & "/" & Pass & "@" & Sid & _ " CONTROL=" & F_GetName(TblName,"ctr") & _ " DATA=" & F_GetName(TblName,"csv") & _ " LOG=" & F_GetName(TblName,"log") & _ " BAD=" & F_GetName(TblName,"bad") & _ " DISCARD=" & F_GetName(TblName,"bsc") & _ " ERRORS=999999999" & _ " DIRECT=TRUE" Else newText.WriteLine "sqlldr " & User & "/" & Pass & _ " CONTROL=" & F_GetName(TblName,"ctr") & _ " DATA=" & F_GetName(TblName,"csv") & _ " LOG=" & F_GetName(TblName,"log") & _ " BAD=" & F_GetName(TblName,"bad") & _ " DISCARD=" & F_GetName(TblName,"bsc") & _ " ERRORS=999999999" & _ " DIRECT=TRUE" End If 'ファイル・クローズ newText.Close 'カーソルを次の行へ objRS.MoveNext Loop 'オブジェクトの解放 objRS.Close objADO.Close set objRS = Nothing set objADO = Nothing End Sub

Batch

2009-07-30T16:41:05+09:00

cd /d %~dp0 また、バッチファイル自身のフルパス名は、%0に格納されています。で、%0から、パス名やファイル名だけを取り出すには、パラメータ修飾子を使用します。（下記の括弧内は、ファイル名が"C:\Documents and Settings\user\デスクトップ\test.bat"の時の例） %0　　：パラメータ全体（"C:\Documents and Settings\user\デスクトップ\test.bat"⇒パス名にスペースが含まれているので、引用符(")が付く） %~d0　：%0からドライブ名だけを取り出す。(C:) %~p0　：%0からパス名だけを取り出す。（\Documents and Settings\user\デスクトップ\⇒両端に"\"が付く） %~n0　：%0からファイル名だけを取り出す。（test） %~x0　：%0からファイル拡張子だけを取り出す。（.bat） %~s0　：%0をMS-DOSの8.3形式の短いファイル名を取り出す。（C:\DOCUME~1\USER\デスク~1\TEST.BAT）（複数の修飾子を組み合わせることも可能）なので、"test.bat"のパス名は、"%~dp0"で取り出せます。 cd %~dp0　　（または、cd "%~dp0"←パス名にスペースが含まれる時）『コマンドプロンプトを使ってみよう：バッチパラメータ・修飾子』 http://ykr414.com/dos/bat.html#05

参考URL

2009-07-27T12:52:58+09:00

ホワイトボードを使ったタスク管理 http://tech.feedforce.jp/whiteboard.html Capistranoって何なのさ http://tech.feedforce.jp/capistrano.html