Imports System.IO
Imports System.Runtime.InteropServices
Imports System.Text

Public Class IniManager

#Region "METODO NON FUNZIONANTE"

   <DllImport("kernel32")>
   Public Shared Function GetPrivateProfileString(ByVal section As String, ByVal key As String,
                                                   ByVal def As String, ByVal retVal As StringBuilder,
                                                   ByVal size As Integer, ByVal filePath As String) As Integer
   End Function

   Public Function GetIniValue(section As String, key As String, filename As String, Optional defaultValue As String = "") As String
      Dim sb As New StringBuilder(500)
      If GetPrivateProfileString(section, key, defaultValue, sb, sb.Capacity, filename) > 0 Then
         Return sb.ToString
      Else
         Return defaultValue
      End If
   End Function

#End Region

#Region "METODO FUNZIONANTE"

   Public Function ReadIni() As String
      Dim reader As StreamReader = My.Computer.FileSystem.OpenTextFileReader("C:\EgtData\LicenceManager\Config\LicenceManager.ini")

      Dim a As String
      Dim result As String = ""
      Do
         a = reader.ReadLine
         If (a Is Nothing) Then Exit Do
         Dim fileline As String = a.Trim()
         If (fileline.StartsWith("[") And fileline.EndsWith("]")) Then Continue Do
         '
         ' Code here
         '
         Dim index As Integer = fileline.IndexOf("=")
         If (index < 0) Then Continue Do
         Dim key As String = fileline.Substring(0, index).Trim()
         ' Dim ID As String = fileline.Substring(0, fileline.IndexOf(":"))
         Dim value As String = fileline.Substring(index + 1).Trim()
         ' String comment = ""
         index = value.IndexOf("'")
         If (index > -1) Then
            ' ID = fileline.Substring(0, fileline.IndexOf(":"))
            ' comment = value.Substring(index).Trim()
            value = value.Substring(0, index).Trim()
         End If
         result &= key & "=" & value & ";"
      Loop Until a Is Nothing
      ' result.TrimEnd(";")
      reader.Close()
      Return result
   End Function

#End Region

   'Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
   '   Debug.WriteLine(GetIniValue("B_Empty_IndexList", "Count", My.Application.Info.DirectoryPath & "\WorldInfo.ini"))
   '   Debug.WriteLine(GetIniValue("B_Use_IndexList", "Count", My.Application.Info.DirectoryPath & "\WorldInfo.ini"))
   'End Sub

End Class