Load text from File to array??

• • Reply

  14 years ago

  by Evil Homer

  Nisse

  , Sweden

  Joined 14 years ago
  I have been trying to make a function for first, loading some words from a file (one word on each line) and then putting them into a array...
  
  Can someone help me, pretty please? :P
  Report abuse
• • Reply

  14 years ago

  by prakashm

  Prakash Machiraju

  London, United Kingdom

  Joined 14 years ago

  Hi,
  
  Open a std. exe project and set a reference to 'Microsoft Scrpting Runtime'.
  Add a command button and paste the following code.
  
  To test I have created a file called  names.txt in d:
  
  Private Sub Command1_Click()
  Dim fso As New FileSystemObject
  Dim ts As TextStream
  
  Dim arNames() As String
  Dim l As Long
  Dim sNamesInArray As String
  
  'open text file
  Set ts = fso.OpenTextFile("d:\names.txt")
  
  Do While Not ts.AtEndOfStream
      'populate array with a line from text file
      ReDim Preserve arNames(l)
      arNames(l) = ts.ReadLine
      l = l + 1
  Loop
  
  
  'to test whats in the array
  For l = 0 To UBound(arNames)
      If Len(Trim$(sNamesInArray)) = 0 Then
          sNamesInArray = arNames(l)
      Else
          sNamesInArray = sNamesInArray & "," & arNames(l)
      End If
  Next
  
  MsgBox "Names in array - " & sNamesInArray
  
  End Sub
  
  I hope this helps.
  
  Cheers
  Prakash.
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  

  Report abuse
• • Reply

  14 years ago

  by kympax

  dy3ri keykal

  Phils., United States

  Joined 15 years ago

  use the ff. code :

  Public Function FileToArray(TextFileName As String) As Variant

    Dim FileCntnr As String
      
    Open TextFileName For Input As #1
    FileCntnr = Input(LOF(1), 1)
    FileToArray = Split(FileCntnr, vbCrLf)
    Close #1
  
  
  
  
  

  End Function

   

  to use this :

  Dim MyArray() As String

  MyArray = FileToArray("C:\Sample.txt")

  Report abuse