VB.NET中讀取INI檔案設定資訊函數sdGetIniInfo

來源:互聯網
上載者:User
函數


雖然VB.NET中讀取XML配置資訊很方便,但有時開發的過程中還是要用到INI檔案,在VB.NET中讀取INI卻不像VB中那麼方便了,剛才寫了個函數,現貼出來,也許各位能用得上。


    '函數名: sdGetIniInfo
    '功能:讀取INI檔案設定資訊
    '參數說明:iniFile-->INI檔案     iniSection--INI檔案中設定的部分名稱
    '作者:SD
    '日期:2005-10-11
    'Email:ztqas@126.com
    '備忘:轉載或修改請保留此資訊
    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

EG:

set.ini檔案內容:

[Info]
name=zhuang
age=20

    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

 



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。