• Home
 · 
• Games
 · 
• Reads strings from an INI file.

Reads strings from an INI file.

Reads strings from an INI file.

Rate Reads strings from an INI file.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' Written by Michael A. Cojocari
' All rights reserved.
'
'
' Anyone is free to use these functions in any particular way.
' Any sugestions?  Email [email protected]


'Reads strings from INI files

Function readstringINI(ini_file As String, ini_section As String, ini_entry As String, default As String) As String

 Dim section As String, entry As String

 Dim foundsection As Integer

 Dim foundentry As Integer

 Open ini_file For Input As #1



 'Finding the section...

 Do While (Not EOF(1)) And (foundsection = 0)

  Line Input #1, section

  If Left(section, 1) = "[" Then

   foundsection = InStr(section, ini_section)

  End If

 Loop

 

 'Finding the entry...

 If foundsection = 0 Then

  'MsgBox "Section not found"

 Else

  Do

   Line Input #1, entry

   foundentry = InStr(entry, ini_entry)

  Loop While (Not EOF(1)) And (foundsection <> 0) And (foundentry = 0) And (Left(entry, 1) <> "[")

  'If foundentry = 0 Then MsgBox "Entry not found"

 End If

 

 If (foundsection <> 0) And (foundentry <> 0) Then

  Dim position As Integer, length As Integer

  position = InStr(entry, "=")

  length = Len(entry)

  position = length - position

  readstringINI = Right(entry, position)

 Else

  readstringINI = default

 End If

 

 Close #1

End Function