====*====*====*====*====*====*====*====*====*====*====*====*====*====*====*= [ 三流ＰＧ 番外編 今日の一品 No.013 ] 2000/02/25 金曜日 発送予定 =*====*====*====*====*====*====*====*====*====*====*====*====*====*====*==== 三流ＰＧ 番外編 今日の一品 は 隠し味として、 軽めのＶＢＡ関係のサブルーチンを載せていきたいと思います。 ----------------------------------------------------------------------------iniFileを読む GetPrivateProfileString
実力ないのに、メルマガ発行中のＫｅｎ３です。 今回は、INIファイル、設定ファイルを読む？です。 ＊たいしたことないです。 同僚に依頼されたプログラムで、 下記の指摘・要望がきました。 ------------------------------------------------------ Setup.exeを探すのではなく、 下記のINIファイルを読みこんで、可変に処理するように変更。 Install.INI [Caption] Caption=SLS System インストール選択 [Message] Message=インストールする支店・営業所を選択して下さい。 [Button] 札幌=\C_SLS\SOSD\SAPPORO\SETUP.EXE 仙台=\C_SLS\SOSD\SENDAI\SETUP.EXE 東京=\C_SLS\SOSD\TOKYO\SETUP.EXE 名古屋=\C_SLS\SOSD\NAGOYA\SETUP.EXE 大阪=\C_SLS\SOSD\OSAKA\SETUP.EXE 広島=\C_SLS\SOSD\HIROSIMA\SETUP.EXE 福岡=\C_SLS\FUKUOKA\SETUP.EXE ------------------------------------------------------ ＶＢがあれば、自分で変更できる、、、 とまた同僚に言われそうだけど、、 ＊なんか、ＸＸあればできるんだけどに反応してしまう、、 （自分へ一言、、人間できてないね、、 簡単な変更なんだから気持ちよくやったら？） また、グチから入ってしまいましたが、 よくある話で、 プログラムを固定処理じゃなく、 パラメーターをメモ帳などで編集したら可変で動作してほしい ってこと、いろいろな場面であるので、 値の取り方の参考としてください。 例）画像の位置などを可変にしたい時 Conifg.ini [GraphPath] path=Q:\JPG\Master ^^^^^^^^^^^^^^^などをシステム起動時に読みとって処理 下記、サンプルです。 ' ' 初期設定ファイルのアクセス関数の定義 ' Declare Function GetPrivateProfileString Lib "Kernel32.dll" Alias "GetPrivatePr ofileStringA" (ByVal AppName As String, ByVal KeyName As String, ByVal DEFAULT As String, ByVal ReturnedString As String, ByVal MaxSize As Long, ByVal FileNam e As String) As Long Sub test() Dim IniData As String ' 初期設定ファイルのデータ Dim Rtn As Integer ' 復帰値 ' 初期設定ファイルからデータを取り出す IniData = String$(255, 0) Rtn = GetPrivateProfileString("Caption", "Caption", "err", IniData, Len(IniData), "C:\test.ini") 'テストで表示 MsgBox IniData ' 初期設定ファイルからデータを取り出す IniData = String$(255, 0) Rtn = GetPrivateProfileString("Button", "東京", "err", IniData, Len(IniData), "C:\test.ini") 'テストで表示 MsgBox IniData End Sub '------------------------------------------------------------- C:\にあるＴＥＳＴ．ＩＮＩファイルの Captionの値と東京の値を取ってきてます。 VB, Access, Excel で動作すると思います。 いろいろ、試してみてください。 今日の一言、、 文句言わないで、気持ちよく、作ってあげようよ。 簡単なプログラムなんだしさ、、 頼まれてる（同僚から）うちが花だよキット。。。 やっぱ、三流だなぁ、、と声が聞こえてきたところで、このへんで、、 今日も逃げ出す、、、悪人 Ｋｅｎ３ でした。。。
質問や要望など連絡方法でお互い確認が取りやすく、便利なのが掲示板なのですが、私の対応のまずさから不定期で荒れてしまい、掲示板は現在封鎖中です。(反省しなきゃ)
|
感想や質問・要望・苦情など 三流君へメッセージを送る。 時間的余裕のある要望・質問・苦情の場合は、下記のフォームからメッセージを送ることができます。 |
| ←パソコンの技術系の書籍を探しているなら コンピュータ関連の出版社33社（アスキー、インプレス等）が共同運営するコンピュータの本・専門店 ※種類が豊富で探し易い※在庫ありが48時間以内発送 |