remove form feed characters from a string before writing to a file ?

[bct10]

I have a string of text that has two form feed
characters chr12 in it I like to remove them be for i write the string
here what I have so far

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile("abc.txt")
Set MyFile = ofso.CreateTextFile("C:\WINDOWS\Desktop\testfile.txt", True)
While oFile.AtEndOfStream <> True
str1 = oFile.ReadLine

MyFile.WriteLine str1

Wend
oFile.close
MyFile.Close

thanks for any help

 

[PHV]

Something like this ?
str1 = Replace(oFile.ReadLine, Chr(12), "")

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[tsuji]

Hello bct10,

It is replace by empty.

str1 = replace(str1, chr(12),"")

regards - tsuji

 

[tsuji]

PHV, you beat me by second. - tsuji

 

[bct10]

Thanks Phv tsuji
thats what I was looking for
works great Thanks