HSPとExcel VBAで情報取得 (その2)

-
1.概要

HSP3やExcel VBAによるCOMオブジェクトの活用事例としての第二弾です。 今回は、前回記事に引き続き、外部ファイルを任意の実行時モードで起動、ディレクトリ名を指定してエクスプローラを起動 するなどのサンプルを作成して紹介します。特殊フォルダのパス定義定数は0～21まであり、1つ1つのパスを取得・確認するために ボタンを配置して確認するようにしていますが、HSPとExcel VBAでは、等価の処理として記述するためにクリックしたボタン のボタンID(番号)で判別するようにしています。



2.サンプル

2-1.外部ファイルを任意の実行時モードで起動させる
HSPの標準命令では、exec命令という実行時のモードに応じたアプリケーションの起動ができる便利な命令があります。 これは、外部ファイルを指定された実行時のモードで起動させることができるものです。モードは次のものが指定できます。
    モード0 : HSPノーマル実行
    モード2 : 最小化モードで実行
    モード16 : 関連付けされたアプリケーションを実行
    モード32 : 指定したファイルを印刷する
このモードは、モード値を組合せて指定することもできますが、最大化した状態での起動や非表示での起動といったものができません。
ここでは、WSHの Runメソッドを利用して様々な実行時制御を実現させます。 また、プログラムの実行が終了するまでスクリプトを待機させるかどうかを示すブール値が指定できます。 HSPでは、newcom命令でWshShell変数をCOMオブジェクト型として初期化したのち、 Runメソッドで実行するコマンド ラインを示す文字列値である実行ファイルのファイル名を含む渡すべきパラメータを指定します。 そして、実行時モードの定数と、実行終了待ちをするかどうかのブール値を指定しています。 Runメソッドで指定できる実行時モードは、全部で11種類ありますが、サンプルにおいては主な６種類のモードを定義してあります。 実際の動作としては、メモ帳 (notepad.exe)を最大化状態で、かつ、終了実行待ちの状態で起動させます。

Runメソッドによる実行モード

モード意 味
0 タスクバーには表示されません。
 そのためウィンドウもありません。完全に非表示状態で起動します。
 この状態で起動した場合は通常はタスクマネージャから終了させることになります。
1 既定値です。直前に起動したときのウィンドウサイズで起動します。
 タスクバーにも表示されます。選択された状態で表示されます。
 ヘルプでは初回表示時はこの値を使うことを指定されています。
 (他の値を使っても問題はないように見えます)
2 最小化された状態で起動します。選択状態になります。
3 最大化された状態で起動します。選択状態になります。
4 直前に起動したときのウィンドウサイズで起動しますが、選択された状態にはなりません。
5 直前に起動したときのウィンドウサイズで起動します。タスクバーにも表示されます。
 選択された状態で表示されます。起動に関しては1と同じ挙動です。
6 最小化された状態で起動します。選択された状態にはなりませんがOSが持つウィンドウの
 表示順では現在アクティブになっているウィンドウの次の位置になります。
7 最小化された状態で起動します。選択された状態にはなりません。
8 直前に起動したときのウィンドウサイズで起動します。選択された状態にはなりません。
9 起動に関しては1と同じ挙動です。ヘルプでは最小化されたウィンドウ復元時には
 この値を使うことを指定されています。
10 アプリケーションの起動時の状態に依存します。

HSP
1
2
3
4
5
6
7
8
9
10
11
12
;***** アプリケーションの起動 ***** 
#const WshHide              0  ; 非表示 
#const WshNormalFocus       1  ; 通常サイズ 
#const WshMinimizedFocus    2  ; 最小化 
#const WshMaximizedFocus    3  ; 最大化 
#const WshNormalNoFocus     4  ; 通常サイズかつ非フォーカス 
#const WshMinimizedNoFocus  6  ; 最小化かつ非フォーカス 
 
