Public Class IniFileSupport 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 Public Shared Function GetString(fnm As String, section As String, key As String) As String Dim sb As StringBuilder = New StringBuilder GetPrivateProfileString(section, key, "*", sb, 100, fnm) GetString = sb.ToString End Function End Class
Module Main Sub Main() Console.WriteLine(IniFileSupport.GetString("C:\test.ini", "local", "server")) End Sub End Module
i virkeligheden behøver du slet ikke den wrapper klasse da GetPrivateProfileString kan kaldes direkte med næsten de samme argumenter - jeg synes dog at det måske er lidt nemmere med den
Imports System Imports System.Collections Imports System.Configuration
Module Main Sub Main() Dim local As IDictionary = CType(ConfigurationSettings.GetConfig("local"),IDictionary) Console.WriteLine(local("Server")) End Sub End Module
fant selv us af det :) der ligger en fil app.config
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.