如何读取一个.ini文件?

栏目: 编程语言 · 发布时间: 6年前

内容简介:如何读取一个.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

  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文件?》,希望对大家有所帮助,如果大家有任何疑问请给我留言,小编会及时回复大家的。在此也非常感谢大家对 码农网 的支持!

查看所有标签

猜你喜欢:

本站部分资源来源于网络,本站转载出于传递更多信息之目的,版权归原作者或者来源机构所有,如转载稿涉及版权问题,请联系我们

Types and Programming Languages

Types and Programming Languages

Benjamin C. Pierce / The MIT Press / 2002-2-1 / USD 95.00

A type system is a syntactic method for automatically checking the absence of certain erroneous behaviors by classifying program phrases according to the kinds of values they compute. The study of typ......一起来看看 《Types and Programming Languages》 这本书的介绍吧!

在线进制转换器
在线进制转换器

各进制数互转换器

随机密码生成器
随机密码生成器

多种字符组合密码

MD5 加密
MD5 加密

MD5 加密工具