ホーム > カテゴリ > Visual Basic >

INIファイルから文字列を取得する

INIファイルから文字列を取得するサンプルです。

サンプルの実行画面

ソースコード

[GetiniString.frm]

'GetPrivateProfileString ＝＞iniファイルから文字列を取得する

'＜引数＞
'lpAppName:           セクション名
'lpKeyName:           キー名
'lpDefault:           キーが見つからなかった場合のデフォルトの文字列
'lpReturnedString:    取得した文字列が入る
'nSize:               同､文字数
'inifilename:         INIファイル名

'＠戻り値＠
' 取得した文字列

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal inifilename As String) As Long


Private Sub Command1_Click()

  Dim Leng As Long
  Dim nName As String
  Dim Ret As Long
  Dim Default As String


'バッファを確保
    nName = String(256, Chr(0))
    Leng = Len(nName)
    
    Ret = GetPrivateProfileString(Text2.Text, Text3.Text, Default, nName, Leng, Text1.Text)
      
    
   If Ret <> 0 Then
      Text4.Text = nName
      MsgBox "文字列の取得成功しました"
   Else
      MsgBox "失敗しました。"
    
   End If
   
End Sub

Private Sub Form_Load()


Text1.Text = "Test.ini"

End Sub

ソースコード一式のダウンロード

vbapi_getinistring.zip 1.47 KB (1,512 バイト)

このサンプルの動作環境について

このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。





関連記事


前の記事：INIファイルから数値を取得する
次の記事：INIファイルに文字列を書きこむ

公開日：2015年03月04日
記事NO：00358


プチモンテ ※この記事を書いた人

💻 ITスキル・経験
サーバー構築からWebアプリケーション開発。IoTをはじめとする電子工作、ロボット、人工知能やスマホ/OSアプリまで分野問わず経験。

画像処理/音声処理/アニメーション、3Dゲーム、会計ソフト、PDF作成/編集、逆アセンブラ、EXE/DLLファイルの書き換えなどのアプリを公開。詳しくは自己紹介へ
🎵 音楽制作
BGMは楽器(音源)さえあれば、何でも制作可能。歌モノは主にロック、バラード、ポップスを制作。歌詞は抒情詩、抒情的な楽曲が多い。楽曲制作は🔰2023年12月中旬 ～

オリジナル曲を始めました✨

背徳の遊牧民 feat. オペラさん (2025/9/1 新曲)