17. oktober 2005 - 13:57Der er
7 kommentarer og 1 løsning
Læsning fra en ini fil
Hej eksperter
Jeg har følgende kode, men jeg kan ikke få den til at læse fra min ini fil. Er der nogen der kan se hvad der er galt?
===========
Declare Function GetPrivateProfileString Lib "KERNEL32.DLL" Alias "GetPrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Int32
Private Sub btnReadIni_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReadIni.Click Dim buffer As String Dim r As Int32 buffer = Space(255) Dim sDefault As String = "" r = GetPrivateProfileString("aa", "a", sDefault, buffer, 255, "clock.ini") MessageBox.Show(buffer.ToString()) End Sub ===============
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:\myclock.ini", "aa", "a")) End Sub End Module
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.