後半が切れたので再UP 'inifile オブジェクトを含めます #Include Once "inifile.bi" 'ファイル名前空間を設定します Using inifobj '作業文字列リスト(stringlist)を作成します。 Dim myList As stringlist Dim As Integer Index, ret Dim As String sret '新しい inifile オブジェクトを作成します Dim myIni As iniobj = iniobj("VB.ini")
If myIni.InitStatus = FALSE Then Print "Error initializing ini object." Sleep End EndIf
'全てのセクションを取得 Print "Reading all section names." myIni.GetSections(myList) For index = 0 To myList.count - 1 Print myList.Strings(index) Next Sleep
