Hello,
I often have the problem to export the htmltext of field xyz to HTML correctly displayed in modern browsers.
The following code does what I need. Perhaps anyone has something more elegant and complex then I would be interested in a better code.
Question:
If I paste text of winword or excel into a field in runrev and within the original text is text formatted in color or as a html link in the "#0000ff" notation
the resulting htmltext in runrev is correct but the color wrongly displayed.
blue (#0000ff) is like a lila violet, yellow is like turkis ...
Why?
And the htmltagging seems not to be correct in runrev after import of winword etc.:
<font face="Garamond" size="11"><b>Internet </font><font face="Garamond" size="11" color="#0000FF"><u>www.animabit.de</b></u></font>
As you see: font b /font font u /b /u /font
correct would be: b font /font font u /u /font /b
Is this a wrongly behavior of the conversion after pasting text into a runrev text field?
regards
Mit freundlichen Grüßen
Franz Böhmisch
boehmisch at animabit.dehttp://www.animabit.de
GF Animabit Multimedia Software GmbH
Am Sonnenhang 22
D-94136 Thyrnau
Tel +49 (0)8501-8538
Fax +49 (0)8501-8537
put the htmltext of field xyz into feldinhalt
replace quote with "'" in feldinhalt
put true into entscheider
repeat while entscheider = true
put "(<font .*?>)" into regex
put matchtext(feldinhalt,regex,schriftentag) into entscheider
if schriftentag <> empty then
--answer schriftentag
get matchtext(schriftentag,"size='(\d+)'", schriftgröße)
if schriftgröße <> empty then
put "font-size:" & schriftgröße & "px;" into schriftgrößekomponente
else
put empty into schriftgrößekomponente
end if
get matchtext(schriftentag,"face='(.*?)'", schriftart)
if schriftart <> empty then
put "font-family:" & schriftart & ";" into schriftartkomponente
else
put empty into schriftartkomponente
end if
get matchtext(schriftentag,"color='([0-9A-F#]+?)'", schriftfarbe)
if schriftfarbe <> empty then
put "color:" & schriftfarbe & ";" into schriftfarbekomponente
else
put empy into schriftfarbekomponente
end if
--answer (schriftgröße & cr & schriftart & cr & schriftfarbe)
replace schriftentag with ("<§font style='" && schriftartkomponente && schriftfarbekomponente && schriftgrößekomponente & "'>") in feldinhalt
--replace schriftentag with ("<§font style='font-size:" & schriftgröße & "px'>") in feldinhalt
--put empty into entscheider
put empty into schriftentag
end if
end repeat
replace "<§font" with "<font" in feldinhalt
To: use-revolution at lists.runrev.com
Cc: boehmisch at animabit.de