用vb.net读取INI配置文件的方法,使用API

简介: 因为对XML前不了解,所以对XML方式来做配置文件我都不能很好的实现但为了应行,只有先使用INI的文来记录了也就沿用了VB6里的INI文读取方法  '声明INI配置文件读写API函数    Private Declare Function GetPrivateProfileString()Fun...
因为对XML前不了解,所以对XML方式来做配置文件我都不能很好的实现
但为了应行,只有先使用INI的文来记录了
也就沿用了VB6里的INI文读取方法

img_a6339ee3e57d1d52bc7d02b338e15a60.gif   ' 声明INI配置文件读写API函数
img_405b18b4b6584ae338e0f6ecaf736533.gifimg_1c53668bcee393edac0d7b3b3daff1ae.gif
     Private   Declare   Function GetPrivateProfileString() Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As StringByVal lpKeyName As StringByVal lpDefault As StringByVal lpReturnedString As StringByVal nSize As Int32, ByVal lpFileName As StringAs Int32
img_2887d91d0594ef8793c1db92b8a1d545.gifimg_7a2b9a960ee9a98bfd25d306d55009f8.gif    
Private Declare Function WritePrivateProfileString()Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As StringByVal lpKeyName As StringByVal lpString As StringByVal lpFileName As StringAs Int32
img_33d02437d135341f0800e3d415312ae8.gif    
'定义读取配置文件函数
img_2887d91d0594ef8793c1db92b8a1d545.gifimg_7a2b9a960ee9a98bfd25d306d55009f8.gif
    Public Function GetINI()Function GetINI(ByVal Section As StringByVal AppName As StringByVal lpDefault As StringByVal FileName As StringAs String
img_33d02437d135341f0800e3d415312ae8.gif        
Dim Str As String = LSet(Str256)
img_33d02437d135341f0800e3d415312ae8.gif        GetPrivateProfileString(Section, AppName, lpDefault, 
StrLen(Str), FileName)
img_33d02437d135341f0800e3d415312ae8.gif        
Return Microsoft.VisualBasic.Left(StrInStr(StrChr(0)) - 1)
img_105a1e124122b2abcee4ea8e9f5108f3.gif    
End Function

img_33d02437d135341f0800e3d415312ae8.gif    
'定义写入配置文件函数
img_2887d91d0594ef8793c1db92b8a1d545.gifimg_7a2b9a960ee9a98bfd25d306d55009f8.gif
    Public Function WriteINI()Function WriteINI(ByVal Section As StringByVal AppName As StringByVal lpDefault As StringByVal FileName As StringAs Long
img_33d02437d135341f0800e3d415312ae8.gif        WriteINI 
= WritePrivateProfileString(Section, AppName, lpDefault, FileName)
img_105a1e124122b2abcee4ea8e9f5108f3.gif    
End Function

img_2887d91d0594ef8793c1db92b8a1d545.gifimg_7a2b9a960ee9a98bfd25d306d55009f8.gif    
Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles MyBase.Load
img_33d02437d135341f0800e3d415312ae8.gif        
Dim path As String
img_33d02437d135341f0800e3d415312ae8.gif        path 
= Application.StartupPath + "\server.ini"
img_33d02437d135341f0800e3d415312ae8.gif
        TextBox1.Text = GetINI("Server""IP""", path)
img_33d02437d135341f0800e3d415312ae8.gif        TextBox2.Text 
= GetINI("Server""port""", path)
img_105a1e124122b2abcee4ea8e9f5108f3.gif    
End Sub

img_33d02437d135341f0800e3d415312ae8.gif
img_2887d91d0594ef8793c1db92b8a1d545.gifimg_7a2b9a960ee9a98bfd25d306d55009f8.gif    
Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles Button1.Click
img_33d02437d135341f0800e3d415312ae8.gif        
Try
img_33d02437d135341f0800e3d415312ae8.gif            
Dim path As String
img_33d02437d135341f0800e3d415312ae8.gif            path 
= Application.StartupPath + "\server.ini"
img_33d02437d135341f0800e3d415312ae8.gif
            WriteINI("Server""IP", TextBox1.Text, path)
img_33d02437d135341f0800e3d415312ae8.gif            WriteINI(
"Server""port", TextBox2.Text, path)
img_33d02437d135341f0800e3d415312ae8.gif            
MsgBox("配置设置已经成功!!!!")
img_33d02437d135341f0800e3d415312ae8.gif            Me.Close()
img_33d02437d135341f0800e3d415312ae8.gif        
Catch ex As Exception
img_33d02437d135341f0800e3d415312ae8.gif            
MsgBox("错误!!!!")
img_33d02437d135341f0800e3d415312ae8.gif        
End Try
img_33d02437d135341f0800e3d415312ae8.gif
img_105a1e124122b2abcee4ea8e9f5108f3.gif    
End Sub
相关文章
|
29天前
|
SQL 缓存 开发框架
分享一个 .NET EF6 应用二级缓存提高性能的方法
分享一个 .NET EF6 应用二级缓存提高性能的方法
|
21天前
|
安全 Java API
|
29天前
|
XML 开发框架 .NET
ASP.NET Web Api 如何使用 Swagger 管理 API
ASP.NET Web Api 如何使用 Swagger 管理 API
|
29天前
|
开发框架 JSON .NET
ASP.NET Core 标识(Identity)框架系列(三):在 ASP.NET Core Web API 项目中使用标识(Identity)框架进行身份验证
ASP.NET Core 标识(Identity)框架系列(三):在 ASP.NET Core Web API 项目中使用标识(Identity)框架进行身份验证
|
13天前
|
UED 开发工具 iOS开发
Uno Platform大揭秘:如何在你的跨平台应用中,巧妙融入第三方库与服务,一键解锁无限可能,让应用功能飙升,用户体验爆棚!
【8月更文挑战第31天】Uno Platform 让开发者能用同一代码库打造 Windows、iOS、Android、macOS 甚至 Web 的多彩应用。本文介绍如何在 Uno Platform 中集成第三方库和服务,如 Mapbox 或 Google Maps 的 .NET SDK,以增强应用功能并提升用户体验。通过 NuGet 安装所需库,并在 XAML 页面中添加相应控件,即可实现地图等功能。尽管 Uno 平台减少了平台差异,但仍需关注版本兼容性和性能问题,确保应用在多平台上表现一致。掌握正确方法,让跨平台应用更出色。
22 0
|
20天前
|
API
【Azure API 管理】APIM中的Policy是否有调用速率的方法(熔断机制)
【Azure API 管理】APIM中的Policy是否有调用速率的方法(熔断机制)
|
29天前
|
存储 开发框架 .NET
ASP.NET Web Api 使用 EF 6,DateTime 字段如何取数据库服务器当前时间
ASP.NET Web Api 使用 EF 6,DateTime 字段如何取数据库服务器当前时间
|
29天前
|
程序员 数据库
分享 2 个 .NET EF 6 只更新某些字段的方法
分享 2 个 .NET EF 6 只更新某些字段的方法
|
29天前
|
数据库
分享一个 .NET EF 6 扩展 Where 的方法
分享一个 .NET EF 6 扩展 Where 的方法
|
29天前
|
开发框架 前端开发 算法
分享 .NET EF6 查询并返回树形结构数据的 2 个思路和具体实现方法
分享 .NET EF6 查询并返回树形结构数据的 2 个思路和具体实现方法