Question

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的代码

Answer 1

设计功能
说明：第一个参考页导入了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！

Answer 2

设计读取功能
说明：第一个参考引用的页面的进口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，是写一个函数！

Answer 3

设计一个读取函数
说明：在引用的面页中要先引用 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，就是自己写个函数！