본문 바로가기
개발언어/VB

텍스트 읽는 함수

by 엔돌슨 2007. 11. 15.
반응형

텍스트를 읽어보자꾸나

[CODE]
Function ReadIniFile(ByVal strIniFile As String, ByVal strSECTION As String, ByVal strKey As String) As String
    Dim strbuffer As String
    Dim intpos As Integer
    Const gstrNull = " "
   
    gIntMAX_SIZE = 100
    strbuffer = Space(gIntMAX_SIZE)
    If GetPrivateProfileString(strSECTION, strKey, gstrNull, strbuffer, gIntMAX_SIZE, strIniFile) > 0 Then
        ReadIniFile = RTrim(StripTerminator(strbuffer))
    Else
        ReadIniFile = gstrNull
    End If
End Function
[/CODE]