Quote:
Your project in perl
#!/usr/local/bin/perl
my $output_file = "output_file.txt";
my $input_file = "input_file.txt";
my $textdump;
open(INFILE, "$input_file") or die "Can't open $input_file: $!";
open(OUTFILE, ">$output_file") or die "Can't open $output_file: $!";
while (<INFILE>){
$textdump .= $_;
}
$textdump =~ s/\n//ismg;
print OUTFILE qq($textdump);
close INFILE;
close OUTFILE;
Your project in VBScript:
Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("c:\urfile.xml", ForReading)
strContents = objFile.ReadAll()
objFile.Close
strContents = Replace(strContents, vbCrLf, "")
Set objFile = objFSO.OpenTextFile("c:\urfile.xml", ForWriting)
objFile.Write strContents
objFile.Close
Edited, Fri Mar 24 15:04:46 2006 by xythex