会python真的可以为所欲为0(回)
365天前
这里还有人吗1(回)
550天前这里还有人吗0(回)
550天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
775天前到处都是羊，不想上班0(回)
855天前
鸽子
0(回)
859天前Public Class Profile |
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 |
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long |
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 |
Public Shared Function WriteOneString(ByVal section As String, ByVal key As String, ByVal value As String, ByVal filename As String) As Long |
Dim X As Boolean |
Dim Nbuff As New String(CType(" ", Char), 1000) |
Nbuff = value + Chr(0) |
X = WritePrivateProfileString(section, key, Nbuff, filename) |
WriteOneString = X |
End Function |
Public Shared Function ReadOneString(ByVal section As String, ByVal key As String, ByVal Filename As String) As String |
Dim X As Long, i As Integer |
Dim Buffer As New String(CType(" ", Char), 1000) |
X = GetPrivateProfileString(section, key, "", Buffer, 1000, Filename) |
i = InStr(Buffer, Chr(0)) |
ReadOneString = Trim(Left(Buffer, i - 1)) |
End Function |
End Class |
