Exercise: Reading in a text file line by line to accumulate a message

This exercise is provided to allow potential course delegates to choose the correct Wise Owl Microsoft training course, and may not be reproduced in whole or in part in any format without the prior written consent of Wise Owl.

The answer to the exercise will be included and explained if you attend the Wise Owl course listed below!

Category ==> Advanced VBA  (29 exercises)
Topic ==> Working with text files  (2 exercises)
Level ==> Relatively easy
Course ==> Advanced VBA
Before you can do this exercise, you'll need to download and unzip this file (if you have any problems doing this, click here for help).

You need a minimum screen resolution of about 700 pixels width to see our exercises. This is because they contain diagrams and tables which would not be viewable easily on a mobile phone or small laptop. Please use a larger tablet, notebook or desktop computer, or change your screen resolution settings.

The text file in the above folder contains a message - your task is to read it in line by line:

The text file

The start of the message (you could, of course, just read it manually!).

 

To achieve this task, first create a reference to the Microsoft Scripting Runtime object library.  Now write code to set a string variable to a blank string to begin with, and accumulate text within it as you read in each line.  Something like this should do the trick:

'read in the next character's line

NextCharacter = ts.ReadLine

'accumulate this in a string variable

msg = msg & NextCharacter

Obviously you'll need to include this within a loop reading lines in from the text file until you reach the end, and declare all the necessary variables!

If you succeed, your macro should display the meaning of life:

The meaning of life

Clearly the message you accumulate and display will be different.

 

Save your workbook as Solving the mysteries of life.xlsm, then close it down. 

This page has 0 threads Add post