VB读写配置文件

最新推荐文章于 2025-07-23 09:19:13 发布

原创最新推荐文章于 2025-07-23 09:19:13 发布 · 152 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#笔记

Option Explicit
'获取ini文件中的数据
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 _
Long, ByVal lpFileName As String) As Long
' 写入到ini文件中的数据
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As _
String, ByVal lpString As String, ByVal lpFileName As String) As Long

Private Sub Command1_Click()
   Dim F, dl0 As String
   F = "D:\chenhe\setting.ini"
   dl0 = WritePrivateProfileString("Set", "m0", "111", F)
   
   
   Dim nStr As String, nSize As Long, S As Long
 nSize = 255: nStr = String(nSize, 0)
dl0 = GetPrivateProfileString("Set", " m0", vbNullString, nStr, nSize, F)
'显示出来
dl0 = WritePrivateProfileString("Set", "m01", nStr, F)

End Sub