getting text to text.. (McRider)

Private Sub Command2_Click()
Open Text2 For Append As #1
Print #1, Text1.Text  
Close #1
'Save to a file.
End Sub

But now i will to open a textfile , i already know how but how can i display the contents it must look as:


Private Sub Command2_Click()
Open Text2 For input As #1
??????? #1, Text1.Text  
Close #1
'Save to a file.
End Sub

where the ??????? is the question
LVL 2
markyvtAsked:
Who is Participating?
 
DalinCommented:
I see.  Try this:
Text1.Text = Input(LOF(1),1)
0
 
DalinCommented:
Line Input #1, Text1.Text  
0
 
markyvtAuthor Commented:
Dalin as it works the points are for you i'm gonna test it now see ya.
0
Cloud Class® Course: CompTIA Healthcare IT Tech

This course will help prep you to earn the CompTIA Healthcare IT Technician certification showing that you have the knowledge and skills needed to succeed in installing, managing, and troubleshooting IT systems in medical and clinical settings.

 
markyvtAuthor Commented:
This gives an error, the text is not one rule (text1) is an text block


Private Sub test_Click()
Open Text2 For Input As #1
Line Input #1, Text1.Text
Close #1
End Sub

This works not
0
 
markyvtAuthor Commented:
Thank you man your the best.
0
 
DalinCommented:
You are welcome. Good luck in your project.
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.

All Courses

From novice to tech pro — start learning today.