newcom WshShell, "WScript.Shell" 
WshShell->"Run" "notepad.exe",WshMaximizedFocus, 1 
delcom WshShell
stop
Excel VBA
1
2
3
4
5
6
7
8
9
10
11
12
13
14
'***** アプリケーションの起動 ***** 
Sub apprun()
    Dim wsh  As Object
 
    ' WshHide               0   : 非表示 
    ' WshNormalFocus        1   : 通常サイズ 
    ' WshMinimizedFocus     2   : 最小化 
    ' WshMaximizedFocus     3   : 最大化 
    ' WshNormalNoFocus      4   : 通常サイズかつ非フォーカス 
    ' WshMinimizedNoFocus   6   : 最小化かつ非フォーカス 
 
    Set wsh = CreateObject("Wscript.Shell")
    wsh.Run "notepad.exe", WshMaximizedFocus, True
End Sub

2-2.任意に指定したディレクトリ名を指定してエクスプローラを起動する
システムに予約されている特殊フォルダのパスを指定してエクスプローラを起動します。 WSHでは、特殊フォルダのパスは、0～21 までの定数値として持っています。この定数値を パラメータとして、Exploreメソッドから呼び出します。 HSPでは、newcom命令でShellApp変数をCOMオブジェクト 型として初期化したのち、 Exploreメソッドで配列で定義してある定数値をパラメータ として与えることにより実行します。
HSP
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
  ;***** ディレクトリ名を指定してエクスプローラを起動 *****
  ;***** ShellSpecialFolderConstants *****
  dim folmode,18
  folmode(0) = 0        ; ssfDESKTOP : デスクトップ(仮想)
  folmode(1) = 1        ; ssfIE :Internet Explorer
  folmode(2) = 2        ; ssfPROGRAMS : プログラム
  folmode(3) = 3        ; ssfCONTROLS : コントロールパネル
  folmode(4) = 4        ; ssfPRINTERS : プリンタ
  folmode(5) = 5        ; ssfPERSONAL : マイドキュメント
  folmode(6) = 6        ; ssfFAVORITES : お気に入り
  folmode(7) = 7        ; ssfSTARTUP :スタートアップ
  folmode(8) = 8        ; ssfRECENT : 最近使ったファイル
  folmode(9) = 9        ; ssfSENDTO : 送る
  folmode(10) = 10      ; ssfBITBUCKET : ごみ箱
  folmode(11) = 11      ; ssfSTARTMENU : スタートメニュー
  folmode(12) = 16      ; ssfDESKTOPDIRECTORY : デスクトップ(フォルダ)
  folmode(13) = 17      ; ssfDRIVES : マイコンピュータ
  folmode(14) = 18      ; ssfNETWORK : ネットワークコンピュータ
  folmode(15) = 19      ; ssfNETHOOD : NetHood
  folmode(16) = 20      ; ssfFONTS : フォント
  folmode(17) = 21      ; ssfTEMPLATES : テンプレート
 
  newcom ShellApp, "Shell.Application"
 
  onexit *owari
  font "Meiryo UI",14,0 : objmode 2
  objsize 300,26
  pos 40,5
  button " デスクトップ(仮想) 　　　　",*execmode
  button " Internet Explorer 　　 　　",*execmode
  button " プログラム　　　           ",*execmode
  button " コントロールパネル　　   　",*execmode
  button " プリンタ　　　             ",*execmode
  button " マイドキュメント　　       ",*execmode
  button " お気に入り　　           　",*execmode
  button " スタートアップ　　　       ",*execmode
  button " 最近使ったファイル　　　   ",*execmode
  button " 送る　　                 　",*execmode
  button " ごみ箱　　　               ",*execmode
  button " スタートメニュー　　　     ",*execmode
  button " デスクトップ(フォルダ)　 　",*execmode
  button " マイコンピュータ　　     　",*execmode
  button " ネットワークコンピュータ 　",*execmode
  button " NetHood　　　              ",*execmode
  button " フォント　　　             ",*execmode
  button " テンプレート　　　         ",*execmode
  stop
 
