topic populating a listbox with text in a txt file. in VBA Forum

populating a listbox with text in a txt file.

Anonymous — Tue, 18 Jul 2000 02:45:30 GMT

(im learning)
I would like my vb prog to read a txt file and populate a listbox.
The items in a txt file will be added to from time to time.

I appreciate your help.
thanks

Re: populating a listbox with text in a txt file.

Anonymous — Tue, 18 Jul 2000 03:14:50 GMT

Assuming each line in the text file is to become one line in a list box:

Create a file called "sample.txt" and save it in your TEMP folder on C:
drive. Here's the data I used (you can use whatever you like):

Line 1
Line 2
Line 3
Line 4
Line 5

Enter the VBAIDE, add a UserForm. Place a listbox on the UserForm and place
this code in the UserForm's Initialize event (fair warning; there's *no*
error checking):

fh = FreeFile
Open "c:\temp\sample.txt" For Input As #fh

Do While Not EOF(fh)

Line Input #fh, tmp
ListBox1.AddItem tmp

Loop
Close fh

Run the form and the contents of the text file will be placed in the list
box.

--
Attitudes are contagious. Is yours worth catching?
http://www.acadx.com

Jeremy wrote in message
news:ef2c43e.-1@WebX.SaUCah8kaAW...
> (im learning)
> I would like my vb prog to read a txt file and populate a listbox.
> The items in a txt file will be added to from time to time.
>
> I appreciate your help.
> thanks
>

Re:

Anonymous — Tue, 18 Jul 2000 03:17:39 GMT

Thanks, I was hoping someone else was awake out there.
Frank Oquendo wrote in message
news:ef2c43e.0@WebX.SaUCah8kaAW...
> Assuming each line in the text file is to become one line in a list box:
>
> Create a file called "sample.txt" and save it in your TEMP folder on C:
> drive. Here's the data I used (you can use whatever you like):
>
> Line 1
> Line 2
> Line 3
> Line 4
> Line 5
>
> Enter the VBAIDE, add a UserForm. Place a listbox on the UserForm and
place
> this code in the UserForm's Initialize event (fair warning; there's *no*
> error checking):
>
> fh = FreeFile
> Open "c:\temp\sample.txt" For Input As #fh
>
> Do While Not EOF(fh)
>
> Line Input #fh, tmp
> ListBox1.AddItem tmp
>
> Loop
> Close fh
>
> Run the form and the contents of the text file will be placed in the list
> box.
>
> --
> Attitudes are contagious. Is yours worth catching?
> http://www.acadx.com
>
> Jeremy wrote in message
> news:ef2c43e.-1@WebX.SaUCah8kaAW...
> > (im learning)
> > I would like my vb prog to read a txt file and populate a listbox.
> > The items in a txt file will be added to from time to time.
> >
> > I appreciate your help.
> > thanks
> >
>

Re: populating a listbox with text in a txt file.

Anonymous — Wed, 27 Aug 2008 02:26:14 GMT

Can you explain to me why you used the "#fh" instead of #1 or any other number for that matter?

Would it work the same if it were #1, #2, etc.?

Re: populating a listbox with text in a txt file.

Anonymous — Wed, 27 Aug 2008 12:40:04 GMT

You generally would use a style similar to the following:

Dim File As Integer

'get a handle to file
File = FreeFile

'write the Text to file
Open strFilename For Append Access Write As #File
Write #File, "Text objects"

'write each Text object to file
For Each objAcadText In objSelectionSet
Write #File, TextString
Next objAcadText

Close #File

Personally, I would opt using the Microsoft FileSystemObject for tasks such
as this.

Joe ...

wrote in message news:6016763@discussion.autodesk.com...
Can you explain to me why you used the "#fh" instead of #1 or any other
number for that matter?

Would it work the same if it were #1, #2, etc.?

Re: populating a listbox with text in a txt file.

Anonymous — Wed, 27 Aug 2008 12:41:27 GMT

And the opposite would be the following:

Dim File As Integer
Dim TextLine As String

File = FreeFile

Open strFilename For Input Access Read As #File
Do While Not EOF(File)
Line Input #File, TextLine
MsgBox TextLine
Loop
Close #File

Joe ...

"Joe Sutphin" wrote in message
news:6017029@discussion.autodesk.com...
You generally would use a style similar to the following:

Dim File As Integer

'get a handle to file
File = FreeFile

'write the Text to file
Open strFilename For Append Access Write As #File
Write #File, "Text objects"

'write each Text object to file
For Each objAcadText In objSelectionSet
Write #File, TextString
Next objAcadText

Close #File

Personally, I would opt using the Microsoft FileSystemObject for tasks such
as this.

Joe ...

wrote in message news:6016763@discussion.autodesk.com...
Can you explain to me why you used the "#fh" instead of #1 or any other
number for that matter?

Would it work the same if it were #1, #2, etc.?

Re: populating a listbox with text in a txt file.

Anonymous — Wed, 27 Aug 2008 22:14:30 GMT

Hi Joe,

What do you see as the advantage of the FSO compared with the VB method?

I looked in your book for a reference to it, but found nothing.

Regards

Laurie Comerford

Joe Sutphin wrote:
> You generally would use a style similar to the following:
>
> Dim File As Integer
>
> 'get a handle to file
> File = FreeFile
>
> 'write the Text to file
> Open strFilename For Append Access Write As #File
> Write #File, "Text objects"
>
> 'write each Text object to file
> For Each objAcadText In objSelectionSet
> Write #File, TextString
> Next objAcadText
>
> Close #File
>
> Personally, I would opt using the Microsoft FileSystemObject for tasks such
> as this.
>
> Joe ...
>
>
> wrote in message news:6016763@discussion.autodesk.com...
> Can you explain to me why you used the "#fh" instead of #1 or any other
> number for that matter?
>
> Would it work the same if it were #1, #2, etc.?

Re: populating a listbox with text in a txt file.

Anonymous — Wed, 27 Aug 2008 23:31:55 GMT

I was surprised at that too
FSO is universally denigrated on the "real" vb groups
security issues, bloated object being stated as the two reasons not to use
it.
mark

"Laurie Comerford" wrote in message
news:6017858@discussion.autodesk.com...
Hi Joe,

What do you see as the advantage of the FSO compared with the VB method?

I looked in your book for a reference to it, but found nothing.

Regards

Laurie Comerford

Joe Sutphin wrote:
> Personally, I would opt using the Microsoft FileSystemObject for tasks
> such
> as this.
>
> Joe ...
>