请教VB 怎样改写INI文件

来源：百度知道 编辑：UC知道 时间：2024/05/26 08:00:53
[ODBC]
DBMS=MSS Microsoft SQL Server 6.x
ServerName =
Database = Card_System
LogID =
LogPass=
[Port]
IssuePort =COM4
NetPort =COM3
WorkModel = RFL

改IssuePort=COM2,NetPort=COM1,其他不变
简单点。谢谢

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Private Sub Command1_Click()
Dim FilePath As String
FilePath = App.Path & "a.ini" 'ini文件是位于程序目录下的a.ini
WritePrivateProfileString "Port", "IssuePort", "COM2", FilePath
WritePrivateProfileString "Port", "NetPort", "COM1", FilePath
End Sub