VB.NET配置(INI)文件的读写

VB.NET

1. Public Class Profile
   
2.     Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Long
   
3.     Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
   
4.     Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFilename As String) As Long
   
5.     Public Shared Function WriteOneString(ByVal section As String, ByVal key As String, ByVal value As String, ByVal filename As String) As Long
   
6.         Dim X As Boolean
   
7.         Dim Nbuff As New String(CType(" ", Char), 1000)
   
8.         Nbuff = value + Chr(0)
   
9.         X = WritePrivateProfileString(section, key, Nbuff, filename)
   
10.         WriteOneString = X
    
11.     End Function
    
12. 
    
13.     Public Shared Function ReadOneString(ByVal section As String, ByVal key As String, ByVal Filename As String) As String
    
14.         Dim X As Long, i As Integer
    
15. 
    
16.         Dim Buffer As New String(CType(" ", Char), 1000)
    
17.         X = GetPrivateProfileString(section, key, "", Buffer, 1000, Filename)
    
18.         i = InStr(Buffer, Chr(0))
    
19.         ReadOneString = Trim(Left(Buffer, i - 1))
    
20.     End Function
    
21. End Class

复制代码