9-6-2008 22:5:2
Đơn giản lắm chỉ cần mấy dòng thế này thôi

----------

Public Class IniFile
Public path As String
<DllImport("kernel32")> Private Shared Function WritePrivateProfileString(ByVal section As String, ByVal key As String, ByVal val As String, ByVal filePath As String) As Long
End Function
<DllImport("kernel32")> Private 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 Sub New(ByVal Path As String)
Me.path = Path
End Sub

Public Sub WriteValue(ByVal section As String, ByVal key As String, ByVal value As String)
WritePrivateProfileString(section, key, value, Me.path)
End Sub

Public Function ReadValue(ByVal section As String, ByVal key As String) As String
Dim tmp As New StringBuilder(255)
Dim i As Integer = GetPrivateProfileString(section, key, "", tmp, 255, Me.path)
Return tmp.ToString()
End Function
End Class

9-6-2008 22:5:51
Còn trên C# thì
--------------

public class IniFile
{
private string path = "";
[DllImport("kernel32")] private static extern long WritePrivateProfileString(string section, string key, string val, string filepath);
[DllImport("kernel32")] private static extern int GetPrivateProfileString(string section, string key, string def, StringBuilder retVal, int size, string filepath);
public IniFile(string thePath)
{
//
// TODO: Add constructor logic here
//
this.path = thePath;
}

public string ReadValue(string section, string key)
{
StringBuilder tmp = new StringBuilder(255);
int i = GetPrivateProfileString(section, key, "", tmp, 255, this.path);
return tmp.ToString();
}

public void WriteValue(string section, string key, string val)
{
WritePrivateProfileString(section, key, val, this.path);
}

}

9-6-2008 22:8:11
download tại đây

http://coder.awas.vn/downloads.ashx?id=67e41a03e53a4aa292c1fb77c61e9397