[RESOLVED] InWhy!

[spyk3]

ok so sql lite version of this was easy, why now do i have to make an ini version ... because boss said so.
here it is.
I am using a simple ini class to read and write to inis
mostly no problem except one thing
I need to be able to read all keys from a section without knowing exactly how many there are and grab the every variable from every key.

below is class i'm using at moment because it is small and very litl overhead,
I dont need a major overhaul, just wondering if anyone might can add to what i have to do what i need.

for futher thought, grab section --> grab every key and it's variable --> use each variable in a loop
for instance say i store a bunch of exe paths to a bunch of keys (1-100) and i want to run a loop Process.Start(eachKey'sVariable) ... how?

Public Class IniFile
 
    ' API functions
    Private Declare Ansi Function GetPrivateProfileString _
      Lib "kernel32.dll" Alias "GetPrivateProfileStringA" _
      (ByVal lpApplicationName As String, _
      ByVal lpKeyName As String, ByVal lpDefault As String, _
      ByVal lpReturnedString As System.Text.StringBuilder, _
      ByVal nSize As Integer, ByVal lpFileName As String) _
      As Integer
    Private Declare Ansi Function WritePrivateProfileString _
      Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
      (ByVal lpApplicationName As String, _
      ByVal lpKeyName As String, ByVal lpString As String, _
      ByVal lpFileName As String) As Integer
    Private Declare Ansi Function GetPrivateProfileInt _
      Lib "kernel32.dll" Alias "GetPrivateProfileIntA" _
      (ByVal lpApplicationName As String, _
      ByVal lpKeyName As String, ByVal nDefault As Integer, _
      ByVal lpFileName As String) As Integer
    Private Declare Ansi Function FlushPrivateProfileString _
      Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
      (ByVal lpApplicationName As Integer, _
      ByVal lpKeyName As Integer, ByVal lpString As Integer, _
      ByVal lpFileName As String) As Integer
    Dim strFilename As String
 
    ' Constructor, accepting a filename
    Public Sub New(ByVal Filename As String)
        strFilename = Filename
    End Sub
 
    ' Read-only filename property
    ReadOnly Property FileName() As String
        Get
            Return strFilename
        End Get
    End Property
 
    Public Function GetString(ByVal Section As String, _
      ByVal Key As String, ByVal [Default] As String) As String
        ' Returns a string from your INI file
        Dim intCharCount As Integer
        Dim objResult As New System.Text.StringBuilder(256)
        intCharCount = GetPrivateProfileString(Section, Key, _
           [Default], objResult, objResult.Capacity, strFilename)
        If intCharCount > 0 Then GetString = _
           Left(objResult.ToString, intCharCount)
    End Function
 
    Public Function GetInteger(ByVal Section As String, _
      ByVal Key As String, ByVal [Default] As Integer) As Integer
        ' Returns an integer from your INI file
        Return GetPrivateProfileInt(Section, Key, _
           [Default], strFilename)
    End Function
 
    Public Function GetBoolean(ByVal Section As String, _
      ByVal Key As String, ByVal [Default] As Boolean) As Boolean
        ' Returns a boolean from your INI file
        Return (GetPrivateProfileInt(Section, Key, _
           CInt([Default]), strFilename) = 1)
    End Function
 
    Public Sub WriteString(ByVal Section As String, _
      ByVal Key As String, ByVal Value As String)
        ' Writes a string to your INI file
        WritePrivateProfileString(Section, Key, Value, strFilename)
        Flush()
    End Sub
 
    Public Sub WriteInteger(ByVal Section As String, _
      ByVal Key As String, ByVal Value As Integer)
        ' Writes an integer to your INI file
        WriteString(Section, Key, CStr(Value))
        Flush()
    End Sub
 
    Public Sub WriteBoolean(ByVal Section As String, _
      ByVal Key As String, ByVal Value As Boolean)
        ' Writes a boolean to your INI file
        WriteString(Section, Key, CStr(CInt(Value)))
        Flush()
    End Sub
 
    Private Sub Flush()
        ' Stores all the cached changes to your INI file
        FlushPrivateProfileString(0, 0, 0, strFilename)
    End Sub
 
End Class

[spyk3]

current in form code
(keep in mind i've been trying a hundred different things and it prolly doesnt work right now, just simply copying it over)

Private Sub tmrProgWatch01_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrProgWatch01.Tick
Dim filName As String = "FileName"
Dim filExe As String = "FileExtension"
Dim strName As String = objIniFile.GetString(filName, "", "")
Dim strExe As String = objIniFile.GetString(filExe, "", "")
If ProcessesRunning(strName) >= 1 Then
lblInfo.Text = "There is " & vbCrLf & " copy of " & strName & vbCrLf & "program running"
Else
lblInfo.Text = "not running"
'Process.Start(strExe)
End If
While ProcessesRunning(strName) >= 2
For Each proc As Process In Process.GetProcessesByName(strName)
proc.CloseMainWindow()
Threading.Thread.Sleep(50)
Next
End While

End Sub

[chris128]

Huh? You are using all those API calls just to write some text to an INI file??

If you HAVE to use an INI file then you might want to look at a .NET class like this one http://www.codeproject.com/KB/files/...ssIniFile.aspx
However, Microsoft do recommend that you use XML files rather than INI files these days... and as such, they are fully supported by the .NET framework

[wild_bill]

To add to Chris' post: Create an app.config file, in the config file add something like this after the configuration element:

	<configSections>
		<section name="FolderList" type="System.Configuration.NameValueSectionHandler, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
 </configSections>
	<FolderList>
		 <add key="key1" value="value1" />
		 <add key="key2" value="value2" />
	</FolderList>

Then to access the name value collection use

        Dim folderList As Specialized.NameValueCollection = CType(System.Configuration.ConfigurationSettings.GetConfig("FolderList"), Specialized.NameValueCollection)
        For Each key As String In folderList.Keys
            Debug.WriteLine(key & " - " & folderList(key))
        Next

[spyk3]

working great that way, thank you
and the api's were just in that class i borrowed, not like i write to ini's with .net to often ... in fact never, just simply a request of the overhead, but they are sattisfied with the sql lite version and the appconfig version now, so this headache is over, thanks for the reference.