Tcl file 1

[daisy4u721]

I have a quick tcl question, hope someone can help.

I have 2 files and Im trying to get the information in the second file to the first file. I wrote a code but it doesnt seem to work. This is the code below.

set infile [open "daisy.doc" r]
set outfile [open "daisy2.doc" w]
 
while {![eof $infile]} {
  set line [gets $infile] 
    puts  $outfile $line
}

When i open the outfile, i find "?? ??" in there.
am i doing anything wrong? any help will be appreciated.

 

[feherke]

Hi

Is daisy.doc actually a Word document ?

Feherke.

http://free.rootshell.be/~feherke/

 

[daisy4u721]

yes it is a word document.

 

[feherke]

Hi

Then why are you trying to process it line by line ?

Use [tt]fconfigure[/tt] and [tt]read[/tt].

[b]set[/b] infile [teal][[/teal][b]open[/b] [green][i]"daisy.doc"[/i][/green] r[teal]][/teal]
[b]set[/b] outfile [teal][[/teal][b]open[/b] [green][i]"daisy2.doc"[/i][/green] w[teal]][/teal]

[b]fconfigure[/b] [navy]$infile[/navy] [teal]-[/teal]translation [b]binary[/b]
 
[b]while[/b] [teal]{[/teal][teal]![[/teal][b]eof[/b] [navy]$infile[/navy][teal]][/teal][teal]}[/teal] [teal]{[/teal]
  [b]set[/b] line [teal][[/teal][b]read[/b] [teal]-[/teal]nonewline [navy]$infile[/navy][teal]][/teal]
  [b]puts[/b] [teal]-[/teal]nonewline [navy]$outfile[/navy] [navy]$line[/navy]
[teal]}[/teal]

Feherke.

http://free.rootshell.be/~feherke/

 

[daisy4u721]

Thank you Feherke for the reply. When i try to open the outfile, its giving me an error message that:

"Word experienced an error trying to open the file

 

[feherke]

Hi

Well, I get identical MD5 checksum for my test file's original and copy.

If you are on windows, try to [tt]fconfigure[/tt] the $outfile too to [tt]binary[/tt].

Feherke.

http://free.rootshell.be/~feherke/

 

[daisy4u721]

Thank you so much Feherke, It works now.

 

[daisy4u721]

Feherke,

Are you farmiliar with Tcl TCOM package?

Or is anyone farmiliar with it?

Thanks,
Doyin

 

[feherke]

Hi

Nope, neither with TCOM and neither with Tcl packages.

Feherke.

http://free.rootshell.be/~feherke/