• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 185
  • Last Modified:

Print Columns

I need simple code to access a delimited text file on "A:" Drive and print the contents in 5 columns.  Need to display with no delimiter characters.

Sample of Data:
"B105","LOFTIS BALL","300 BOHLING LANE", 8223.30, 7.70
0
mad3654
Asked:
mad3654
  • 5
1 Solution
 
RuchiCommented:
Try something like this...

Private Sub Command1_Click()
    Open "A:\test.txt" For Output As #1
    Print #1, "B105", "LOFTIS BALL", "300 BOHLING LANE", 8223.3, 7.7
    Close #1
End Sub
0
 
TigerZhaoCommented:
Private Sub Command1_Click()
    Dim fn As Integer
    Dim s As String
    Dim v As Variant
    fn = FreeFile()
    Open Text1 For Input As fn
    While Not EOF(fn)
        Line Input #fn, s
        v = Split(s, ",")
        Printer.Print Join(v, vbTab)
    Wend
    Close fn
End Sub
0
 
RuchiCommented:
Or, you can write

Private Sub Command1_Click()
    Open "A:\test.txt" For Output As #1
    Print #1, Tab(10); "B105";
    Print #1, Tab(25); "LOFTIS BALL";
    Print #1, Tab(40); "300 BOHLING LANE";
    Print #1, Tab(55); 8223.3;
    PRint #1, Tab(70); 7.7
    Close #1
End Sub



0
Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
RuchiCommented:
Tab - to move to the specified column in the line so the next value can be ..output to start at that column position.

Print# - to write data to the specified any text, data file.

Write# - to add delimiters and separators
0
 
mad3654Author Commented:
I need code to access a delimited text file on "A:" Drive and print the contents in 5 columns.  Need to display with no delimiter characters.


I need something more like

Open "A:VB5.dat" for input as #1
Do While not EOF(1)

 "I am not sure what goes here something like- Line input #1, ID, Pname, Address, Due, Bal"?

Print ID, Pname, Address, format _(Due, "currency"), format(Bal, currency)
loop

end sub

I am opening a Data file named VB5.dat
Sample of data:

"B105","LOFTIS BALL","300 BOHLING_ LANE", 8223.30, 7.70
0
 
RuchiCommented:
Oh, you want to read the data from the floppy disk...

Try this one.

Private Sub Command1_Click()
    Dim a As String
    Dim b As String
    Dim c As String
    Dim d As Single
    Dim e As Single
   
    List1.Clear
   
    Open "C:\test.txt" For Input As #1
   
    Do Until EOF(1)
        Input #1, a, b, c, d, e
        List1.AddItem (a & vbTab & b & vbTab & c & vbTab & Format$(d, "currency") & vbTab & Format(e, "currency"))
    Loop
    Close #1
End Sub
0
 
RuchiCommented:
I meant "c:\text.txt" to "A:\test.txt"
0
Question has a verified solution.

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.

Join & Write a Comment

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

  • 5
Tackle projects and never again get stuck behind a technical roadblock.
Join Now