Yeah, It would be nice if the text field had a setting instead to make it understand what you were storing, at least for user friendliness.<div><br><br><div class="gmail_quote">On Tue, Aug 11, 2009 at 9:18 AM, Barry G. Sumpter <span dir="ltr"><<a href="mailto:barrysum@bigpond.net.au">barrysum@bigpond.net.au</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">Man! That took forever to nut out!<br>
<br>
<br>
Dim vTBL as vTable<br>
vTBL = vDB.Table("MyTable")<br>
<br>
vTBL.SetBlank<br>
<br>
vTBL.Field("TextPage").value = efStyledText.Styledtext.text<br>
vTBL.VarBinaryField("TextStyle").value = efStyledText.TextStyleData<br>
<br>
Dim NewRecID As integer<br>
NewRecID = vTBL.AddRecord()<br>
<br>
<br>
vtbl.flush<br>
vdb.flush<br>
<br>
-----<br>
<br>
vCurs = vDB.SqlSelect( "SELECT TextPage, TextStyle FROM MyTable WHERE<br>
RecID = 1" )<br>
<br>
if vCurs.RecordCount < 1 then Exit sub<br>
<br>
dim myText as string<br>
myText = vCurs.Field("TextPage ").value<br>
'<br>
dim myStyle as string<br>
myStyle = vCurs.VarBinaryField("TextStyle ").value<br>
'<br>
'<br>
efStyledText.setTextAndStyle(myText, myStyle)<br>
<br>
-----<br>
<br>
Man what a waste of time.....<br>
<div><div></div><div class="h5"><br>
<br>
<br>
<br>
-----Original Message-----<br>
From: valentina-beta-bounces+barrysum=<a href="http://bigpond.net.au" target="_blank">bigpond.net.au</a>@<a href="http://lists.macserve.net" target="_blank">lists.macserve.net</a><br>
[mailto:<a href="mailto:valentina-beta-bounces%2Bbarrysum">valentina-beta-bounces+barrysum</a>=<a href="http://bigpond.net.au" target="_blank">bigpond.net.au</a>@<a href="http://lists.macserve.net" target="_blank">lists.macserve.net</a>]<br>
On Behalf Of Ruslan Zasukhin<br>
Sent: Tuesday, 11 August 2009 4:34 PM<br>
To: <a href="mailto:valentina-beta@lists.macserve.net">valentina-beta@lists.macserve.net</a>; <a href="mailto:valentina@lists.macserve.net">valentina@lists.macserve.net</a><br>
Subject: Re: V4RB and Valentina and Rich Text Format<br>
<br>
On 8/11/09 2:20 AM, "Barry G. Sumpter" <<a href="mailto:barrysum@bigpond.net.au">barrysum@bigpond.net.au</a>> wrote:<br>
<br>
Hi Barry,<br>
<br>
I believe in the V4RB API Reference there is mention of this near to<br>
VarBinary field.<br>
<br>
Also you can find similar question on this list archive.<br>
<br>
In short:<br>
<br>
You split RTF on 2 parts TEXT + STYLE<br>
<br>
TEXT go to a string field String/VarChar/TEXT<br>
STYLE info go to binary field FixedString/VarBinary/BLOB<br>
<br>
<br>
> Can anyone tell me how to save a rich text format field (styledText)<br>
> To a Valentina database<br>
> AND retrieve the field data with all Rich Text Formatting applied?<br>
<br>
--<br>
Best regards,<br>
<br>
Ruslan Zasukhin<br>
VP Engineering and New Technology<br>
Paradigma Software, Inc<br>
<br>
Valentina - Joining Worlds of Information<br>
<a href="http://www.paradigmasoft.com" target="_blank">http://www.paradigmasoft.com</a><br>
<br>
[I feel the need: the need for speed]<br>
<br>
<br>
_______________________________________________<br>
</div></div>Valentina-beta mailing list<br>
<a href="mailto:Valentina-beta@lists.macserve.net">Valentina-beta@lists.macserve.net</a><br>
<a href="http://lists.macserve.net/mailman/listinfo/valentina-beta" target="_blank">http://lists.macserve.net/mailman/listinfo/valentina-beta</a><br>
<br>
_______________________________________________<br>
Valentina-beta mailing list<br>
<a href="mailto:Valentina-beta@lists.macserve.net">Valentina-beta@lists.macserve.net</a><br>
<a href="http://lists.macserve.net/mailman/listinfo/valentina-beta" target="_blank">http://lists.macserve.net/mailman/listinfo/valentina-beta</a><br>
</blockquote></div><br><br clear="all"><br>-- <br><a href="http://www.bluewatermaritime.com">http://www.bluewatermaritime.com</a><br>
</div>