熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> ASP編程 >> 正文

VB.NET讀取INI文件設置信息函數sdGetIniInfo

2013-11-15 12:48:09  來源: ASP編程 

  雖然VBNET中讀取XML配置信息很方便但有時開發的過程中還是要用到INI文件在VBNET中讀取INI卻不像VB中那麼方便了剛才寫了個函數現貼出來也許各位能用得上

    函數名: sdGetIniInfo
    功能:讀取INI文件設置信息
    參數說明:iniFile>INI文件     iniSectionINI文件中設置的部分名稱
    作者:SD
    Email:
    備注:轉載或修改請保留此信息


       Function sdGetIniInfo(ByVal iniFile As String ByVal iniSection As String) As String
        If Not FileExists(iniFile) Then
            Return 文件 & iniFile & 未找到請確認路徑和文件名是否正確!
            Exit Function
        End If

        Dim iniRead As New StreamReader(iniFile)
        Dim iniStr As String = iniReadReadToEnd

        Dim i As Integer
        Dim cLine As Integer
        Dim noSec As Boolean = False
        Dim getValue As String =
        Dim cLst

        cLst = iniStrSplit(Chr())
        cLine = UBound(cLst)

        For i = To cLine
            If cLst(i)indexof(=) > Then
                If cLst(i)split(=)()trim() = iniSection Then
                    noSec = True
                    getValue = cLst(i)split(=)()trim()
                    Exit For
                End If
            End If
        Next

        If noSec = True Then
            Return getValue
        Else
            Return 沒有找到 & iniSection & 的設置信息!
        End If
    End Function

說明在引用的面頁中要先引用 Imports SystemIO


EG:

setini文件內容

[Info]
name=zhuang
age=
    Private Sub Button_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ButtonClick
        Dim name As String
        name = sdGetIniInfo(ApplicationStartupPath & \setini name)
        MsgBox(name)
    End Sub 


From:http://tw.wingwit.com/Article/program/ASP/201311/21664.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.