home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / demo / truegrid / trubrwse / trubrwse.$ / WHERE.BAS < prev    next >
BASIC Source File  |  1994-02-08  |  2KB  |  73 lines
  1. ' WHERE.BAS - This module contains routines for
  2. ' locating the TrueGrid installation directory 
  3. ' some file utilities
  4.  
  5.  
  6. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  7.  
  8.  
  9. Function TrueGridWhere$ ()
  10.  
  11. ' Return the TrueGrid installation directory as specified in
  12. ' TRUEGRID.INI, terminated with a backslash.  If TRUEGRID.INI
  13. ' cannot be found, or if it does not contain an "InstallDirectory"
  14. ' entry, then this routine returns an empty string.
  15.  
  16.     Dim TGPath As String * 256
  17.  
  18.     Z% = GetPrivateProfileString("TrueGrid", "InstallDirectory", "", TGPath, 256, "truegrid.ini")
  19.  
  20.     If Z% = 0 Then
  21.         TrueGridWhere$ = ""
  22.     Else
  23.         TrueGridWhere$ = Left$(TGPath, Z%) + "\"
  24.     End If
  25.  
  26. End Function
  27.  
  28.  
  29. Function ExtractBase (ByVal PathName As String) As String
  30.  
  31. ' Return the basename portion of a full pathname
  32.  
  33.     F$ = ExtractFile(PathName)
  34.     N% = InStr(F$, ".")
  35.  
  36.     If N% > 0 Then F$ = Left$(F$, N% - 1)
  37.  
  38.     ExtractBase = F$
  39.  
  40. End Function
  41.  
  42.  
  43. Function ExtractFile (ByVal PathName As String) As String
  44.  
  45. ' Return the filename portion of a full pathname
  46.  
  47.     F$ = PathName
  48.  
  49.     Do
  50.         N% = InStr(F$, "\")
  51.         If N% > 0 Then F$ = Right$(F$, Len(F$) - N%)
  52.     Loop While N% > 0
  53.  
  54.     ExtractFile = F$
  55.  
  56. End Function
  57.  
  58.  
  59. Function ExtractPath (ByVal PathName As String) As String
  60.  
  61. ' Return the directory path portion of a full pathname
  62.  
  63.     F$ = PathName
  64.  
  65.     Do
  66.         N% = InStr(F$, "\")
  67.         If N% > 0 Then F$ = Right$(F$, Len(F$) - N%)
  68.     Loop While N% > 0
  69.  
  70.     ExtractPath = Left$(PathName, Len(PathName) - Len(F$))
  71.  
  72. End Function
  73.