home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD1261812122000.psc / Server / Module2.bas < prev    next >
Encoding:
BASIC Source File  |  2000-12-12  |  372 b   |  23 lines
  1. Attribute VB_Name = "Module2"
  2. Option Explicit
  3.  
  4. Public DBArray() As String
  5.  
  6. Public Sub FillDB()
  7.  
  8.   Dim handl As Integer
  9.   Dim tmp As String
  10.   Dim cnt As Long
  11.   
  12.   ReDim DBArray(26870)
  13.   
  14.   cnt = 0
  15.   Open App.Path & "\Words.txt" For Input As #1
  16.     Do While Not EOF(1)
  17.       Line Input #1, DBArray(cnt)
  18.       cnt = cnt + 1
  19.     Loop
  20.   Close #1
  21.  
  22. End Sub
  23.