Hey all
Trying to achieve something relatively trivial here in RB 5.5. All I want to
do is pull out the
EndOfLine characters from a file. The below works fine for short files, but
when I throw a 200Kbyte
file at it, the result is no changes made. Any suggestions as to where I'm
going wrong, a 64k limit
somewhere?
dim f as folderitem
dim s as binarystream
dim a as string
f=getopenfolderItem("????")
s=f.openasbinaryFile(True)
a=s.read(s.length)
a=replaceall(a,endofline,"")
s.length=0
s.position=0
s.flush
s.write a
s.close
Regards
AP
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
