need help fixing it?

[dos5731]

Hi
Can you all help me fix it?
It done not print to the Listbox
Dim A As String
Private Sub Command1_Click()
End
End Sub

Private Sub List1_Click()
Open "C:\pos\bob\bob.txt" For Input As #1
Input #1, A
Close #1
List1.AddItem A
End Sub

[Tempestknight]

Ummm... did u define a? like
a = blah blah?

[dos5731]

No!!!

[Tempestknight]

Then why don't you? lol

[dos5731]

I did it and it dose not work.

[Max_aka_NOBODY]

How does bob.txt look like? If you're reading a string, you need to have it between quotes. Otherwise use "Line Input", binary, or the FileSystem object.

[dos5731]

bob.txt
bob
bob

[Max_aka_NOBODY]

For what you're doing, you'd need:

__________________
"bob"
"jack"
"some other guy"
__________________

Or use "Line Input" instead of "Input"

[wiccaan]

You could use this code as well. Put this in a module:

Public Sub TextToList(WhatList As ListBox, TextFile$)
Rem Makes a .txt file from a listbox
On Error GoTo FartK
Dim X%
X% = FreeFile
Open TextFile$ For Input As #X
While Not EOF(X)
Input #X, sText$
DoEvents
WhatList.AddItem sText$
Wend
Close #X
Exit Sub
FartK:
Exit Sub
End Sub

Then on your forum have 2 command buttons and 1 listbox. All default names.

In Command1 have:

Private Sub Command1_Click()
    TextToList List1, "C:\pos\bob\bob.txt"
End Sub

And in Command2 since you wanted oen to end the program:

Private Sub Command2_Click()
   End
End Sub

The above function will read a textfile on each line and put it into a Listbox of your choice. By pressing the Command1 button, you will open the textfile, and add all the lines in it into the Listbox on their own line, just as they were in the txt file.

[dos5731]

new code

Option Explicit
Dim g
Dim h

Private Sub Command1_Click()
End
End Sub

Private Sub List1_Click(Index As Integer)
Open "C:\pos\bob.txt" For Input As #1
Line Input #1, g
Close #1
For X = 1 To 1
List1.AddItem g
Next X
End Sub

[visualAd]

Dim A As String
 
Private Sub Command1_Click()
    End
End Sub
 
Private Sub List1_Click()
    Open "C:\pos\bob\bob.txt" For Input As #1
    Input #1, A
    Close #1
    List1.AddItem A
End Sub

You havn't assigned A a value. Therefore your file will be empty, plus the Command1_Click procedure has an error in it, it doesn't need to be there.

[dos5731]

It is not working for me.

[crocker]

he got it work by ueing a Commandbtton.