備忘録

A0001-01

2015-04-03T23:54:03+09:00

aaaaaa

top

2015-04-03T23:52:04+09:00

備忘録

VBA06

2014-03-26T00:40:40+09:00

Sub 複写置換() Dim n As Integer Dim strFILE, strREC As String '初期処理 n = 2 '主処理 Do While Cells(n, 2).Value <> "" 'フォルダ一覧の処理 Call exec_dir n = n + 1 Loop '後処理 End Sub Sub exec_dir() '初期処理(ファイル一覧の取得) strFILE = Dir(Cells(n, 2) & "\" & Cells(n, 3), vbNormal) 'ファイル編集 Do While strFILE <> "" 'ファイルの読み込み Call file_edit strFILE = Dir() Loop End Sub Sub file_edit() '初期処理(オープン) Open Cells(n, 2) & "\" & strFILE For Input As #1 '読み込み ' ファイルのEOF(End of File)まで繰り返す Do Until EOF(1) '読み込み Line Input #1, strREC '判定 If Is_out Then '出力 strREC = Replace(strREC, Cells(n, 5), Cells(n, 6), , , vbBinaryCompare) Print #2, strREC Loop '終了処理 Close End Sub

BAT03

2013-07-06T01:42:31+09:00

@rem -------------------------------------------------- @rem 日付月のファイル作成 @rem test004.bat AAA → AAA20130701121329SSS.bat @set F_DIR=C:\Users\noboru\Documents\dev\trunk\dos\aaa01 @set SUB_SYS=SSS @set /P DATE_NEW= %F_DIR%\%1%YYYYMMDDHHMMSS: =0%%SUB_SYS%.dat @rem -------------------------------------------------- @rem 日付を翌日に更新 @rem test005.bat 2013/01/01 @echo WScript.Echo DateAdd("d",1,WScript.Arguments(0)) > tmp.vbs @set /P DATE_OLD= 0 Then If Cells(GYO, 1).Value <> "" Then GYO = GYO + 1 End If strREC = Trim(Replace(strREC, vbTab, "")) Cells(GYO, 1).Value = strREC End If If InStr(strREC, "

WSH_01

2013-04-25T01:28:54+09:00

If WScript.Arguments.Count = 0 Then WScript.Quit Set FS = CreateObject("Scripting.FileSystemObject") Set SA = CreateObject("Shell.Application") '圧縮ファイル名を作成します FileName = Year(Date) & _ Right("0" & Month(Date),2) & Right("0" & Day(Date),2) & _ Right("0" & Hour(Time),2) & Right("0" & Minute(Time),2) & _ Right("0" & Second(Time),2) & ".zip" ZipFile = Replace(WScript.ScriptFullName, WScript.ScriptName, FileName) '新しいzipファイルを作成します With FS.CreateTextFile(ZipFile) .Write "PK" & Chr(5) & Chr(6) & String(18,0) .Close End With 'zipファイルに引数で受け取ったファイルを入れます i = 0 With SA.NameSpace(ZipFile) For Each file In WScript.Arguments .CopyHere file i = i + 1 Do Until .Items.Count = i WScript.sleep 100 Loop Next End With WScript.Echo "Done.."

bat02

2013-04-25T00:10:46+09:00

@ECHO OFF title ウィンドウのタイトル FC /a filelist2b1.bat filelist2b2.bat > nul if errorlevel 1 goto fail call :func_true goto :EOF :fail call :func_false goto :EOF :============ :func_true echo 正常終了 exit /b :============ :func_false echo 異常終了 exit /b :============

vba04

2013-04-19T00:40:52+09:00

Sub 複写置換() Dim n As Integer Dim strFILE, strREC As String n = 2 Do While Cells(n, 2).Value <> "" strFILE = Dir(Cells(n, 2) & "\" & Cells(n, 3), vbNormal) Do While strFILE <> "" ' 指定ファイルをOPEN(入力モード) Open Cells(n, 2) & "\" & strFILE For Input As #1 ' 指定ファイルをOPEN(出力モード) Open Cells(n, 4) & "\" & strFILE For Output As #2 ' ファイルのEOF(End of File)まで繰り返す Do Until EOF(1) Line Input #1, strREC strREC = Replace(strREC, Cells(n, 5), Cells(n, 6), , , vbBinaryCompare) Print #2, strREC Loop Close strFILE = Dir() Loop n = n + 1 Loop End Sub

oracle02

2013-04-17T00:53:23+09:00

http://www.doppo1.net/oracle/tuning/explain-plan.html sqlplus noboru01/noboru01 select * from tbl01 where id1 < '00001322'; column sql_text format a50 SELECT ADDRESS,HASH_VALUE,SQL_TEXT FROM V$SQL WHERE SQL_TEXT LIKE 'select% from tbl%'; column operation format a30 column object_name format a20 SELECT A.ID, LPAD(' ',2*(DEPTH-1)) || A.OPERATION || nvl2(OPTIMIZER,'(' || OPTIMIZER || ')',NULL) || nvl2(A.OPTIONS,' ' || A.OPTIONS ,NULL) OPERATION, A.OBJECT_NAME,A.BYTES,A.COST,A.CPU_COST,A.IO_COST,A.CARDINALITY FROM V$SQL_PLAN A WHERE A.ADDRESS='25ECB24C' AND A.HASH_VALUE='2518582849' AND A.CHILD_NUMBER=0 ORDER BY ID;

oracle01

2013-04-11T01:01:40+09:00

--sqlplus noboru01/noboru01 @test0003.sql column log_date new_value log_date_text noprint select to_char(sysdate,'yyyymmdd') log_date from dual; spool hoge_&log_date_text._temp.log set timing on set echo on set autotrace off set linesize 200 set trimspool on -- drop table tbl01 cascade constraints purge; create table tbl01 ( id1 char(8) , txt varchar2(20), primary key( id1 ) ); declare vID1 char(8); --vText varchar2(250); begin for i in 1..5000000 --for i in 1..100 loop vID1 := to_char(i, 'FM00000000'); insert into tbl01 (id1, txt) values (vID1, 'AAAAA'); end loop; commit; end; / --select count(*) from tbl01; -- drop table tbl02 cascade constraints purge; create table tbl02 as select * from tbl01; truncate table tbl02; insert into tbl02 select * from tbl01; exec DBMS_STATS.GATHER_TABLE_STATS(OWNNAME => 'NOBORU01',TABNAME => 'TBL01',CASCADE => TRUE); drop table tbl02 cascade constraints purge; create table tbl02