ASP读取ini文件的实现方法

INI是微软Windows操作系统中的文件扩展名。这些字母表示初始化。正如该术语所表示的，INI文件被用来对操作系统或特定程序初始化或进行参数设置。ini文件可以存储很多数据，用来配置应用软件以实现不同用户的要求，那如何用ASP来读取ini文件呢？聚友提供一段代码，可以通过这段代码来实现读取ini文件，代码如下：
<%
set   IniFileDictionary   =   CreateObject("Scripting.Dictionary")

Sub   IniFileLoad(ByVal   FilSpc)
      IniFileDictionary.RemoveAll
      FilSpc   =   lcase(FilSpc)
      if   left(FilSpc,   1)   =   "p"   then
          'Physical   path
          PhyPth   =   mid(FilSpc,   instr(FilSpc,   "=")   +   1)
      else
          'Virtual   path
          PhyPth   =   Server.MapPath(mid(FilSpc,   instr(FilSpc,   "=")   +   1))
      end   if

      set   FilSys   =   CreateObject("Scripting.FileSystemObject")
      set   IniFil   =   FilSys.OpenTextFile(PhyPth,   1)
      do   while   not   IniFil.AtEndOfStream
          StrBuf   =   IniFil.ReadLine
          if   StrBuf   <>   ""   then
              'There   is   data   on   this   line
              if   left(StrBuf,   1)   <>   ";"   then
                  'It's   not   a   comment
                  if   left(StrBuf,   1)   =   "["   then
                      'It's   a   section   header
                      HdrBuf   =   mid(StrBuf,   2,   len(StrBuf)   -   2)
                  else
                      'It's   a   value
                      StrPtr   =   instr(StrBuf,   "=")
                      AltBuf   =   lcase(HdrBuf   &   "|"   &   left(StrBuf,   StrPtr   -   1))
                      do   while   IniFileDictionary.Exists(AltBuf)
                          AltBuf   =   AltBuf   &   "_"
                      loop
                      IniFileDictionary.Add   AltBuf,   mid(StrBuf,   StrPtr   +   1)
                  end   if
              end   if
          end   if
      loop
      IniFil.Close
      set   IniFil   =   nothing
      set   FilSys   =   nothing
End   Sub

Function   IniFileValue(ByVal   ValSpc)
      dim   ifarray
      StrPtr   =   instr(ValSpc,   "|")
      ValSpc   =   lcase(ValSpc)
      if   StrPtr   =   0   then
          'They   want   the   whole   section
          StrBuf   =   ""
          StrPtr   =   len(ValSpc)   +   1
          ValSpc   =   ValSpc   +   "|"
          ifarray   =   IniFileDictionary.Keys
          for   i   =   0   to   IniFileDictionary.Count   -   1
              if   left(ifarray(i),   StrPtr)   =   ValSpc   then
                  'This   is   from   the   section
                  if   StrBuf   <>   ""   then
                      StrBuf   =   StrBuf   &   "~"
                  end   if
                  StrBuf   =   StrBuf   &   ifarray(i)   &   "="   &   IniFileDictionary(ifarray(i))
              end   if
          next
      else
          'They   want   a   specific   value
          StrBuf   =   IniFileDictionary(ValSpc)
      end   if
      IniFileValue   =   StrBuf
End   Function
%>
将上面的代码保存为inifile.asp，用如下样子的代码来读取ini，

<%
call IniFileLoad("test.ini")
' 设定包含文件的存放路径
StrBuf = IniFileValue("OEMFiles|OEMDriverFile1")
response.write strbuf & now()
%>

ASP读取ini文件的实现方法相关推荐

c# 读取INI文件(将内容写入INI文件)
c#读取INI文件实例读取ini文件内容,将读取的内容放在指定位置:将内容写入到ini文件中如图为项目界面 1 c# 读取ini文件方法 1.1 在类中配置API #region API函数声明- ...
QSettings读取ini文件，中文key方法
(吐槽:什么鬼,为啥要用中文当key???我也不知道呀) QSettings读取ini文件,其中key是中文的.例如: [单位] 1=运维检修部1(检修公司) 2=运维检修部2(检修公司)[班组] 1 ...
C# 读取ini文件百度问问学习文档
C# 读取ini文件 10 有多个section,现想读取整个ini文件和指定section下所有内容补充: 发布答案可以,请对准题目啊,我不要指定节点的内容,我知道!我要的是读取指定区域的内容,假 ...
java inireader_用Java读取INI文件(带section的)
代码 #include #include int main(){ boost::property_tree::ptree m_pt, tag_setting; read_ini("confi ...
Qt读取ini文件中文乱码问题
Qt读取ini文件中文乱码问题方法1: QSettings settings("xxxx.ini",QSettings::IniFormat); settings.setIniC ...
使用 sed / shell 读取 ini 文件
使用 sed / shell 读取 ini 文件动机我决定编写一个脚本来进行干净的 macOS (BSD) / Linux 的初始设置. 我认为有一个 tsukkomi 说"现在大多数发 ...
python接口自动化参数化_Python读取txt文件数据的方法(用于接口自动化参数化数据)...
小试牛刀: 1.需要python如何读取文件 2.需要python操作list 3.需要使用split()对字符串进行分割代码运行截图 : 代码(copy) #encoding=utf-8 #1.r ...
python 读取文件读出来是什么格式-深入学习python解析并读取PDF文件内容的方法...
这篇文章主要学习了python解析并读取PDF文件内容的方法,包括对学习库的应用,python2.7和python3.6中python解析PDF文件内容库的更新,包括对pdfminer库的详细解释和应 ...
python中读取文件内容-深入学习python解析并读取PDF文件内容的方法
这篇文章主要学习了python解析并读取PDF文件内容的方法,包括对学习库的应用,python2.7和python3.6中python解析PDF文件内容库的更新,包括对pdfminer库的详细解释和应 ...

ASP读取ini文件的实现方法

ASP读取ini文件的实现方法相关推荐

最新文章

热门文章