*execmode
  objID = stat
  if objID=1 {
    dialog "Internet Explorerが既定でないと起動できません。"
  }
  ShellApp->"Explore" folmode(objID)
  stop
 
*owari
  ;COMオブジェクト型で、有効なCOMオブジェクトを保持しているか
  if vartype(ShellApp)==6 {
    if varuse(ShellApp)==1 : delcom ShellApp
  }
  end
Excel VBA
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
'***** デスクトップ(仮想) *****
Private Sub CommandButton1_Click()
    Call prcButtonClick(1)
End Sub
 
'***** Internet Explorer *****
Private Sub CommandButton2_Click()
    Call prcButtonClick(2)
End Sub
 
'***** プログラム *****
Private Sub CommandButton3_Click()
    Call prcButtonClick(3)
End Sub
 
'***** コントロールパネル *****
Private Sub CommandButton4_Click()
    Call prcButtonClick(4)
End Sub
 
'***** プリンタ *****
Private Sub CommandButton5_Click()
    Call prcButtonClick(5)
End Sub
 
'***** マイドキュメント *****
Private Sub CommandButton6_Click()
    Call prcButtonClick(6)
End Sub
 
'***** お気に入り *****
Private Sub CommandButton7_Click()
    Call prcButtonClick(7)
End Sub
 
'***** スタートアップ *****
Private Sub CommandButton8_Click()
    Call prcButtonClick(8)
End Sub
 
'***** 最近使ったファイル *****
Private Sub CommandButton9_Click()
    Call prcButtonClick(9)
End Sub
 
'***** 送る *****
Private Sub CommandButton10_Click()
    Call prcButtonClick(10)
End Sub
 
'***** ごみ箱 *****
Private Sub CommandButton11_Click()
    Call prcButtonClick(11)
End Sub
 
'***** スタートメニュー *****
Private Sub CommandButton12_Click()
    Call prcButtonClick(12)
End Sub
 
'***** デスクトップ(フォルダ) *****
Private Sub CommandButton13_Click()
    Call prcButtonClick(13)
End Sub
 
'***** マイコンピュータ *****
Private Sub CommandButton14_Click()
    Call prcButtonClick(14)
End Sub
 
'***** ネットワークコンピュータ *****
Private Sub CommandButton15_Click()
    Call prcButtonClick(15)
End Sub
 
'***** NetHood *****
Private Sub CommandButton16_Click()
    Call prcButtonClick(16)
End Sub
 
'***** フォント *****
Private Sub CommandButton17_Click()
    Call prcButtonClick(17)
End Sub
 
'***** テンプレート *****
Private Sub CommandButton18_Click()
    Call prcButtonClick(18)
End Sub
 
'***** ボタン番号判定 *****
Private Sub prcButtonClick(ByVal viBtnNo As Integer)
    Call folmode(viBtnNo)
End Sub
 
