| Thành viên | Trả lời |
khanhjin
khanhjin
17 bài
| 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
|
khanhjin
khanhjin
17 bài
| 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);
}
}
|
khanhjin
khanhjin
17 bài
| 9-6-2008 22:8:11
download tại đây
http://coder.awas.vn/downloads.ashx?id=67e41a03e53a4aa292c1fb77c61e9397
|
 |