大虾帮忙看看这段代码~
'函数名: 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
这是在网上搜到的一段在Vb.net中读INI文件的代码,对红色代码部分不是很理解,
为什么在Split之后还能跟参数(0)呢,MSDN中关于Split的用法部分并没有提到这
么用的??那位大虾能解释一下红色代码是什么意思呢?先谢了
'功能:读取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
这是在网上搜到的一段在Vb.net中读INI文件的代码,对红色代码部分不是很理解,
为什么在Split之后还能跟参数(0)呢,MSDN中关于Split的用法部分并没有提到这
么用的??那位大虾能解释一下红色代码是什么意思呢?先谢了
...全文
相关推荐
分页存储过程(高效)
由铁拳大虾编写的分页存储过程(SQLServer)
进程间通讯基础方法-----内存映射
这段时间在学习windows进程间大数据量交换技术,准备开发服务器程序。找到了《windows核心编程》,看了里面的东西自己总结写的演示demo。各种进程间数据共享的核心基础就是内存映射文件机制,写了非常简单明了的程序来试验。包括: 1 通过在exe镜像文件中开辟新的节来实现相同进程的不同实例间数据共享,用到了编译器伪指令 #pragma data_seg() allocate() 2 创建磁盘文件内存映射对象,通过操作内存映射对象来修改磁盘文件内容,可以实现修改非常巨大文件的修改(16EB)。 3 在分页系统(虚存)上建立命名内存映射对象,然后不同进程间通过此对象实现海量数据共享或交换。 对初学者叫比较有用,大虾见笑了。
《赶海》第三自然段仿写训练课.ppt
《赶海》第三自然段仿写训练课.ppt
韩顺平笔记CSS+div
韩顺平笔记CSS+div,这个里的代码都是图片,要是不喜欢的话,可以去下我另传的一份笔记
大学生销售员暑假社会实践报告.docx
大学生销售员暑假社会实践报告.docx


