Windows – ページ 12 – Un Known…(跡地) 技術メモ

2015年9月20日

【Word】画像の画質改善

Wordで画像を挿入後に印刷するとやけに画質が悪いと思い、
調べてみると、Word側で解像度を自動で補正しているためでした。

「ファイル」-「オプション」-「詳細設定」を選択します。
「イメージのサイズと画質」の「ファイル内のイメージを圧縮しない」をチェックします。

こうすることで、画質が劣化することがなくなります。
ファイルサイズは重くなるため、注意。

2015年9月20日

【Word】画像の挿入方法

Wordで画像を挿入した際、
画像の下側だけが表示される現象に遭遇し、その解決方法のメモ。

「ファイル」-「オプション」-「詳細設定」を選択します。
「切り取り、コピー、貼り付け」項目の
「図を挿入/貼り付ける形式」で「背面」を選択します。

ここが「行内」になっていると画像を行内に収めようと
画像の下側だけが表示されるようです。

2015年8月30日

【GIMP】画像加工その１

Photshopの代わりとして有名な画像フリーソフトのGIMPを利用しました。

画像切り抜き
1. 「ツールボックス」-「【切り抜き】オブジェクト」を選択
2. 「値を固定」にチェック、縦横比を選択
3. テキストボックスに「4:3」を入力
4. 画像を選択すると、上記設定が有効になった状態で選択されるので、選択後に画像をクリック
5. 「ツールバー」-「画像」-「画像の拡大・縮小」で「640, 480」に変更

画像の角を丸める
1. 「ツールバー」-「選択」-「角を丸める」を選択
2. 「20％」で「OK」ボタン押下
3. 「ツールバー」-「編集」-「コピー」を選択
4. 「ツールバー」-「編集」-「クリップボードから生成」-「画像」を選択
5. PNG形式で保存

2015年8月27日

【bat】エビデンスの取得効率化(全ケース)

少しでもエビデンスの取得を効率化するために、
下記手順でテストを行うことを想定。
今回は全ケースを一括実行します。

01_BEFORE_UT.batを実行
テスト実行
02_AFTER_UT.batを実行

DBはDB2としています。

01_BAFORE_UT.bat

@ECHO OFF
REM ケースごとのフォルダは作成済とします。
REM コマンドプロンプトを立ち上げ、「db2cmd 01_BAFORE_UT.bat」で実行します。

REM *************************************************************
REM  DB設定(各自の設定に変更してください。)
REM *************************************************************
SET SERVER_I=XXXXX
SET USER_ID=YYYYY
SET USER_PASS=ZZZZZ

REM *************************************************************
REM  DB2接続
REM    -t：SQLファイル内のセミコロンをステートメント終了文字とする。
REM    -v：コマンドテキストを標準出力にエコーする。
REM *************************************************************
db2 -tv connect to %SERVER_ID% user %USER_ID% using %USER_PASS%;

REM *************************************************************
REM  エビデンスフォルダ設定
REM    /b：フルパスを表示しない。
REM    /ad：フォルダー名のみ表示する。
REM *************************************************************
DIR /b /ad > file_list.txt
SETLOCAL ENABLEDELAYEDEXPANSION
FOR /f %%a IN (file_list.txt) DO (
    SET EVI_DIR=%%a
    SET SQL_OUTPUT=!EVI_DIR!\10_SQL_LOG_Before
    MKDIR !SQL_OUTPUT!
    ECHO !SQL_OUTPUT!

    REM *************************************************************
    REM  SQL実行
    REM    -t：SQLファイル内のセミコロンをステートメント終了文字とする。
    REM    -v：コマンドテキストを標準出力にエコーする。
    REM    -f：ファイル名を指定する。SQL文をファイルから読み込む。
    REM *************************************************************
    db2 -tvf select_AAA.sql > %SQL_OUTPUT%\select_AAA.log
)
ENDLOCAL
DEL file_list.txt

REM *************************************************************
REM  DB2切断
REM *************************************************************
db2 connect reset

02_AFTER_UT.bat
ログフォルダの作成とログファイルの取得を追加する。

