
No.1ベストアンサー
- 回答日時:
田吾作7です。
Nullの扱いですが、それはあくまでCの記述であって、CのNullとVBのNullは意味が違います。
GetPrivateProfileStringではvbNullStringを使用します。
Public Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFileName As String) As Long
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long
'ウィンドウズディレクトリを返す
Public Function GetWinDir() As String
Dim lpBuffer As String * 260
Call GetWindowsDirectory(lpBuffer, Len(lpBuffer))
GetWinDir = Left(lpBuffer, InStr(lpBuffer, Chr$(0)) - 1)
If Right(GetWinDir, 1) <> "\" Then GetWinDir = GetWinDir & "\"
End Function
'INIファイルからセクションを列挙する
Private Sub Main()
Dim lngRetValue As Long 'ステータス
Dim strIniFileName As String '設定ファイル名
Dim strSectionName As String 'セクション名
Dim strKeyName As String 'キー名
Dim strDefault As String 'デフォルト値
Dim strReturned As String * 1023 '値を返す文字列
Dim wkVal As Variant
Dim i As Long
'イニシャルファイルの指定
strIniFileName = GetWinDir & "System.ini"
'セクションにNULLをセット
strSectionName = vbNullString
'キーにNULLセット
strKeyName = vbNullString
'見つからないときに返す文字列
strDefault = "キーが見つからない"
'キーが帰る文字列に領域をセット
strReturned = String(Len(strReturned), vbNullChar)
'キーの取得
lngRetValue = GetPrivateProfileString _
(ByVal strSectionName _
, ByVal strKeyName _
, ByVal strDefault _
, strReturned _
, ByVal Len(strReturned) _
, ByVal (strIniFileName & vbNullChar))
'キーの取得成功
If lngRetValue >= 0 Then
'結果の出力
wkVal = Split(strReturned, vbNullChar)
For i = LBound(wkVal) To UBound(wkVal)
Debug.Print wkVal(i)
If wkVal(i) = "" Then
Exit For
End If
Next i
'キーの取得失敗
Else
Debug.Print "失敗しました"
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
プラス(足す)キーはどうやっ...
-
プーリーのキーが外れない
-
exp(13.4)を関数電卓で計算する...
-
キー局5社について
-
google chrome から yuotube.co...
-
【Windows11の新機能で驚いたこ...
-
メールアドレスの作成の際上バ...
-
「(アクサングラーブ)キー」と...
-
パソコンの「Z」キーが不調
-
キーボードがCtrlキーが押され...
-
NumLockが勝手に切り替わる?
-
PgDn、PgUpの設定が急に変わっ...
-
エクセルで複数行に散らばった...
-
キーボードの上部にあるランプ...
-
プリントスクリーンの仕方について
-
ボックス扇風機のキーキー音
-
Outlook2010 のメール内の画像...
-
Access2010 Enterで次テキスト...
-
Excelでカーソルの移動が...
-
(word) 文字列の上に線を引く方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
プラス(足す)キーはどうやっ...
-
キー局5社について
-
google chrome から yuotube.co...
-
メールアドレスの作成の際上バ...
-
「か」を数字で表すとどうなり...
-
CMについて
-
exp(13.4)を関数電卓で計算する...
-
PgDn、PgUpの設定が急に変わっ...
-
「(アクサングラーブ)キー」と...
-
プーリーのキーが外れない
-
Shiftキーのはめ方を教えてくだ...
-
Windows11でアップデートしたら...
-
エクセルで複数行に散らばった...
-
パソコンの青い線枠が消えませ...
-
キーボードがCtrlキーが押され...
-
パソコンの「Z」キーが不調
-
Excelでカーソルの移動が...
-
AutoCAD上でのalt-ime-ahkソフト
-
IMEパッドがショートカットキー...
-
PDF-XChange Viewer 全画面表示...
おすすめ情報