【VB开源代码栏目提醒】：网学会员VB开源代码为您提供VB源代码（读写INI文件和xml） - 计算机教材参考，解决您在VB源代码（读写INI文件和xml） - 计算机教材学习中工作中的难题，参考学习。

    

2、读写INI通过vb.net测试 --------------------------------------------------------------------------------------------- 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 Int32 ByVal lpFileName As String As Int32 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 Int32 读 Public Function GetINIByVal Section As String ByVal AppName As String ByVal lpDefault As String ByVal FileName As String As String Dim Str As String LSetStr 256 GetPrivateProfileStringSection AppName lpDefault Str LenStr FileName Return Microsoft.VisualBasic.LeftStr InStrStr Chr0 - 1 End Function 写 Public Function WriteINIByVal Section As String ByVal AppName As String ByVal lpDefault As String ByVal FileName As String As Long WriteINI WritePrivateProfileStringSection AppName lpDefault FileName End Function --------------------------------------------------------------------------------------------- 3、读写INI通过VB6测试 --------------------------------------------------------------------------------------------- 先声明API函数： 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 写INI文件： Dim ret As Long 修改setup.ini文件中SERVER字段中URL的值为127.0.0.1 如果该文件不存在会自动建立当函数返回值为0时说明修改不成功 ret WritePrivateProfileStringSERVER URL 127.0.0.1 App.Path setup.ini If ret 0 Then MsgBox 写入ini文件出错 读INI文件： Dim ret As Long Dim strSet As String strSet Space1000 事先定义读取值的字串宽度 读取setup.ini文件中SERVER字段中URL的值 当函数返回值为0时说明读取数据出错 ret GetPrivateProfileStringSERVER URL strSet 1000 App.Path setup.ini If ret 0 Then MsgBox 找不到相关字段: Exit Sub Debug.Print strSet --------------------------------------------------------------------------------------------- 4、读写注册表通过VB6和VB.NET测试 --------------------------------------------------------------------------------------------- Dim reg Ser reg CreateObjectWscript.Shell 写入 reg.RegWrite键名 键值 读取 Dim strs As String strs reg.RegRead键名 MsgBoxstrs 删除 reg.RegDelete键名 --------------------------------------------------------------------------------------------- 5、获取计算机上的所有字体以通过VB.NET测试 --------------------------------------------------------------------------------------------- Dim i As Integer For i 0 To System.Drawing.FontFamily.Families.Length - 1 Debug.WriteLineSystem.Drawing.FontFamily.Familiesi.Name Next --------------------------------------------------------------------------------------------- 6、读写XML通过VB.NET测试 --------------------------------------------------------------------------------------------- 假如有以下XMLD:a.xml ahjkcai 读： Dim o As New DataSet o.ReadXMLD:a.xml Object.Text o.Tablesaa.Rowbb.Itemcc.ToString 结果为a 写: Dim mydataset As New DataSet mydataset.ReadXmlD:a.xml Dim myrow As DataRow mydataset.Tablesbb.NewRow myrowcc kjsdkjsa myrowdd kjsdkde mydataset.Tablesbb.Rows.Addmyrow mydataset.WriteXmlD:a.xml