On 13k of text, this code runs in a few ticks on my Mac mini, even
before I optimize it. But your problem is Windows?
Charles Yeomans
On Nov 13, 2006, at 5:10 PM, Ian R wrote:
On Nov 13, 2006, at 3:56 PM, Charles Yeomans wrote:
Perhaps you could post your style-massage code and let us have a
look.
Gladly!
--------------------------
dim runCount, i as Integer
dim InputText as StyledText
dim run as StyleRun
dim finalText as String
InputText = me.StyledText
me.Visible = FALSE
runCount = InputText.StyleRunCount - 1 // this is the line
that is being so slow
finalText = ""
for i = 0 to runCount // this, however, goes very quickly
run = InputText.StyleRun(i)
if run.Bold then
finalText = finalText + "<strong>" + run.Text + "</strong>"
elseif run.Italic then
finalText = finalText + "<cite>" + run.Text + "</cite>"
elseif run.Underline then
finalText = finalText + "<em>" + run.Text + "</em>"
else
finalText = finalText + run.Text
end if
next i
me.Text = finalText
----------------------------
I'd be extremely appreciative. I usually assume that it's my
novice code that causes these long delays, but testing seems to
indicate that the hangup is on that call to StyleRunCount.
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
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>
