脚本宝典收集整理的这篇文章主要介绍了如何读取一个.ini文件？，脚本宝典觉得挺不错的，现在分享给大家，也给大家做个参考。

<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

&nbsp; 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>

 

 

[1]

脚本宝典总结

以上是脚本宝典为你收集整理的如何读取一个.ini文件？全部内容，希望文章能够帮你解决如何读取一个.ini文件？所遇到的问题。

如果觉得脚本宝典网站内容还不错，欢迎将脚本宝典推荐好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。