2015年7月25日

【Excel】フォルダ内のエクセルファイルに対して情報を取得する

Dir関数を用いるため、ネットワーク上の長いファイルパスには未対応です。

Sub Test()

'
' Test Macro
'
' フォルダ内のファイルに対して処理を行います。
'
    ' 画面チラつきを防止する。
    Application.ScreenUpdating = False

    ' フォルダパスとファイル名を宣言する。
    Dim strFilePath As String
    Dim strFileNmae As String
 
    ' テキストボックスかセル入力でフォルダを指定させる。
    strFilePath = "C:\Users\test\Desktop\テストディレクトリ"
    strFilePath = Worksheets("sheet1").Cells(2, 1).Value
    
    ' 末尾が\ではない場合、\を追加する。(未実装)
    strFilePath = strFilePath & "\"
    
    ' 指定フォルダ内のファイル名を取得する。
    strFileName = Dir(strFilePath, vbNormal)

    ' 結果シートをアクティブにする。
    Worksheets("sheet1").Activate
   
    ' 結果シートの行数を宣言する。
    Dim longGyo As Long
    longGyo = 3

    ' 指定フォルダ内のファイルがなくなるまで繰り返す。
    Do While strFileName <> ""
        
        ' 結果配列とシート数を宣言する。
        Dim strArr() As String
        Dim sheetCnt As Long

        ' ファイルを開く。
        With Workbooks.Open(Filename:=strFilePath & strFileName)

            ' ファイル内のシート数を取得する。
            sheetCnt = .Worksheets.Count

            ' ファイル内のシート数分＋チェックしたい項目数分の2次元配列を確保する。
            ReDim strArr(1 To sheetCnt + 1, 10)
            
            ' 1シート目からnシート目まで繰り返す。
            Dim i As Long
            For i = 1 To sheetCnt
                strArr(i, 0) = .Worksheets(i).Name
                strArr(i, 1) = .Worksheets(i).Cells(3, 4).Value
                strArr(i, 2) = .Worksheets(i).PageSetup.LeftHeader
                strArr(i, 3) = .Worksheets(i).PageSetup.CenterHeader
                strArr(i, 4) = .Worksheets(i).PageSetup.RightHeader
                strArr(i, 5) = .Worksheets(i).PageSetup.LeftFooter
                strArr(i, 6) = .Worksheets(i).PageSetup.CenterFooter
                strArr(i, 7) = .Worksheets(i).PageSetup.RightFooter
                
                .Worksheets(i).Select
                strArr(i, 8) = ActiveWindow.Zoom
                strArr(i, 9) = ActiveCell.Address
            Next i
            
            ' 保存せずファイルを閉じる。
            .Close SaveChanges:=False
        End With

        ' 配列の1からnまで繰り返す。
        Dim j As Long
        For j = 1 To sheetCnt
            ' 結果シートのセルに各ファイルの各シートの値を設定する。
            Cells(longGyo, 1).Value = strFilePath & strFileName
            Cells(longGyo, 2).Value = strArr(j, 0)
            Cells(longGyo, 3).Value = strArr(j, 1)
            Cells(longGyo, 4).Value = strArr(j, 2)
            Cells(longGyo, 5).Value = strArr(j, 3)
            Cells(longGyo, 6).Value = strArr(j, 4)
            Cells(longGyo, 7).Value = strArr(j, 5)
            Cells(longGyo, 8).Value = strArr(j, 6)
            Cells(longGyo, 9).Value = strArr(j, 7)
            Cells(longGyo, 10).Value = strArr(j, 8)
            Cells(longGyo, 11).Value = strArr(j, 9)
            longGyo = longGyo + 1
        Next j

        ' 次のファイルを取得する。
        strFileName = Dir()
    Loop
        
    ' 画面チラつき防止を解除する。
    Application.ScreenUpdating = True
End Sub

2015年7月25日

【Excel】全シート分繰り返す

Sub Test()

