Legacy and Other...

Dr scheme read text file help

Please support our Legacy and Other Languages advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Apr 2007

Posts: 5

Reputation: captainhair is an unknown quantity at this point

Solved Threads: 0

captainhair captainhair is offline

Offline

Newbie Poster

Dr scheme read text file help

Jun 12th, 2008

I am trying to make a program that will take a list of words from a .txt file and add the alphabet to the end of each word.

the code i have just makes it read and re-read the first line. since each list will be different i cant just do

Help with Code Tags

(Toggle Plain Text)

(read-line)
(read-line)
(read-line)


etc....
because each list will have different amounts of lines

the way i want to have it read is to get the first line, add a,b,c,d etc... to the end then goto the next line.

This is my code i have to get from file

Help with Code Tags

(Toggle Plain Text)

(define (adder path)
     (alpha-get "test.txt"))
  
(define (alpha)
0)
 
(define (alpha-get dir)
    (set! alpha 
      (list (with-input-from-file dir
               (lambda ()
                (list
                  (read-line))))))
     (begin
     (display alpha)
    (alpha-get "readsme.txt")))

im forgetting the add suffix for the moment as i know how to do that

can someone help me please. the procedure to get the files id alpha-get.

any help with higher order procedures that might do what i need would be great

Last edited by captainhair; Jun 12th, 2008 at 5:50 am.

•

Join Date: Feb 2008

Posts: 16

Reputation: cknapp is an unknown quantity at this point

Solved Threads: 1

cknapp

Offline

Newbie Poster

Re: Dr scheme read text file help

Jun 18th, 2008

I'm not competent enough in scheme to provide much help, but it might be easier to read in the whole file, split it into lines, add the alphabet, and then print it all back to the file.

On the other hand.
If you put "dir" outside of the recursion, it might work.

Hmm... I don't have time to show you the code I'm thinking at the moment... tonight!

Anyway, if you use a letrec inside of alpha-get, so you don't use dir as part of the recursive call, each read-line should get the next line in the file.