Experts Exchange connects you with the people and services you need so you can get back to work.
Improve company productivity with a Business Account.Sign Up
Const forReading = 1, forWriting = 2, forAppending = 8
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
strAddressFile = "address.txt"
Set readAddressFile = objFSO.OpenTextFile(strAddressFile,forReading)
Do while not readAddressFile.AtEndOfStream
strLine = readAddressFile.ReadLine
arrLine = split(strLine," ")
ReDim preserve arrAddresses(2,i)
arrAddresses(0,i) = arrLine(0)
arrAddresses(1,i) = arrLine(1)
arrAddresses(2,i) = arrLine(2)
strAddresses = strAddresses & vbCrLf & arrAddresses(0,i) & vbTab & arrAddresses(1,i) & vbTab & arrAddresses(2,i)
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.