dcsimg
Login | Register   
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


Tip of the Day
Language: Visual Basic
Expertise: Beginner
Oct 1, 1996

WEBINAR:

On-Demand


Opening and Reading a File

Question:
Can you please send me the code to open a file using the common dialog box - not just the code to open the dialog box but to actually open the txt file into a text box.

Answer:
OK...here goes. You need to have \VB\CONSTANT.TXT loaded into your project...do a Add File on it.

   CommonDialog.Flags = OFN_HIDEREADONLY
   CommonDialog.DialogTitle = "Select Input File"
   CommonDialog.Filter = "All Files(*.*)|*.*|Text Files (*.txt)|*.txt"
   CommonDialog.FilterIndex = 2
   CommonDialog.CancelError = True
   CommonDialog.Action = DLG_FILE_OPEN
At this point, the filename to use is in the CommonDialog.Filename property. To read your text into the text box, here is the code to use:
   Dim sTemp as String
   Open CommonDialog.Filename for Input as #1
   sTemp = ""
   Do While Not EOF(1)
      sTemp = sTemp + Input$(1, 1)
   Loop
   Close #1
   TextBox.Text = sTemp
All of the pieces of code here are documented in the help files included with VB.
DevX Pro
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
×
We have made updates to our Privacy Policy to reflect the implementation of the General Data Protection Regulation.
Thanks for your registration, follow us on our social networks to keep up-to-date