千家信息网

VB.NET如何读取INI

发表于:2024-11-27 作者:千家信息网编辑
千家信息网最后更新 2024年11月27日,这篇文章主要介绍VB.NET如何读取INI,文中介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们一定要看完!虽然VB.NET中读取XML配置信息很方便,但有时开发的过程中还是要用到INI文件,VB
千家信息网最后更新 2024年11月27日VB.NET如何读取INI

这篇文章主要介绍VB.NET如何读取INI,文中介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们一定要看完!

虽然VB.NET中读取XML配置信息很方便,但有时开发的过程中还是要用到INI文件,VB.NET读取INI却不像VB中那么方便了,刚才写了个函数,现贴出来,也许各位能用得上。

  1. Function sdGetIniInfo(ByVal iniFile As String,
    ByVal iniSection As String) As String

  2. If Not File.Exists(iniFile) Then

  3. Return "文件 " & iniFile & " 未找到,请确认路径和文件名是否正确!"

  4. Exit Function

  5. End If

  6. Dim iniRead As New StreamReader(iniFile)

  7. Dim iniStr As String = iniRead.ReadToEnd

  8. Dim i As Integer

  9. Dim cLine As Integer

  10. Dim noSec As Boolean = False

  11. Dim getValue As String = ""

  12. Dim cLst

  13. cLst = iniStr.Split(Chr(13))

  14. cLine = UBound(cLst)

  15. For i = 0 To cLine

  16. If cLst(i).indexof("=") > 0 Then

  17. If cLst(i).split("=")(0).trim() = iniSection Then

  18. noSec = True

  19. getValue = cLst(i).split("=")(1).trim()

  20. Exit For

  21. End If

  22. End If

  23. Next

  24. If noSec = True Then

  25. Return getValue

  26. Else

  27. Return "没有找到 " & iniSection & " 的设置信息!"

  28. End If

  29. End Function

说明:在引用的面页中要先引用 Imports System.IO

set.ini文件内容:

  1. Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click

  2. Dim name As String

  3. name = sdGetIniInfo(Application.StartupPath & "\set.ini", "name")

  4. MsgBox(name)

  5. End Sub

以上是"VB.NET如何读取INI"这篇文章的所有内容,感谢各位的阅读!希望分享的内容对大家有帮助,更多相关知识,欢迎关注行业资讯频道!

文件 内容 信息 篇文章 价值 位能 兴趣 函数 小伙 小伙伴 文件名 更多 知识 行业 资讯 资讯频道 路径 过程 还是 频道 数据库的安全要保护哪些东西 数据库安全各自的含义是什么 生产安全数据库录入 数据库的安全性及管理 数据库安全策略包含哪些 海淀数据库安全审计系统 建立农村房屋安全信息数据库 易用的数据库客户端支持安全管理 连接数据库失败ssl安全错误 数据库的锁怎样保障安全 squad服务器老是炸 树立正确的网络安全观ppt 软件开发人员离场需要注意什么 南京科远数据库 电教网络安全意识 浙江统计数据库查数据 我是网络安全小卫士手抄报四年级 青海惠普服务器虚拟化优化 我的世界服务器怎么去末地城 关于校园网络安全知识的元素 高级软件开发工程师职称 重庆服务器回收 上海智慧中台数据库 什么学校可以用国泰安数据库 数据库程序设计基础ppt 软件开发到哪里投标 湖北教育中小学生网络安全 网络安全用网安全培训ppt 关于宣讲会问网络安全的问题 腾讯云服务器未成年购买 电力系统网络安全的防范措施 idc微模块机房服务器机柜安装 单位邮箱收件服务器填什么 铜梁县新华软件开发培训 免费服务器无 抚顺职业技术学院软件开发 ios系统软件开发服务多少钱 西安泛在网络技术创新型产业 东信网络技术有限公司管理 政府如何保证公民的网络安全
0