DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

read multi line txt.file and display in textbox

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Jul 2008

Posts: 25

Reputation: chern4ever is an unknown quantity at this point

Solved Threads: 0

chern4ever chern4ever is offline

Offline

Light Poster

read multi line txt.file and display in textbox

Jul 26th, 2008

i would like to read some data and display it in textbox.

my example of data in my txt file are:
"moviename1", "movieshowtime1"
"moviename2", "movieshowtime2"

when i display it in text box, it shows exactly like above.
i want it to display without the quotes.
how i can achive tat?
moviename1, movieshowtime1
moviename2, movieshowtime2

this is my code

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Sub Command1_Click()
 
Dim dText As String, dNextLine As String, lLineCount As Long
lLineCount = 1
 
        Open "C:\Users\Chern\CINEMA\reserve.txt" For Input As #1
        Do While Not EOF(1)
            Line Input #1, dNextLine
            dText = dText & dNextLine & vbCrLf
        Loop
        Text1.Text = dText
 
End Sub
Private Sub Command1_Click()

Dim dText As String, dNextLine As String, lLineCount As Long
lLineCount = 1

        Open "C:\Users\Chern\CINEMA\reserve.txt" For Input As #1
        Do While Not EOF(1)
            Line Input #1, dNextLine
            dText = dText & dNextLine & vbCrLf
        Loop
        Text1.Text = dText
        
End Sub

•

Join Date: Aug 2006

Posts: 51

Reputation: dmf1978 is an unknown quantity at this point

Solved Threads: 7

dmf1978

Offline

Junior Poster in Training

Re: read multi line txt.file and display in textbox

Jul 26th, 2008

Hi,
Use the Replace function.
The syntax is

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Replace(string, find, replace)
Replace(string, find, replace)

Doing it in your code:

 Help with Code Tags 
 VB Syntax (Toggle Plain Text) 
Private Sub Command1_Click()
 
Dim dText As String, dNextLine As String, lLineCount As Long
lLineCount = 1
 
        Open "C:\Users\Chern\CINEMA\reserve.txt" For Input As #1
        Do While Not EOF(1)
            Line Input #1, dNextLine
            dNextLine = Replace(dNextLine, Chr$(34), "")
            dText = dText & dNextLine & vbCrLf
        Loop
        Text1.Text = dText
 
End Sub
Private Sub Command1_Click()

Dim dText As String, dNextLine As String, lLineCount As Long
lLineCount = 1

        Open "C:\Users\Chern\CINEMA\reserve.txt" For Input As #1
        Do While Not EOF(1)
            Line Input #1, dNextLine
            dNextLine = Replace(dNextLine, Chr$(34), "")
            dText = dText & dNextLine & vbCrLf
        Loop
        Text1.Text = dText
        
End Sub

Chr$(34) is the " char.

Hope it helps.

-- Martín

•

Join Date: Feb 2008

Posts: 509

Reputation: selvaganapathy is an unknown quantity at this point

Solved Threads: 88

selvaganapathy selvaganapathy is offline

Offline

Posting Pro

Re: read multi line txt.file and display in textbox

Jul 26th, 2008

Use Input statement instead of Line Input

Ex

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
Private Sub Command1_Click()
   Dim dText As String
   Dim sString1 As String, sString2 As String
 
   Open "C:\Users\Chern\CINEMA\reserve.txt" For Input As #1
   Do While Not EOF(1)
       Input #1, sString1, sString2
       dText = dText & sString1 & ", " & sString2 & vbCrLf
   Loop
   Text1.Text = dText
End Sub
Private Sub Command1_Click()
   Dim dText As String
   Dim sString1 As String, sString2 As String

   Open "C:\Users\Chern\CINEMA\reserve.txt" For Input As #1
   Do While Not EOF(1)
       Input #1, sString1, sString2
       dText = dText & sString1 & ", " & sString2 & vbCrLf
   Loop
   Text1.Text = dText
End Sub

Last edited by selvaganapathy; Jul 26th, 2008 at 1:59 pm.

KSG

•

Join Date: Jul 2008

Posts: 25

Reputation: chern4ever is an unknown quantity at this point

Solved Threads: 0

chern4ever chern4ever is offline

Offline

Light Poster

Re: read multi line txt.file and display in textbox

Jul 26th, 2008

i have another problem, i wan it to appear like this
moviename1, movieshowtime1
moviename2, movieshowtime2

but it wont jump to second line, it stick together
moviename1,movieshowtime1moviename2,movieshowtime2

thanks for helping

•

Join Date: Jul 2008

Posts: 25

Reputation: chern4ever is an unknown quantity at this point

Solved Threads: 0

chern4ever chern4ever is offline

Offline

Light Poster

Re: read multi line txt.file and display in textbox

Jul 27th, 2008

thanks i solve my previous problem.
now another problem.
in my txt file :
moviename1, movieshowtime1
moviename2, movieshowtime2

i want to show only this in a text box. is that possible?
moviename1
moviename2

•

Join Date: Feb 2008

Posts: 509

Reputation: selvaganapathy is an unknown quantity at this point

Solved Threads: 88

selvaganapathy selvaganapathy is offline

Offline

Posting Pro

Re: read multi line txt.file and display in textbox

Jul 27th, 2008

Hi, my above example will solve your problem. just modify the above example.

KSG

•

Join Date: Jul 2008

Posts: 25

Reputation: chern4ever is an unknown quantity at this point

Solved Threads: 0

chern4ever chern4ever is offline

Offline

Light Poster

Re: read multi line txt.file and display in textbox

Jul 27th, 2008

thanks alot =)

Quick Reply to Thread

Show Printable Version

Other Threads in the Visual Basic 4 / 5 / 6 Forum

Previous Thread: string handling
Next Thread: how to use a database multiple tables

Thread Tools	Search this Thread
Show Printable Version Email this Page

DaniWeb Message

Cancel Changes