vb.net中如何读取ini文件中的分类信息？？？ - 编程论坛

#2

fairy42008-01-28 15:10

'聲明INI配置檔讀寫API函數
    Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
    Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32
    '定義讀取配置檔函數
    Public Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String
        Dim Str As String = LSet(Str, 256)
        GetPrivateProfileString(Section, AppName, lpDefault, Str, Len(Str), FileName)
        Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)
    End Function
    '定義寫入配置檔函數
    Public Function WriteINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As Long
        WriteINI = WritePrivateProfileString(Section, AppName, lpDefault, FileName)
    End Function

'寫入
  Try
            Dim path As String
            path = Application.StartupPath + "\server.ini"
            WriteINI("Server", "IP", TextBox1.Text, path)
            WriteINI("Server", "port", TextBox2.Text, path)
            WriteINI("Server", "userName", TextBox3.Text, path)
            'WriteINI("Server1", "IP", TextBox1.Text, path)
            'WriteINI("Server1", "port", TextBox2.Text, path)
            'WriteINI("Server1", "userName", TextBox3.Text, path)
            MsgBox("配置設置已經成功！！！！")
            Me.Close()
        Catch ex As Exception
            MsgBox("錯誤！！！！")
        End Try

'讀取
Dim path As String
        path = Application.StartupPath + "\server.ini"
        TextBox1.Text = GetINI("Server", "IP", "", path)
        TextBox2.Text = GetINI("Server", "port", "", path)
        TextBox3.Text = GetINI("server", "userName", "", path)

#3

fairy42008-01-28 15:12

讀取[yyy001]
  TextBox1.Text = GetINI("yyy001", "IP", "", path)
  TextBox2.Text = GetINI("yyy001", "port", "", path)
  TextBox3.Text = GetINI("yyy001", "userName", "", path)

#4

fnp9020032008-01-28 15:49

有的代码吗？？？？？
这个是vb的，代码引用上vb要多很多复杂的步骤。.net引用起来容易多，不过就是不大理解怎么用。
不过还是谢谢楼上的仁兄了~~~继续求解中！！！

#5

fairy42008-01-28 17:02

你認為是vb的就是vb的，當我沒說！
我使用的工具是！
還不知道這個工具還能寫出vb6的代碼！樓主讓我長見識了，謝謝！

#6

tntzwc2008-01-28 17:09

我这有例子
https://hi.bccn.net/146768/viewspace-8983

#7

fnp9020032008-01-29 10:48

[bo]以下是引用 [un]fairy4[/un] 在 2008-1-28 17:02 的发言：[/bo]

你認為是vb的就是vb的，當我沒說！
我使用的工具是！
還不知道這個工具還能寫出vb6的代碼！樓主讓我長見識了，謝謝！

我在下直接引用Imports 再写点代码就可以读取ini文件了！
看看这段从网上抄的代码！！
-------------------------------------------------------------------------------------------------------
'函数名: sdGetIniInfo
     '功能:读取INI文件设置信息
     '参数说明:iniFile-->INI文件      iniSection--INI文件中设置的部分名称
     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

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
--------------------------------------------------------------------------------------------------------------------
所以我认为你用的引用api的行为有点像是vb6.0的操作方法，呵呵，在这里向你表示道歉。谢谢你对我的帮助！！！

#8

tntzwc2008-01-29 12:56

08有中文的了吗？

#9

fnp9020032008-01-29 13:21

[bo]以下是引用 [un]tntzwc[/un] 在 2008-1-29 12:56 的发言：[/bo]

08有中文的了吗？

我用的英文的小组开发版本！！！

#10

fairy42008-01-30 08:56

讀取是簡單，
幾行代碼就可以搞定，連Imports 都可以不引用
我有N種方法可以讀取其中的字段，使用API，是因為這更方便，全面！效率最高，而且提供設置功能！
目前，我還沒有發現有那種方法比這個更簡便，有效！

#11

fnp9020032008-01-30 09:47

谢谢你的帮助！不过我对API还不是很熟悉，因为我是新手！还需要长期得磨练阿。和合！！！

#12

hjkcai2008-02-18 12:15

可以用A
tntzwc,2008有中文的