'
' Test Macro
'
' 全シート分繰り返す。
'
    ' 画面のチラつきの防止設定を行う。
    Application.ScreenUpdating = False

    ' 全シート分繰り返す。
    Dim Sht As Worksheet
    For Each Sht In Worksheets
        ' シートを選択する。
        Sht.Select
        ' 処理を記述する。
        Msg "test"
    Next Sht

    ' 画面のチラつきの防止設定を元に戻す。
    Application.ScreenUpdating = True
End Sub

2015年7月25日

【Excel】選択セルの行列と選択セルの最終行列

Sub Test()

'
' Test Macro
'
' 行列を求める。
'
    ' 特定のセルを選択する。(i：行、j：列)
    ActiveSheet.Cells(i, j).Select

    ' 選択セルの行求める。
    MsgBox ActiveCell.Row

    ' 選択セルの列を求める。
    MsgBox Activecell.Column

    ' 選択セルの最終行を求める。
    MsgBox ActiveSheet.Cells(i, j).End(xlDown).Row

    ' 選択セルの最終列を求める。
    MsgBox ActiveSheet.Cells(i, j).End(xlToRight).Column

End Sub

2015年7月22日

【bat】エビデンスの取得効率化

少しでもエビデンスの取得を効率化するために、
下記手順でテストを行うことを想定。

01_BEFORE_UT.batを実行(第１引数にフォルダ名(ケース番号)を指定)
テスト実行
02_AFTER_UT.batを実行(第１引数にフォルダ名(ケース番号)を指定)

DBはDB2としています。

01_BAFORE_UT.bat

@ECHO OFF
REM 実行時の第１引数にエビデンス用のフォルダ名(ケース番号)を指定してください。
REM コマンドプロンプトを立ち上げ、「db2cmd 01_BAFORE_UT.bat フォルダ名」で実行します。

REM *************************************************************
REM  エビデンスフォルダ設定
REM *************************************************************
SET EVI_DIR=%1
SET SQL_OUTPUT=%EVI_DIR%\10_SQL_LOG_Before
MKDIR %EVI_DIR%
MKDIR %SQL_OUTPUT%

REM *************************************************************
REM  DB設定(各自の設定に変更してください。)
REM *************************************************************
SET SERVER_I=XXXXX
SET USER_ID=YYYYY
SET USER_PASS=ZZZZZ

REM *************************************************************
REM  DB2接続
REM    -t：SQLファイル内のセミコロンをステートメント終了文字とする。
REM    -v：コマンドテキストを標準出力にエコーする。
REM *************************************************************
db2 -tv connect to %SERVER_ID% user %USER_ID% using %USER_PASS%;

REM *************************************************************
REM  SQL実行
REM    -t：SQLファイル内のセミコロンをステートメント終了文字とする。
REM    -v：コマンドテキストを標準出力にエコーする。
REM    -f：ファイル名を指定する。SQL文をファイルから読み込む。
REM *************************************************************
db2 -tvf select_AAA.sql > %SQL_OUTPUT%\select_AAA.log

REM *************************************************************
REM  DB2切断
REM *************************************************************
db2 connect reset

02_AFTER_UT.bat

@ECHO OFF
REM 実行時の第１引数にエビデンス用のフォルダ名(ケース番号)を指定してください。
REM コマンドプロンプトを立ち上げ、「db2cmd 02_AFTER_UT.bat フォルダ名」で実行します。

REM *************************************************************
REM  エビデンスフォルダ設定
REM *************************************************************
SET EVI_DIR=%1
SET SQL_OUTPUT=%EVI_DIR%\20_SQL_LOG_After
SET LOG_OUTPUT=%EVI_DIR%\30_BATCH_LOG
MKDIR %SQL_OUTPUT%
MKDIR %LOG_OUTPUT%

REM *************************************************************
REM  DB設定(各自の設定に変更してください。)
REM *************************************************************
SET SERVER_I=XXXXX
SET USER_ID=YYYYY
SET USER_PASS=ZZZZZ

REM *************************************************************
REM  DB2接続
REM    -t：SQLファイル内のセミコロンをステートメント終了文字とする。
REM    -v：コマンドテキストを標準出力にエコーする。
REM *************************************************************
db2 -tv connect to %SERVER_ID% user %USER_ID% using %USER_PASS%;

