VBS 에서 프로필 설정 항목 의 실현 코드 를 읽 습 니 다.

다음은 설정 파일 을 읽 는 함수 입 니 다.
이 함 수 는 다음 형식의 프로필(.ini,.txt,.inf)에 만 적 용 됩 니 다.
[Mark1]
key1=key1value
key2=key2value
........
[Mark2]
key1=key1value
key2=key2value
핵심 코드

'************************************************************
'  :      (.ini,.txt  )      ,    
'  :FilePath -          
'   Mark -       
'   Key -           
'    :Ret = GetConfig("d:\configure.ini","Computer","IP")
'  :    
'  :2013-06-20
'************************************************************
Function GetConfig(FilePath,Mark,Key)
 Dim fso, Str_ReadLine
 Set fso = CreateObject("Scripting.FileSystemObject")
 '          
 If fso.FileExists(FilePath) Then
 '       ,      
 Flag = 0
 '      
 Set ConfigFile = fso.opentextfile(FilePath, 1)
 '         
 Do
  Str_ReadLine = ConfigFile.ReadLine
  WScript.Echo Str_ReadLine
  '            
  If Str_ReadLine <> "" Then
  '                     
  If LCase(Trim(Str_ReadLine))="[" & Lcase(Mark) & "]" Then
   '        
   Flag = 1  
   '                 ,                 
   '                
   Do
   Str_ReadLine = ConfigFile.ReadLine
   retNum = InStr(Str_ReadLine,"=")
   '             
   If retNum > 0 Then
    '                  
    If Trim(LCase(Left(Str_ReadLine,retNum-1)))= Trim(LCase(Key)) Then
    '           
    GetConfig = Trim(Right(Str_ReadLine,Len(Str_ReadLine)-retNum))
    '   ,    
    Exit Function 
    End If
   End If
   '                 
   If (InStr(Str_ReadLine,"[")>0 And InStr(Str_ReadLine,"]")>0) Then
    '                 
    Flag = 0
    '    
    Exit Function
   End If
   Loop Until (Flag = 0 Or ConfigFile.AtEndOfStream)
  End If
  End If 
 Loop Until ConfigFile.AtEndOfStream
 '    
 ConfigFile.Close
 Set fso = Nothing
 Else
 '     ,      
 MsgBox "    "&"[" & FilePath &"]   ,         ."
 End If
End Function

실례:
d:\config\environment.ini 파일 의[Computer 2]아래 IP 항목 의 값 을 읽 어야 합 니 다.파일 내용 은 다음 과 같 습 니 다.
[Computer1]
ComputerName=Computer1
IP=192.168.1.1
[Computer2]
ComputerName=Computer2
IP=192.168.1.2
이상 함 수 를 사용 하면 획득 가능

IP = GetConfig("d:\config\environment.ini","Computer2","IP")
Msgbox IP

자,여기까지 만 하면 됩 니 다.