텍스트 읽는 함수

2007.11.15 10:11 개발언어/VB

텍스트를 읽어보자꾸나

[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]
신고