简单讲述VB.NET读取INI

VB.NET还是比较常用的，于是我研究了一下VB.NET读取INI，在这里拿出来和大家分享一下，希望对大家有用。

成都创新互联-专业网站定制、快速模板网站建设、高性价比资兴网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式资兴网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖资兴地区。费用合理售后完善，十多年实体公司更值得信赖。

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

 
 
 
  
  
  Function sdGetIniInfo(ByVal iniFile As String, 
ByVal iniSection As String) As String    
  
  If Not File.Exists(iniFile) Then    
  
  Return "文件 " & iniFile & " 未找到，请确认路径和文件名是否正确！"    
  
  Exit Function    
  
  End If    
  
     
  
  Dim iniRead As New StreamReader(iniFile)    
  
  Dim iniStr As String = iniRead.ReadToEnd    
  
     
  
  Dim i As Integer    
  
  Dim cLine As Integer    
  
  Dim noSec As Boolean = False   
  
  Dim getValue As String = ""   
  
  Dim cLst    
  
     
  
  cLst = iniStr.Split(Chr(13))    
  
  cLine = UBound(cLst)    
  
     
  
  For i = 0 To cLine    
  
  If cLst(i).indexof("=") > 0 Then    
  
  If cLst(i).split("=")(0).trim() = iniSection Then    
  
  noSec = True   
  
  getValue = cLst(i).split("=")(1).trim()    
  
  Exit For    
  
  End If    
  
  End If    
  
  Next    
  
     
  
  If noSec = True Then    
  
  Return getValue    
  
  Else    
  
  Return "没有找到 " & iniSection & " 的设置信息！"    
  
  End If    
  
  End Function

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

set.ini文件内容：

 
 
 
  
  
  Private Sub Button1_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button1.Click    
  
  Dim name As String    
  
  name = sdGetIniInfo(Application.StartupPath & "\set.ini", "name")    
  
  MsgBox(name)    
  
  End Sub

以上介绍VB.NET读取INI。

新闻名称：简单讲述VB.NET读取INI
文章分享：http://www.shufengxianlan.com/qtweb/news40/17840.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容