Help with some Input/Output....

[Terror Byte]

Okay I have to do several things with a couple of files.

I need to remove punctuation marks from a file.

code:

const PUNC := ",.:;?!'" var streamnumber : int var streamnumber2 : int open : streamnumber, "C:/Adeel/Turing/story.txt", get open : streamnumber2, "C:/Adeel/Turing/no_punc.txt", put loop     exit when eof (streamnumber)     get : streamnumber, letter     for i : 1 .. 7         if letter = PUNC (i) then             letter := " "         end if     end for     put : streamnumber2, letter .. end loop close : streamnumber close : streamnumber2

Basically, I can remove the punctuation marks but they get replaced with a space... How do I get rid of the space? I've tried replacing it with "^H" which the Turing Help says acts like a backspace or something..

Can anyone help me out here?

[Delos]

Terror Byte wrote:

code:

if letter = PUNC (i) then             letter := " "         end if

Look, a space! I wonder what will happen if I... By the way, your code won't work. I mean, apart from having not declared 'letter'. You're trying to get it to do something (check for punctuation), but instead you're setting up an equality test - not what you want to be doing. Instead, look into the index() function.

[Terror Byte]

Oh I did declare letter as a char.. Just forgot to put it in the code.. It's part of a bigger exercize.

And it does seem to work. The file I get mirrors the original exactly except all the punctuation marks are gone and replaced with a space.

I just want to remove the punctuation marks and remove that space as well.

[Cervantes]

Sadly, you can't do something like this:

code:

foo (12) := ""

Instead, you have to settle for this:

code:

var foo := "Hello World! Ninja Pirate Wooble Foo." % Find a punctuation mark at letter 12. foo := foo (1 .. 11) + foo (13 .. *) put foo