tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^4: キー値を複数取得
投稿日: 2008/04/11(Fri) 11:56
投稿者ケース
Sub NewData()       'ini.Fileから取得
  
   Dim KeyName As String       'キー
   KeyName = vbNullString      'Nullセット
    
 '拡張子取得
 cmbExt.Text = GetINIValue("Ext1", "FileExt", App.Path & "\FileSearch.ini")

End Sub

上記のような感じで作成しましたが、列挙はできたのですが。
iniFileの中の

[FileExt] 'セクション名
Ext1=キー1
Ext2=キー2

というiniFileのキー以前を取得してきて,Ext1Ext2...のように列挙されます。
根本的に間違いでしょうか?

> GetINIValue の実装が不明瞭なので、答えようがないです。
Get INIValue は以下の内容です。補足が足りずすみません。
Public Function GetINIValue(KEY As String, Section As String, ININame As String) As String
    
    '文字列の領域確保
    Dim Value As String * 255
    
    'エラー表示
    Call GetPrivateProfileString(Section, KEY, "Error", Value, Len(Value), ININame)
    
    'Null値の除去
    GetINIValue = Replace(Value, vbNullChar, "")

End Function

度々ですがお願いします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。