[VB] .INI 사용

.INI 파일 사용하기

프로그램 개발시 변경되는 데이타의 정보를 담아두기 위해 ini 파일을 이용합니다.

비쥬얼베이직에서 API FUNCTION 을 이용하여 ini 파일에 데이타를 쓰고 읽는 방법

을 살펴보겠습니다. 

1. ini 파일의 구조 

[AppName1]

KeyName1=Value

KeyName2=Value 

[AppName2]

KeyName1=Value 

AppName은 KeyName이 들어가는 일반화된 범주에 표시한다. AppName은 옵션인데 

사용할 경우 각괄호([]) 안에 넣어야 하며 KeyName은 프로그램이 .ini 파일에서 

읽거나 파일에 쓸 때 참조할 값에 대한 텍스트 참조에 해당한다. Value는 KeyName에

할당된 값을 표시한다. 

문자열은 인용 부호 속에 넣을 필요는 없으며 숫자 값은 직접 입력한다. 

2. WritePrivateProfileString Function 을 이용하여 ini 쓰기

모듈에 다음의 API Function 을 선언한다 

Public Declare Function WritePrivateProfileString Lib "kernel32" _

Alias "WritePrivateProfileStringA" _

(ByVal lpApplicationName As String, _

ByVal lpKeyName As Any, _

ByVal lpString As Any, _

ByVal lpFileName As String) As Long 

인수 설명

----------------------------------------------------------------------------

lpApplicationName lpApplication Name 인수는 위의 (1)에서 설명한

ApplicationName 문자열에 해당한다.

lpKeyName lpKeyName 인수는 위의 (1)에서 설명한 KeyName에 해당한다

lpString lpString 인수는 위의 (1)에서 설명한 Value 문자열에 

해당한다.

lpFileName lpFileName 인수는 참조중인 .ini파일의 완전히 규정된 

경로와 파일 이름에 해당한다.

---------------------------------------------------------------------------- 

사용법 : temp.ini 에서 내용쓰기

temp.ini 파일구조

[APPNAME]

COUNT=10 

Private Sub PutINIData()

Dim strFile As String 

strFile = "temp.ini"

WritePrivateProfileString "APPNAME", "COUNT", "20", strFile

End Sub 

위의 PutINIData Sub를 부르게 되면 ini 파일의 COUNT 값이

COUNT=10 에서 COUNT=20 으로 변경됩니다. 

3. GetPrivateProfileString Function 을 이용하여 ini 읽기

모듈에 다음의 API Function 을 선언한다 

Public Declare Function GetPrivateProfileString Lib "kernel32" _

Alias "GetPrivateProfileStringA" _

(ByVal lpApplicationName As String, _

ByVal lpKeyName As Any, _

ByVal lpDefault As String, _

ByVal lpReturnedString As String, _

ByVal nSize As Long, _

ByVal lpFileName As String) As Long

GetPrivateProfileString은 String 타입의 값을 리턴한다 

인수 설명

----------------------------------------------------------------------------

lpApplicationName lpApplication Name 인수는 위의 (1)에서 설명한 

ApplicationName 문자열에 해당한다.

lpKeyName lpKeyName 인수는 위의 (1)에서 설명한 KeyName에 해당한다

lpDefault lpDefault 인수는 문자열에 대해 유지되는 디폴트 값에 

해당한다. 일반적으로 프로그램은 이 매개 변수를 사용하지

않는다.

lpReturnedString lpReturnedString 인수는 위의 (1)에서 설명한 

Value문자열에 해당한다.

nSize nSize 인수는 lpReturnedString 인수 내의 리턴된 문자열 

길이에 해당한다. 

lpFileName lpFileName 인수는 참조중인 .ini파일의 완전히 규정된 

경로와 파일 이름에 해당한다.

---------------------------------------------------------------------------- 

사용법 : temp.ini 에서 내용읽기

temp.ini 파일구조

[APPNAME]

COUNT=10 

Private Sub GetINIData()

Dim strFile As String

Dim strTemp As String

Dim intLen As Long

Dim strCount As String

strFile = "temp.ini"

strTemp = String$(100, 0) 

intLen = GetPrivateProfileString("APPNAME", "COUNT", "0", strTemp, _

Len(strTemp), strFile)

strCount = Left$(strTemp, lntLen)

End Sub 

위의 GetINIData Sub를 부르게 되면 strCount 변수에 10 이란 값이 들어가게 됩니다.

만약 파일에 COUNT란 항목이 없게되면 API Function의 세번째 필드의 "0" 이란 값이 대신

들어가게 됩니다.