VB.NET2010读取INI配置文件问题？
我有个INI配置文件（如下）
[SoftINI]
Name=FormulaCal
Version=2.1
AppData=Waging
ID=0321540287143257
现在FORM中有三个文本框：TEXT1，TEXT2，TEXT3；一个按钮COMD1。请问各位如何写代码让单击COMD1，TEXT1里显示SOFTINI（主键），TEXT2显示NAME,VERSION,APPDATA,ID（键名），TEXT3X显示FormulaCal，2.1，WAGING，0321540287143257（键值）
我不懂API，希望给个不用API的代码
设计功能
说明：第一个参考页导入了System.IO
功能sdGetIniInfo（字符串的BYVAL iniSection的字符串，BYVAL INIFILE），如果该字符串</ File.Exists （INIFILE返回的“文件”INIFILE的的）
，而“未找到，以确保路径型山和文件名是否正确！”如果
黑暗iniRead
昏暗的iniStr新的StreamReader（INIFILE），的字符串iniRead.ReadToEnd
朦胧朦胧的整数
最后的出口，克莱因整数
昏暗的NOSEC布尔=假
作为一个字符的字符串昏暗的getValue“
黑暗的壁橱
衣吵租唤柜iniStr.Split（CHR（13 ））CLINE = UBOUND功能的（CLST）
> = 0 CLINE
衣柜（I）的indexOf（“=”）> 0，
衣柜（I）分裂（“=”） （0）TRIM（）= iniSection
NOSEC =
的getValue = CLST（I）分裂（“=”;)（1）修剪（）
BR />退出
最后，如果
如果NOSEC = TRUE
返回的getValue BR />
的安装信息没有找到“iniSection！”
功能
====如果=================== ===================
TEXT1 = sdGetIniInfo（路径，“名称”）
事实上，无论是ini文本文件XML只使用一定的格式，或所谓的数据结升凯构，在最后的分析中，实现的文件操作的功能只是一个包文件的读取和写入操作。
是不是写一个函数的API！
设计读取功能
说明：第一个参考引用的页面的进口System.IO
的功能sdGetIniInfo（String的的BYVAL iniSection作为字符串的的BYVAL INIFILE作为），作为字符串</如果不File.Exists（INIFILE）
返回“文件”INIFILE和“未找到确保路径和文件名是否正确！”
退出功能
结束，如果
昏暗的iniRead由于昏暗的iniStr新的StreamReader（INIFILE）的作为字符串iniRead.ReadToEnd
朦胧的我作为整数
昏暗的克莱因绝念兄高局作为整数
昏暗的NOSEC由于布尔=作为字符并袭串的假
昏暗的getValue =“
昏暗的衣柜
衣柜= iniStr.Split（CHR（13））CLINE = UBound函数（CLST），
> i = 0至CLINE
如果衣柜（I）。的indexOf（“=”）> 0，则
如果衣柜（I）。拆分（“=”）（0）。 TRIM（）= iniSection然后
NOSEC =
的getValue = CLST（I）。拆分（“=”;)（1）。修剪（）
结束退出
最后如果
如果NOSEC = TRUE，那么
返回的getValue BR />其他
返回“的安装信息没有找到”iniSection“！”
功能
====结束如果======================================
TEXT1 = sdGetIniInfo（路径，“名称“）
其他类似
其实，无论是ini和XML的文本文件，只是用某种格式或所谓的数据结构，在最后的分析中，文件的操作来实现一些功能仅仅是一个包文件的读取和写入操作。
这是不是API，是写一个函数！
设计一个读取函数
说明：在引用的面页中要先引用 Imports System.IO
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
==========================================
TEXT1=sdGetIniInfo（路径，“Name”）
其他类似
其实，无论ini和xml都是文本文祥笑件，只是带了一些格式，或者叫陵好数据结构吧，归根到底都是用文件操作来实现，一些函数也只不过是封装好了的文件读写操作而已！
这不是api，就是自己写个函数！