'***** ディレクトリ名を指定してエクスプローラを起動 *****
Sub folmode(ByVal viBtnNo As Integer)
    Dim ShellApp  As Object
    Dim folmode(18) As Integer
 
    '***** ShellSpecialFolderConstants *****
    folmode(1) = 0        ' ssfDESKTOP : デスクトップ(仮想)
    folmode(2) = 1        ' ssfIE : Internet Explorer
    folmode(3) = 2        ' ssfPROGRAMS : プログラム
    folmode(4) = 3        ' ssfCONTROLS : コントロールパネル
    folmode(5) = 4        ' ssfPRINTERS : プリンタ
    folmode(6) = 5        ' ssfPERSONAL : マイドキュメント
    folmode(7) = 6        ' ssfFAVORITES : お気に入り
    folmode(8) = 7        ' ssfSTARTUP :スタートアップ
    folmode(9) = 8        ' ssfRECENT : 最近使ったファイル
    folmode(10) = 9       ' ssfSENDTO : 送る
    folmode(11) = 10      ' ssfBITBUCKET : ごみ箱
    folmode(12) = 11      ' ssfSTARTMENU : スタートメニュー
    folmode(13) = 16      ' ssfDESKTOPDIRECTORY : デスクトップ(フォルダ)
    folmode(14) = 17      ' ssfDRIVES : マイコンピュータ
    folmode(15) = 18      ' ssfNETWORK : ネットワークコンピュータ
    folmode(16) = 19      ' ssfNETHOOD : NetHood
    folmode(17) = 20      ' ssfFONTS : フォント
    folmode(18) = 21      ' ssfTEMPLATES : テンプレート
 
    If viBtnNo = 2 Then
        MsgBox "Internet Explorerが既定でないと起動できません。"
    End If
 
    Set ShellApp = CreateObject("Shell.Application")
    ShellApp.Explore (folmode(viBtnNo))
     
    Set ShellApp = Nothing
End Sub

2-3.任意に指定したディレクトリ名を指定してマイコンピュータ形式で開く
システムに予約されている特殊フォルダのパスを指定してマイコンピュータ形式で開きま す。WSHでは、特殊フォルダのパスは、0～21 までの定数値として持っています。この定数 値をパラメータとして、Openメソッドから呼び出します。 HSPでは、newcom命令でShellApp変数をCOMオブジェクト 型として初期化したのち、 Openメソッドで#constで定義してある定数値をパラメータとし て与えることにより実行します。 処理は、エクスプローラを起動かマイコンピュータ形式かの違いだけです。
HSP
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
  ;***** 任意のフォルダをマイコンピュータ形式で開く　*****
  ;***** ShellSpecialFolderConstants *****
  dim mycomp,18
  mycomp(0) = 0        ; ssfDESKTOP : デスクトップ(仮想)
  mycomp(1) = 1        ; ssfIE :Internet Explorer
  fmycomp(2) = 2       ; ssfPROGRAMS : プログラム
  mycomp(3) = 3        ; ssfCONTROLS : コントロールパネル
  mycomp(4) = 4        ; ssfPRINTERS : プリンタ
  mycomp(5) = 5        ; ssfPERSONAL : マイドキュメント
  mycomp(6) = 6        ; ssfFAVORITES : お気に入り
  mycomp(7) = 7        ; ssfSTARTUP :スタートアップ
  mycomp(8) = 8        ; ssfRECENT : 最近使ったファイル
  mycomp9) = 9         ; ssfSENDTO : 送る
  mycomp(10) = 10      ; ssfBITBUCKET : ごみ箱
  mycomp(11) = 11      ; ssfSTARTMENU : スタートメニュー
  mycomp(12) = 16      ; ssfDESKTOPDIRECTORY : デスクトップ(フォルダ)
  mycomp(13) = 17      ; ssfDRIVES : マイコンピュータ
  mycomp(14) = 18      ; ssfNETWORK : ネットワークコンピュータ
  mycomp(15) = 19      ; ssfNETHOOD : NetHood
  mycomp(16) = 20      ; ssfFONTS : フォント
  mycomp(17) = 21      ; ssfTEMPLATES : テンプレート
 
  newcom ShellApp, "Shell.Application"
 
  onexit *owari
  font "Meiryo UI",14,0 : objmode 2
  objsize 300,26
  pos 40,5
  button " デスクトップ(仮想) 　　　　",*execmode
  button " Internet Explorer 　　 　　",*execmode
  button " プログラム　　　           ",*execmode
  button " コントロールパネル　　   　",*execmode
  button " プリンタ　　　             ",*execmode
  button " マイドキュメント　　       ",*execmode
  button " お気に入り　　           　",*execmode
  button " スタートアップ　　　       ",*execmode
  button " 最近使ったファイル　　　   ",*execmode
  button " 送る　　                 　",*execmode
  button " ごみ箱　　　               ",*execmode
  button " スタートメニュー　　　     ",*execmode
  button " デスクトップ(フォルダ)　 　",*execmode
  button " マイコンピュータ　　     　",*execmode
  button " ネットワークコンピュータ 　",*execmode
  button " NetHood　　　              ",*execmode
  button " フォント　　　             ",*execmode
  button " テンプレート　　　         ",*execmode
  stop
 
