반응형 개발언어/VB17 텍스트 읽는 함수 텍스트를 읽어보자꾸나 [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)).. 2007. 11. 15. 이전 1 2 3 4 5 다음 반응형