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 [email protected] http://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: [email protected] Cc: [email protected] _______________________________________________ use-revolution mailing list [email protected] Please visit this url to subscribe, unsubscribe and manage your subscription preferences: http://lists.runrev.com/mailman/listinfo/use-revolution