*execmode
  objID = stat
  if objID=1 {
    dialog "Internet Explorerが既定でないと起動できません。"
  }
  ShellApp->"Open" mycomp((objID)
  stop
 
*owari
  ;▼COMオブジェクト型で、有効なCOMオブジェクトを保持しているか
  if vartype(ShellApp)==6 {
    if varuse(ShellApp)==1 : delcom ShellApp
  }
  end
Excel VBA
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
'***** デスクトップ(仮想) *****
Private Sub CommandButton1_Click()
    Call prcButtonClick(1)
End Sub
 
'***** Internet Explorer *****
Private Sub CommandButton2_Click()
    Call prcButtonClick(2)
End Sub
 
'***** プログラム *****
Private Sub CommandButton3_Click()
    Call prcButtonClick(3)
End Sub
 
'***** コントロールパネル *****
Private Sub CommandButton4_Click()
    Call prcButtonClick(4)
End Sub
 
'***** プリンタ *****
Private Sub CommandButton5_Click()
    Call prcButtonClick(5)
End Sub
 
'***** マイドキュメント *****
Private Sub CommandButton6_Click()
    Call prcButtonClick(6)
End Sub
 
'***** お気に入り *****
Private Sub CommandButton7_Click()
    Call prcButtonClick(7)
End Sub
 
'***** スタートアップ *****
Private Sub CommandButton8_Click()
    Call prcButtonClick(8)
End Sub
 
'***** 最近使ったファイル *****
Private Sub CommandButton9_Click()
    Call prcButtonClick(9)
End Sub
 
'***** 送る *****
Private Sub CommandButton10_Click()
    Call prcButtonClick(10)
End Sub
 
'***** ごみ箱 *****
Private Sub CommandButton11_Click()
    Call prcButtonClick(11)
End Sub
 
'***** スタートメニュー *****
Private Sub CommandButton12_Click()
    Call prcButtonClick(12)
End Sub
 
'***** デスクトップ(フォルダ) *****
Private Sub CommandButton13_Click()
    Call prcButtonClick(13)
End Sub
 
'***** マイコンピュータ *****
Private Sub CommandButton14_Click()
    Call prcButtonClick(14)
End Sub
 
'***** ネットワークコンピュータ *****
Private Sub CommandButton15_Click()
    Call prcButtonClick(15)
End Sub
 
'***** NetHood *****
Private Sub CommandButton16_Click()
    Call prcButtonClick(16)
End Sub
 
'***** フォント *****
Private Sub CommandButton17_Click()
    Call prcButtonClick(17)
End Sub
 
'***** テンプレート *****
Private Sub CommandButton18_Click()
    Call prcButtonClick(18)
End Sub
 
'***** ボタン番号判定 *****
Private Sub prcButtonClick(ByVal viBtnNo As Integer)
    Call mycomp(viBtnNo)
End Sub
 
'***** 任意のフォルダをマイコンピュータ形式で開く *****
Sub mycomp(ByVal viBtnNo As Integer)
    Dim ShellApp  As Object
    Dim mycomp(18) As Integer
 
    '***** ShellSpecialFolderConstants *****
    mycomp(1) = 0        ' ssfDESKTOP : デスクトップ(仮想)
    mycomp(2) = 1        ' ssfIE : Internet Explorer
    mycomp(3) = 2        ' ssfPROGRAMS ; プログラム
    mycomp(4) = 3        ' ssfCONTROLS : コントロールパネル
    mycomp(5) = 4        ' ssfPRINTERS : プリンタ
    mycomp(6) = 5        ' ssfPERSONAL : マイドキュメント
    mycomp(7) = 6        ' ssfFAVORITES : お気に入り
    mycomp(8) = 7        ' ssfSTARTUP :スタートアップ
    mycomp(9) = 8        ' ssfRECENT : 最近使ったファイル
    mycomp(10) = 9       ' ssfSENDTO : 送る
    mycomp(11) = 10      ' ssfBITBUCKET : ごみ箱
    mycomp(12) = 11      ' ssfSTARTMENU : スタートメニュー
    mycomp(13) = 16      ' ssfDESKTOPDIRECTORY : デスクトップ(フォルダ)
    mycomp(14) = 17      ' ssfDRIVES : マイコンピュータ
    mycomp(15) = 18      ' ssfNETWORK : ネットワークコンピュータ
    mycomp(16) = 19      ' ssfNETHOOD : NetHood
    mycomp(17) = 20      ' ssfFONTS : フォント
    mycomp(18) = 21      ' ssfTEMPLATES : テンプレート
 
    If viBtnNo = 2 Then
        MsgBox "Internet Explorerが既定でないと起動できません。"
    End If
 
    Set ShellApp = CreateObject("Shell.Application")
    ShellApp.Open (mycomp(viBtnNo))
     
    Set ShellApp = Nothing
End Sub

3.ソースコードについて

掲載ソースコードのライセンスは、CC0 (クレジット表示不要、改変可、商用可) とします。自由に利用して頂いてかまいません。 尚、データの取得やプログラム実行において損害等が生じた場合は、筆者は一切の責任も負いません。全て自己責任でお願いします。

■関連記事
・HSPとExcel VBAで情報取得 (COMオブジェクトの活用)
・HSPとExcel VBAで情報取得 (その1)
・HSPとExcel VBAで情報取得 (その3)
・HSPとExcel VBAで情報取得 (その4)

コメント

コメントを投稿

このブログの人気の投稿

Excelアドインで日本語形態素解析

-
イメージ
1.概要 日本語形態素解析とは、文法的な情報の注記の無い自然言語のテキストデータ（文）から、対象言語の文法や、辞書と呼ばれる単語の品詞等の情報に基づき、 形態素（Morpheme, おおまかにいえば、言語で意味を持つ最小単位）の列に分割し、それぞれの形態素の品詞等を判別する作業です。（出典:Wikipedia） 形態素解析エンジンとしては、Mecabが有名です。筆者もPythonにインストールして、テキストマイニングに利用しています。しかし、会社などで利用したい 場合は、このような環境を個人的な利用目的で構築するにしても、セキュリティ上の問題などでIT管理者などから利用許可が下りない場合があります。 今回は、普段から利用しているExcelのアドインでテキストマイニングをして見たいと思います。特別なサーバーなどへのインストールなしで、 個人PCにアドインのインストール許可さえもらえれば誰でも簡単にテキストマイニング(ワードクラウド)分析をすることができます。 2.利用方法 (1)Excelのアドインである「E2D3」を追加します。「挿入」→「アドインを入手」をクリックし      「データ分析」を選択して、「E2D3」を探します。見つかったら、「追加」をクリックしま      す。これで、「E2D3」が利用できるようになります。 (2)分析するデータ(テキスト文書)を準備します。 (3)下記サイトの日本語形態素解析サービス(無料ツール)を利用して、文書を解析し品詞毎に分解、      統計データとして出力します。 日本語形態素解析サービス(無料ツール) URL : https://opendata-web.site/tool/parse/ ※ブックマーク等に登録しておくと良いでしょう。 (4)分析するデータ(テキスト文書)をテキストボックスに貼付け、解析ボタンをクリックします。 (5)解析結果が日本語形態素と統計の2種類画面出力されるので、統計の表をコピペして、Excelの      空きシートに一時的に貼り付けます。 (...

階層構造JSONファイルの作成

-
イメージ
1.はじめに 仕事や趣味でいろいろなデータを扱いますが、プログラミングで扱うデータ形式も多種多様でデータベース、テキスト、csv、xml、json形式など 思い付くだけで数十種類でてきます。データの見える化 (可視化) をやりたくて階層構造のJSON形式のファイルを扱う必要性があり、 元データ収集・編集 ⇒ Excelでデータ作成 ⇒ CSV出力 ⇒ 階層構造のJSONファイルへ変換出力と言ったステップでJSONファイルを作成して見ましたので紹介致します。 2.階層構造CSVtoJSONコンバータ 最初は、テキストエディタで手作業でJSONファイルを作成しょうと試みましたが、{}の対応付けや[,などの挿入漏れなど ミスすることが多くてデータを読み込むとエラーで動かないことの連続でした。何とか効率良く元データより階層構造の JSON形式のファイルを作成することができないものかとネット検索しても意図したものを見つけ出すことが出来ませんでした。 そこで今回、試行錯誤してExcel VBAで作成した 「階層構造CSVtoJSONコンバータ」 によるデータ作成手順をまとめて見ました。 階層構造のJSONファイルとは、 親、子、孫、曾孫・・・といった 階層構造のデータ形式のァイル です。 2-1.データの収集について まずは、目的とすべき元となるデータを収集しなければなりません。データの入手や収集手段はいろいろあると思いますが、 1回限りでのみ利用する場合や不定期、日次、週次、月次など継続的に利用する場合に応じて効率良い方法を選択する必要があります。 企業では自社内の各種システムにて収集や加工・編集などができるツール類もあると思いますが、個人ではなかなか揃えられません。 尚、今回は小規模なデータを扱うことを前提としているので効率的なデータの収集方法などについては別の機会にでも考えていきたいと 思います。ここでは、 「階層構造CSVtoJSONコンバータ」 の説明のためのテストデータを利用しての手順について説明します。 2-2.作成手順 (1)元データの準備 (テスト用に鳥類目録データの一部を利用) (2)Excelで元データを利用して、階層構造のデータ表を作成する。     ※【お願い】ファイルの終端判定のため、A列の末...

キーボードのキーコードの一覧表

-
イメージ
1.概要 HSPやExcel VBAなどを利用していて、キーボードのキー定数が知りたい場合があります。その都度、ネットで調べているのが手間なので、 一覧表にして見ました。このキーコードは、 Win32API の keybd_event 関数等を利用して送信することができるコードです。 プログラム上からキーコードを送信する場合は、誤操作防止のため十分なウェイトを入れるなりの工夫が必要です。 2.キーボードのキーコード一覧表 キーボードのキーコード一覧表です。全部で127個あります。 キーボードのキーコード一覧表 No. 記号定数名 値 ( HEX ) 値 ( DEC ) 意味 ( 該当するキー ) 1  VK_LBUTTON $01 01 2  VK_RBUTTON $02 02 3  VK_CANCEL $03 03  Cancel（[Ctrl]+[Break]) 4  VK_MBUTTON $04 04 5  VK_BACK $08 08  [BackSpace] 6  VK_TAB $09 09  [Tab] 7  VK_CLEAR $0C 12 8  VK_RETURN $0D 13  [Enter] 9  VK_SHIFT $10 16  [Shift] 10  VK_CONTROL $11 17  [Ctrl] 11  VK_MENU $12 18  [Alt] 12  VK_PAUSE $13 19  [Pause] 13  VK_CAPITAL $14 20  [CapsLock] 14  VK_ESCAPE $1B 27  [Esc] 15  VK_SPACE $20 32  [スペースキー] 16  VK_PRIOR $2...