home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / pascal / 6863 < prev    next >
Encoding:
Internet Message Format  |  1992-11-24  |  2.3 KB
  1. Path: sparky!uunet!pipex!warwick!uknet!nplpsg!news
  2. From: KDT@newton.npl.co.uk (K D TART CSU BLDG. 93)
  3. Newsgroups: comp.lang.pascal
  4. Subject: Re: ???????  User input of textfile to read ?????????
  5. Message-ID: <1992Nov23.113554.16785@psg.npl.co.uk>
  6. Date: 23 Nov 92 11:35:54 GMT
  7. References: <1en55vINN1u4@cumin.csv.warwick.ac.uk>
  8. Sender: news@psg.npl.co.uk (Network News Administration)
  9. Distribution: uk
  10. Organization: National Physical Laboratory, UK
  11. Lines: 63
  12. In-Reply-To: cstaddc@csv.warwick.ac.uk's message of 22 Nov 92 05: 17:50 GMT
  13. Nntp-Posting-Host: newton
  14. X-News-Reader: VMS NEWS 1.21
  15.  
  16. >     Hi, I'm just getting to grips with pascal and have a niggling problem.
  17. > I want to read in a filename using say :
  18. > 
  19. >     writeln(' Enter filename to read ');
  20. >     readln(filename);
  21. > 
  22. > and take characters in from the specified file using :
  23. > 
  24. >     reset(filename)
  25. > 
  26. > Naturally filename must be of type : text.  This clashes with the first step
  27. > where I assigned the name of the file to filename !!!
  28. > 
  29. >     i.e.   the variable filename must be :
  30. >  
  31. >      packed array (* to hold filename *)
  32. >      file of text.  (* to access contents of file *)
  33. > 
  34. > 
  35. >     Can anyone suggest a way around this problem or maybe a new approach to
  36. > achieve the same result.
  37.  
  38. You need to have 2 variables, one for the filename and the other for the file
  39. itself. The filename variable needs to be some sort of string type or packed
  40. array, and the variable for the file needs to be type TEXT.
  41.  
  42. eg.
  43.  
  44. var
  45.   myfile :text;
  46.   filename :packed array [1..80] of char;
  47.  
  48.  
  49. begin
  50.   write ('Filename: ');
  51.   readln (filename);
  52.  
  53.   { You need some command in here to link the MYFILE variable with the external
  54.     file whose name is in FILENAME. This will depend on the version of Pascal
  55.     you are using because standard Pascal does not cater for this. See * below }
  56.  
  57.   reset (myfile);
  58.   read (myfile, anotherstringtypevariable);
  59.  
  60.   { ... and so on }
  61. end.
  62.  
  63.  
  64. * in Turbo Pascal, you should declare FILENAME as a string and use the ASSIGN
  65.   command to link your file variable with the external file:
  66.  
  67.        ASSIGN (myfile, filename);
  68.        RESET (myfile);
  69.  
  70.   In VAX pascal, you need to do OPEN:
  71.  
  72.        OPEN (myfile, filename, readonly);
  73.        RESET (myfile);
  74.  
  75.   You need to specify the type of Pascal you are using to get a more complete
  76.   answer.
  77.  
  78.     Kingsley.
  79.