REM *************************************************************
REM  SQL実行
REM    -t：SQLファイル内のセミコロンをステートメント終了文字とする。
REM    -v：コマンドテキストを標準出力にエコーする。
REM    -f：ファイル名を指定する。SQL文をファイルから読み込む。
REM *************************************************************
db2 -tvf select_AAA.sql > %SQL_OUTPUT%\select_AAA.log

REM *************************************************************
REM  DB2切断
REM *************************************************************
db2 connect reset

REM *************************************************************
REM  ログファイル取得
REM *************************************************************
copy \\サーバーホスト名\12345\xxxx.log %LOG_OUTPUT%

2015年7月19日

【Java】jarファイル付のJavaコンパイル

基本的なことをメモ。

前提条件
/home/testにjarファイル、Javaファイルがある。
Javaファイルは処理内でjarファイル内のメソッドを利用する。

コンパイルと実行

cd /home/test
javac -cp .:./jarファイル javaファイル
java -cp .:./jarファイル クラス名

クラスパスの区切り文字
Linuxはコロンになる。
Windowsはセミコロンになる。

実行時のルートパス
実行時に-cp指定がないとJAVA_HOMEがルートになる。
.を指定することで現在いるディレクトリがルートになる。

2015年4月5日

【jQuery】動的追加したオブジェクトにイベントを設定

jQueryでオブジェクト(ボタンやリンク)にイベントを設定した場合、
画面表示時点で存在しているオブジェクトを押下すると
設定したイベントがもちろん実行されますが、
動的追加したオブジェクトでは押下しても設定したイベントが
実行されない事象があったので、解決策をメモしておきます。

例
下記のようなHTML(Thymeleaf)があると仮定し、
追加ボタンを押下すると行(<tr>～</tr>)が追加されるとする。

<table class="table">
  <thead>
    <tr>
      <th><span th:text="${no}"></span></th>
      <th><span th:text="${gaiyou}"></span></th>
      <th><span th:text="${naiyou}"></span></th>
      <th><span th:text="${link}"></span></th>
      <th><span th:text="${aruaru}"></span></th>
    </tr>
  </thead>
  <tbody id="van-tbody">
    <tr th:each="van : ${vanAll}" >
      <td><span th:text="${van.no}"></span></td>
      <td><span th:text="${van.gaiyou}"></span></td>
      <td><span th:text="${van.naiyou}"></span></td>
      <td><span th:text="${link}"></span></td>
      <td>
        <span th:text="${van.aruaru}"></span><button id="button-plus + '${van.no}'" type="button" class="btn btn-plus"><span class="glyphicon glyphicon-plus-sign"></span></button>
      </td>
    </tr>
  </tbody>
</table>

オブジェクトのイベント設定(静的)
上記HTMLにおいて初期状態で2行分があるとし、
その2行分のみにイベントを設定する場合、下記のようなイベント設定で問題なし。
- clickメソッド
  古いタイプのイベント設定方法。
  「button」に設定してしまうとテーブル外のボタンにもイベントが設定されてしまうので、
  テーブル内のボタンだけが利用しているスタイルシート「btn-plus」にイベントを設定している。
```
<script type="text/javascript">

</script>
```
- onメソッド
  新しいタイプのイベント設定方法。
  こちらの設定方法が推奨されており、「バインド」と呼ばれる。
  onメソッドの第1引数はスペースで区切れば複数のイベントも設定可能。
  例：’click keyup’
```
<script type="text/javascript">

</script>
```

オブジェクトのイベント設定(動的)
上記HTMLにおいて初期状態で2行分があるとし、
3行目、4行目と増えてもイベントを動作させたい場合、
下記のようにイベント自体は親に設定しておいて、
onメソッドの第2引数に本来イベントを設定したいオブジェクトを指定します。
- onメソッド(第2引数追加版)
  このような設定方法を「デリゲート」という。
```
<script type="text/javascript">

</script>
```