如何读取一个.ini文件?

页面导航:首页 > 网络编程 > 编程10000问 > 如何读取一个.ini文件?

如何读取一个.ini文件?

来源:互联网 作者:脚本宝典 时间:2015-06-22 13:00 【

OBJECT ID=agobjOraSession RUNAT=Server PROGID=OracleInProcServer.XOraSession SCOPE=Application /OBJECT script LANGUAGE=VBScript RUNAT=Server Const CONST_FL_NAME = \GetAttributeCode.ini Const CONST_FL_FORREADING = 1 Const CONST_DB_SECTION = [
<OBJECT ID="agobjOraSession" RUNAT="Server" PROGID="OracleInProcServer.XOraSession" SCOPE="Application">
</OBJECT>
<script LANGUAGE=VBScript RUNAT=Server>
Const CONST_FL_NAME = "\GetAttributeCode.ini"
Const CONST_FL_FORREADING = 1
Const CONST_DB_SECTION = "[DB_CONNECTION]"Sub Application_OnStart
On Error Resume Next

  Dim objFs      
  Dim objTs          
  Dim strLineData      
  Dim flgSection      
  Dim strTempData  

  Application("Service") = ""
  Application("User") = ""
  strLineData = ""  
  strTempData = ""
  flgSection = False


  Set objFs = Server.CreateObject ("Scripting.FileSystemObject")
  Set objTs = objFs.OpenTextFile(Server.MapPath(CONST_FL_NAME),CONST_FL_FORREADING,False)
  If Err.Number <> 0 Then
    Err.Clear 
     Set objTs = Nothing
    Set objFs = Nothing
    Exit Sub
  End If

While Not objTs.AtEndOfStream
    strLineData = objTs.ReadLine
   If Trim(strLineData) <> "" Then
        If flgSection = True And Mid(strLineData,1,1) = "[" And _
        Mid(strLineData,Len(strLineData),1) = "]" Then
       objTs.Close
         Set objTs = Nothing
       Set objFs = Nothing
       Exit Sub
      End If 

      If strLineData = CONST_DB_SECTION Then
       flgSection = True
     End If
 
If flgSection = True Then
      If Mid(strLineData,1,7) = "Service" Then
        strTempData = Trim(Mid(strLineData,8,Len(strLineData)-7))
        If Mid(strTempData,1,1) = "=" Then
          strTempData = Trim(Mid(strTempData,2,Len(strTempData)-1))
          Application.Lock 
           Application("Service") = Mid(strTempData,2,Len(strTempData)-2)
          Application.UnLock 
       End If
    End If
    If Mid(strLineData,1,4) = "User" Then
        strTempData = Trim(Mid(strLineData,5,Len(strLineData)-4))
        If Mid(strTempData,1,1) = "=" Then
        strTempData = Trim(Mid(strTempData,2,Len(strTempData)-1))
        Application.Lock 
        Application("User") = Mid(strTempData,2,Len(strTempData)-2)
        Application.UnLock 
      End If
End If
End If
End If
Wend
objTs.Close
Set objTs = Nothing
Set objFs = Nothing
End Sub
</script>


 
Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <