home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / envelop / envelop.3 / Program / evhelp.eto < prev    next >
Text File  |  1996-07-08  |  1KB  |  46 lines
  1. Type EnvelopHelpTable From HashDictionary
  2.  
  3.   ' METHODS for object: EnvelopHelpTable
  4.   Sub InitContextKeys(path As String)
  5.     Dim dir As New Directory
  6.     dir.Path = IIf(path = "", dir.CurrentDir, path)
  7.     dir.EnumContents(Me, "ReadHHFile", "*.hh", True)
  8.   End Sub
  9.  
  10.   Sub ReadHHFile(ByVal filename As String, attr As Long)
  11.     Dim f as New TextFile
  12.     f.FileName = filename
  13.     If Not f.Exists Then Throw ErrorReadingHHFile
  14.     f.OpenReadOnly()
  15.     If (f.IsOpen) Then 
  16.       dim s as string
  17.       Do
  18.         s = f.Readln()
  19.       Loop While (f.Position < f.Size) && Instr(1, s, "#define") <> 1
  20.   
  21.       While Instr(1, s, "#define")
  22.         dim lastchar as long
  23.         lastchar = Instr(9, s, " ")
  24.         InsertKeyAndValue(Mid(s, 9, lastchar - 9), Val(Mid(s, lastchar + 1)))
  25.         s = f.Readln()
  26.       Wend
  27.       f.Close
  28.     End If
  29.   End Sub
  30.  
  31.   Sub TextPreLoad()
  32.     BucketCount = 100
  33.     InitContextKeys("")
  34.     Persistent = True
  35.   End Sub
  36.  
  37. End Type
  38.  
  39. Begin Code
  40. ' Reconstruction commands for object: EnvelopHelpTable
  41. '
  42.   With EnvelopHelpTable
  43.     .TextPreLoad()
  44.   End With  'EnvelopHelpTable
  45. End Code
  46.