備忘録

メニュー

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

*EXCEL -[[DBアクセス>A0001-01]] -[[比較>BAT01]] ---- *VB -[[bat_メニュー>BAT01]] -[[bat_比較>BAT02]] -[[BAT03]] -[[WSH_01]] -[[VBA01]] -[[VBA02]] -[[VBA03_テキストから一覧出力>VBA03]] -[[VBA04_テキストの複写置換>VBA04]] -[[VBA05_テキストから展開>VBA05]] -[[VBA06]] -[[JAVA]] -[[oracle01]] -[[oracle_動的ビューからプラン取得>oracle02]] &link_pagelist() //**更新履歴 //#recent(20) *大見出し

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, "aaa2") > 0 Then If Cells(GYO, 2).Value <> "" Then GYO = GYO + 1 End If strREC = Trim(Replace(strREC, vbTab, "")) Cells(GYO, 2).Value = strREC End If If InStr(strREC, "aaa3") > 0 Then If Cells(GYO, 3).Value <> "" Then GYO = GYO + 1 End If strREC = Trim(Replace(strREC, vbTab, "")) Cells(GYO, 3).Value = strREC End If Loop ' 指定ファイルをCLOSE Close #intFF End Sub

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 :============

BAT01

2013-04-25T00:09:02+09:00

rem **************************** rem *　キー入力でメニュー選択　* rem **************************** :start @echo off cls echo. echo 　　　1. メニュー・１ echo 　　　2. メニュー・２ echo. echo 　　　9. 　終　了 echo. set choice= set /p choice=　　　　　　　“メニュー番号”[Enter] 　 if not '%choice%'=='' set choice=%choice:~0,1% if '%choice%'=='1' goto menu-1 if '%choice%'=='2' goto menu-2 if '%choice%'=='9' goto end echo. echo 　　　　　　　［ %choice% ］・・・メニュー番号が違います。 goto loop :menu-1 cls echo. echo. echo 　　　　　【メニュー・１】を表示しています goto loop :menu-2 cls echo. echo. echo 　　　　　　　　　《メニュー・２》を表示しています goto loop :loop echo. echo. echo 　　　何かキーを押すと、メニューに戻ります。 echo. pause > null echo. goto start :end exit set path=%path%;x:\ghost x: cd \ghost rem --- This will create primary OS drive configuration --- ghost32.exe /setosdrives /blind >> x:\ghost\startlog.txt subst z: c:\ghost_image subst z: d:\ghost_image subst z: e:\ghost_image subst z: f:\ghost_image subst z: g:\ghost_image subst z: h:\ghost_image subst z: i:\ghost_image subst z: j:\ghost_image subst z: k:\ghost_image subst z: l:\ghost_image subst z: m:\ghost_image subst z: n:\ghost_image :start cls @echo off echo ******************************************************************** echo Recovery Menu [WindowsXP Professional ServicePack2] echo ******************************************************************** echo. echo HDD Currentry Status: gdisk32 /status echo. echo ******************************************************************** echo. echo Select Menu [1-3 , 0] echo -------------------------------------------------------------------- echo. echo [1] : OS Recovery [Full Size Partition 1st-HDD] echo [2] : OS Recovery [Custom Size Partition 1st-HDD] echo [3] : Pertition Recovery [Need to create a partition beforehand.] echo. echo [0] : Shutdown echo ******************************************************************** set /p NUM="Please select No. >" if "%NUM%"=="1" goto 1 if "%NUM%"=="2" goto 2 if "%NUM%"=="3" goto 3 if "%NUM%"=="0" goto 0 goto end :1 cls echo ------------------------------- echo Disk Recovery Selected [Full] echo ------------------------------- echo Plase wait... GHOST32.EXE -clone,mode=restore,src=z:\image.gho,dst=1,sze1=100p -sure -rb goto end :2 cls echo ------------------------------- echo Disk Recovery Selected [Costom] echo ------------------------------- echo Plase wait... GHOST32.EXE -clone,mode=restore,src=z:\image.gho,dst=1,sze1=100p -rb goto end :3 cls echo ------------------------------- echo Pertition Recovery Selected echo ------------------------------- echo Plase wait... GHOST32.EXE -clone,mode=prestore,src=z:\image.gho:1,dst=1:1 -sure -rb goto end :0 cls :end echo Shutdown... echo. pause wpeutil shutdown

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