VB＋MapX中读取.ini的初始化文件

eg：比如要读取 d:\haha\a.ini里面的 [options]节点下的FileName就这样写：

字串4

strA=GetProfile("d:\haha\a.ini","options","FileName") 字串9

定义GetProfile函数

Function   GetProfile(strFileName   As   String,   strSection   As   String,   strName   As   String)   As   String 字串4

strSectionTemp   =   ""  
strNameTemp   =   ""   
strreturn   =   ""  
On   Error   GoTo   ErrReadFile  
Open   strFileName   For   Input   As   #1

'查询节点 字串9

 Do   While   Not   EOF(1)  
                  strCharA   =   Input(1,   #1)  
                  If   strCharA   =   "["   Then  
                        Do   While   Not   EOF(1)  
                            strCharB   =   Input(1,   #1)  
                            If   strCharB   =   "]"   Then   Exit   Do  

                            strSectionTemp   =   strSectionTemp   &   strCharB  
                        Loop  
                  End   If  
                  If   strSectionTemp   =   strSection   Then  
                      strCharA   =   Input(2,   #1)  
                      Exit   Do  

字串2

                  Else  
                      strSectionTemp   =   ""  
                  End   If  
            Loop  
    On   Error   GoTo   ErrSrchSection

字串1

 定义标签 字串5

aa: 字串8

strNameTemp   =   ""  
          Do   While   Not   EOF(1)  
              strCharA   =   Input(1,   #1)  
              If   strCharA   <>   "="   Then  
                  strNameTemp   =   strNameTemp   &   strCharA     'gained   name  
              Else  
                  Exit   Do  

字串7

              End   If  
          Loop  
                  If   strNameTemp   =   strName   Then  
                Line   Input   #1,   strreturn  
          Else  
                Line   Input   #1,   strreturn  
                GoTo   aa  
          End   If   字串5
          Close   #1  
          GetProfile   =   strreturn  
          Exit   Function  
  ErrReadFile:  
          Dim   inrRet   As   Integer  
          intret   =   MsgBox("read   'test.ini'   failed!"   &   Chr(10)   &   "a   file   is   missing   or   invalid",   vbAbortRetryIgnore   +   vbExclamation,   "error")  
          Select   Case   intret  
                Case   vbAbort  
                      GetProfile   =   ""  
                      Close   #1  
                      End  
                      Exit   Function  
                Case   vbRetry  
                      Resume  

字串6

                Case   vbIgnore  
                      Resume   Next  
            End   Select  
  ErrSrchSection:  
            MsgBox   "no   node   in   'ini'   file",   vbOKOnly   +   vbExclamation,   "error"  
            GetProfile   =   ""  
            Close   #1  
            End   字串2
  End   Function 字串7

上一篇：Oracle Spatial 引用支持 (SRID)
下一篇：VB＋MapX中读取.ini的初始化文件
收藏本文: