用FileSystemObject对象读取INI 文件 支持 VB读INI VBS读INI ASP 读INI

'作者:CSDN 许仙

'Homepage : jjweb.126.com

'MSN :Coderxu#hotmail.com

'QQ:19030300

'转载请保持文章完整,保存以上作者信息 请珍惜他人劳动成果

由于卡巴斯基 太厉害 弄的 OFFCIE编写的程序 调用API读取配置文件都不可以 于是 想到了用FileSystemObject对象读取INI 文件 代码如下, 修改了一下, 同时 支持了 VBS 当然 也支持ASP 网页读配置文件了....

VB代码

Public Function GetIni1(ByVal strPrimary As String, ByVal strSubKey As String, ByVal strIniFilePath As String) As String

Dim myFso As FileSystemObject

Dim MyFile As TextStream

Dim intCount As Integer, strState As String

Set myFso = New FileSystemObject

Set MyFile = myFso.OpenTextFile(strIniFilePath, 1, False, False)

With MyFile

Do Until .AtEndOfStream

If intCount = 0 Then

If .ReadLine = "[" & strPrimary & "]" Then

intCount = 1

End If

Else

strState = .ReadLine

If UCase(Left(strState, Len(strSubKey & "="))) = UCase(strSubKey & "=") Then

GetIni1 = Right(strState, Len(strState) - Len(strSubKey & "="))

End If

End If

Loop

.Close

End With

Set MyFile = Nothing

Set myFso = Nothing

End Function

VBS 代码

'将以下信息 拷贝到文本里 改名.vbs运行查看效果

msgbox GetIni ("boot loader","timeout","c:\boot.ini")

'VBS读取 INI 配置文件

Function GetIni( strPrimary , strSubKey, strIniFilePath )

Dim myFso

Dim MyFile

Dim intCount , strState

Set myFso = CreateObject("Scripting.FileSystemObject")

Set MyFile = myFso.OpenTextFile(strIniFilePath, 1, False, False)

With MyFile

Do Until .AtEndOfStream

If intCount = 0 Then

If .ReadLine = "[" & strPrimary & "]" Then

intCount = 1

End If

Else

strState = .ReadLine

If UCase(Left(strState, Len(strSubKey & "="))) = UCase(strSubKey & "=") Then

GetIni = Right(strState, Len(strState) - Len(strSubKey & "="))

End If

End If

Loop

.Close

End With

Set MyFile = Nothing

Set myFso = Nothing

End Function

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/hot1kang1/archive/2006/07/04/875861.aspx