I used the BinaryStream and it works, you're a genius when I'm as rich as Bill
Gates I'll buy you the fully staffed home of your dreams along with any
vehicles you want (grin)
For posterity sake this is the code I used:
Dim WriteToFile as BinaryStream
Dim f as FolderItem
f=GetSaveFolderItem("Html","")
If f <> Nil Then
WriteToFile=f.CreateBinaryFile("Html")
WriteToFile.Write Editfield1.Text
WriteToFile.close
Me.Title = f.Name
End If
Hopefully this will help someone in the future facing a similar problem.
---
With warmest regards, Danny
--------- Original Message ---------
DATE: Sun, 30 May 2004 09:58:07
From: Emile Schwarz <Emile dot A dot Schwarz at wanadoo dot fr>
To: gettingstarted at lists dot realsoftware dot com
Cc:
>
>
>gettingstarted-request at lists dot realsoftware dot com wrote:
>> Subject: Saving an EditField to text not rtf
>> From: "Danny Jackson" <danny_307mo at lycos dot com>
>> Date: Sun, 30 May 2004 00:16:09 -0400
>>
>> I'm new to RB and have searched all of the threads and documentation for a
>> way to save a multi line editfield contents to a plain text file without any
>> rtf code.
>>
>> What I'm trying to do is to create an Html editor and it cannot have any rtf
>> code in it.
>>
>> All of the examples I've seen are for a single line editfield and are not
>> compatable with my app.
>>
>> I'm using RB 5.2 for Windows and am running Windows ME as an operating
>> system.
>>
>> Any help would be greately appreciated
>>
>
>Danny, I think you will not like my answer... Save the EditField contents as
>text, not Styled EditField.
>
>I am not sure at 100% that this really helps (not tested). If that is not the
>case, try BinaryStream...
>
>Of course, you will loose (if that works as you want) the styles :(
>
>Another solution could be to use a standard EditField (no styles), but then
>you
>do not have colors, Bold/Italic/and so on... in your html editor :(
>
>
>Compromises...
>
>
>HTH,
>
>Emile
>
>
>_______________________________________________
>Unsubscribe or switch delivery mode:
><http://support.realsoftware.com/listmanager/>
>
>Search the archives of this list here:
><http://support.realsoftware.com/listarchives/lists.html>
>
____________________________________________________________
Find what you are looking for with the Lycos Yellow Pages
http://r.lycos.com/r/yp_emailfooter/http://yellowpages.lycos.com/default.asp?SRC=lycos10
_______________________________________________
Unsubscribe or switch delivery mode:
<http://support.realsoftware.com/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
|