How to read specific part of an .ini file

Quote:

Originally posted by vipinkrsharma
Hi All,

Could any budy suggests me how to read specific part of an .ini file using some API..(I am very poor in API). I dont want to do it with FSO .

e.g If below is part if .ini file then I want to read [Prepoll] part.

[Prepoll]
C:\ENCORE\BACKEOD.EXE=RUN WINAPP DISPLAY NO_DEL NONCRITICAL SYNC
C:\ENCORE\TAFIX.EXE=RUN WINAPP DISPLAY NO_DEL NONCRITICAL SYNC
C:\ENCORE\NIGHTOPR.EXE=RUN WINAPP DISPLAY NO_DEL NONCRITICAL SYNC
C:\ENCORE\KILLER.EXE=RUN WINAPP DISPLAY NO_DEL NONCRITICAL SYNC
C:\ENCORE\DELEMP.EXE=RUN WINAPP DISPLAY NO_DEL NONCRITICAL SYNC
C:\ENCORE\TAWAIT.EXE=RUN WINAPP DISPLAY NO_DEL NONCRITICAL ASYNC
C:\ENCORE\PREPOLL.EXE=RUN WINAPP DISPLAY NO_DEL NONCRITICAL SYNC
C:\ENCORE\CRSUTILS\LOGDUMP.BAT=RUN DOSAPP NO_DISPLAY NO_DEL NONCRITICAL SYNC

[Optional_Params:PrePoll]
C:\ENCORE\NIGHTOPR.EXE=1
C:\ENCORE\KILLER.EXE=PREPOLL.LST

[Polling]
C:\ENCORE\WAIT.EXE=RUN WINAPP DISPLAY NO_DEL NONCRITICAL SYNC
C:\POLLDOWN\DOIT.BAT=RUN DOSAPP DISPLAY DEL NONCRITICAL SYNC

[Optional_Params:Polling]
C:\ENCORE\WAIT.EXE=Poll

[PostPoll]
C:\ENCORE\POSTPOLL.EXE=RUN WINAPP DISPLAY NO_DEL NONCRITICAL SYNC
C:\ENCORE\UPDATSEC.EXE=RUN WINAPP NO_DISPLAY NO_DEL NONCRITICAL SYNC
C:\ENCORE\UPDATPLU.EXE=RUN WINAPP DISPLAY NO_DEL NONCRITICAL SYNC
C:\ENCORE\UPDATIM.EXE=RUN WINAPP DISPLAY NO_DEL NONCRITICAL SYNC
C:\ENCORE\STATUSCLEAR.EXE=RUN WINAPP DISPLAY NO_DEL NONCRITICAL SYNC
C:\ENCORE\KILLER.EXE=RUN WINAPP DISPLAY NO_DEL NONCRITICAL SYNC

Please let me know if I am clear with the question

' Create a form with 4 text boxes and 1 command button
' Type the section u want to read in first text box ,
' say Polling or PostPoll ... etc in u r case
' Type the Key nmae in second text box, say
' C:\ENCORE\NIGHTOPR.EXE or C:\ENCORE\KILLER.EXE in u r case
' Type the ini file path in third text box .
' Press the button...... u will c the value in fourth text box
'
'

Private 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
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Private Function ReadINI(ByVal SectionName As String, ByVal KeyName As String, ByVal FilePath As String) As String

Dim RetStr As String, NC As Long
RetStr = String(255, 0)
NC = GetPrivateProfileString(CStr(SectionName), CStr(KeyName), "Default Return Value", RetStr, 255, Trim(FilePath))

If NC <> 0 Then RetStr = Left$(RetStr, NC)
ReadINI = RetStr

End Function
Private Sub Command1_Click()

Text4.Text = ReadINI(Trim(Text1.Text), Trim(Text2.Text), Text3.Text)
End Sub

Private Function WriteINI()
' This part will create ini file..
WritePrivateProfileString "SectionName1", CStr("Key1"), CStr("Value1"), Trim("c:\windows\desktop\Example.ini")
WritePrivateProfileString "SectionName1", CStr("Key2"), CStr("Value2"), Trim("c:\windows\desktop\Example.ini")
WritePrivateProfileString "SectionName2", CStr("Key1"), CStr("Value1"), Trim("c:\windows\desktop\Example.ini")
WritePrivateProfileString "SectionName2", CStr("Key2"), CStr("Value2"), Trim("c:\windows\desktop\Example.ini")
End Function