home *** CD-ROM | disk | FTP | other *** search
/ Virtual St-Petersburg / VirtualSaint-Petersburg.iso / vivat / tasks / calendar / profile.bas < prev    next >
BASIC Source File  |  1995-10-26  |  1KB  |  30 lines
  1.  
  2. Function ReadProfileString (ByVal szSection As String, ByVal szEntry As String, szProfile As String) As String
  3.     Dim szString As String, nBytesReceived As Integer
  4.  
  5.     szString = Space$(500)
  6.  
  7.     nBytesReceived = GetPrivateProfileString(szSection, szEntry, "", szString, Len(szString), szProfile)
  8.  
  9.     ReadProfileString = Left$(szString, InStr(szString, Chr$(0)) - 1)
  10.  
  11.     szString = ""
  12.     End Function
  13.  
  14. Function ReadProfileStringDef (ByVal szSection As String, ByVal szEntry As String, szProfile As String, szDefault As Variant) As String
  15.     Dim szString As String, nBytesReceived As Integer, szDefValue As String
  16.  
  17.     szString = Space$(500)
  18.  
  19.     If szDefault = Null Then
  20.         szDefValue = ""
  21.                         Else
  22.         szDefValue = szDefault
  23.         End If
  24.  
  25.     nBytesReceived = GetPrivateProfileString(szSection, szEntry, szDefValue, szString, Len(szString), szProfile)
  26.  
  27.     ReadProfileStringDef = Left$(szString, InStr(szString, Chr$(0)) - 1)
  28.     End Function
  29.  
  30.