Re: File by Aaron
Aaron
Thu Aug 28 21:09:56 CDT 2003
Sardinka, your original file "test.txt" is in unicode wide format. If you
open it in a hex editor you will see every other byte is nulls except where
extended Non ascii characters are present, eg a non Western Eoropean English
or US English region. FSO defaults to pening as US Ascii.
Description
Opens a specified file and returns a TextStream object that can be used to
read from, write to, or append to the file.
Syntax
object.OpenAsTextStream([iomode, [format]])
The OpenAsTextStream method syntax has these parts:
Part Description
object Required. Always the name of a File object.
iomode Optional. Indicates input/output mode. Can be one of three
constants: ForReading, ForWriting, or ForAppending.
format Optional. One of three Tristate values used to indicate the
format of the opened file. If omitted, the file is opened as ASCII.
The format argument can have any of the following settings:
Constant Value Description
TristateUseDefault -2 Opens the file using the system default.
TristateTrue -1 Opens the file as Unicode.
TristateFalse 0 Opens the file as ASCII.
"Tom Lavedas" <tlavedas@hotmail.com> wrote in message
news:040701c36d9c$61f2e560$a301280a@phx.gbl...
Your original posted script has an error in its use of the
fso.createTextFile method. That method does NOT take a
ForWriting parameter as you used and the third parameter
is for specifying whether the file is to store Unicode or
ASCII. Your script had the Unicode parameter set as True,
but you later reopen it as ASCII (ANSI). This error is
causing the garbling. Either change this line
Set theFile1 = fso.createTextFile("C:\Header.txt", _
ForWriting, True)
to
Set theFile1 = fso.createTextFile("C:\Header.txt", _
True, False)
Or switch to the OpenTextFile method
Set theFile1 = fso.OpenTextFile("C:\Header.txt", _
ForWriting, True)
which is probably what you had in mind, originally.
BTW, you don't need to close it and reopen it for
appending. You can just add to the file in subsequent
writes, since it's all happening in on process. That
is, ...
Const ForReading, ForWriting = 2
Dim fso, f1, strDate, rootDir, sFileSpec1, sFileSpec2
strDate = Year(Date) & Right("0"&Month(Date),2) _
& Right("0"&Day(Date),2)
rootDir = "C:\"
sFileSpec1 = rootDir & "Header.txt"
sFileSpec2 = rootDir & "test.txt"
With CreateObject("Scripting.FileSystemObject")
set f1 = .OpenTextFile(sFileSpec1, ForWriting)
f1.writeline "HST" & strDate
f1.Write .OpentextFile(sFileSpec2, ForReading).ReadAll
f1.Close
End With
I believe all the rest is redundant.
Tom Lavedas
===========
>-----Original Message-----
>That is what I am getting in file:
>?????〠㈰㈷㄰ㄳ求敵牃஋
1;⁳求敵桓敩摬????????????????????塘
;㕐㔲ㄳㄸ
㤹
>ㄠ‱??畐湴浡????????㈠〰〳&#
12856;`?????慗癩摥?⁎䰠啉?????????????
8976;
>.
>