Formatierter Text in normal Text

[mandle]

Hallo,

möchte einen formatierten Text(String) aus in einen normalen Text(String) konvertieren.

Geht das?

gruß

 

[spirit]

Hallo

Ich verstehe dein Problem nicht ganz. Text = Text und String = String
Was willst du wohin konvertieren. Beschreibe dein Problem etwas ausführlicher

 

[mandle]

sorry, ich liefer der rich text box über die zwischenablage von excel einen formatierten text.
ActiveSheet.Cells(1, i + 1).Copy 'Überschrift
RTBox2(i).TextRTF = Clipboard.GetText(vbCFRTF) ' Zwischenablagentext abrufen.

in der rich text box wird der text gleich wiedergegeben wie er in der zelle steht (fett, andere schriftart...)

wenn ich jetzt wieder ins excel schreibe

ActiveSheet.Cells(Scroll1.Value, 1).Value = RTBox1(0).Text

dann scheint am ende jedes satztes mit return abgeschlossen ein sonderzeichen auf. ich habe mir mal den rtf text in eine standard text box ausgeben lassen. das sieht dann so aus
{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil Arial;}}
{\colortbl ;\red0\green0\blue0;}
\viewkind4\uc1\pard\cf1\lang1033\b\f0\fs20 Gehalten am
\par }

jetzt möchte ich diesen rtf-text wieder in ein ascci-textformat umwandeln.

danke
gruß

 

[mandle]

sorry, ich liefer der rich text box über die zwischenablage von excel einen formatierten text.

ActiveSheet.Cells(1, i + 1).Copy 'Überschrift

RTBox2(i).TextRTF = Clipboard.GetText(vbCFRTF) ' Zwischenablagentext abrufen.



in der rich text box wird der text gleich wiedergegeben wie er in der zelle steht (fett, andere schriftart...)



wenn ich jetzt wieder ins excel schreibe



ActiveSheet.Cells(Scroll1.Value, 1).Value = RTBox1(0).Text



dann scheint am ende jedes satztes mit return abgeschlossen ein sonderzeichen auf. ich habe mir mal den rtf text in eine standard text box ausgeben lassen. das sieht dann so aus

{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil Arial;}}

{\colortbl ;\red0\green0\blue0;}

\viewkind4\uc1\pard\cf1\lang1033\b\f0\fs20 Gehalten am

\par }



jetzt möchte ich diesen rtf-text wieder in ein ascci-textformat umwandeln.



danke

gruß

 

[mandle]

sorry, nochmal,

also - ich liefer der rich text box über die zwischenablage von excel einen formatierten text.

RTBox2(i).TextRTF = Clipboard.GetText(vbCFRTF) ' Zwischenablagentext abrufen.
ActiveSheet.Cells(2, i + 1).Copy 'Inhalte

in der rich text box wird der text gleich wiedergegeben wie er in der zelle steht (fett, andere schriftart...)
wenn ich jetzt wieder ins excel schreibe
ActiveSheet.Cells(Scroll1.Value, 1).Value = RTBox1(0).Text
dann scheint am ende jedes satzes mit return abgeschlossen ein sonderzeichen auf. ich habe mir mal den rtf-text in eine standard text box ausgeben lassen. das sieht dann so aus
{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil Arial;}}
{\colortbl ;\red0\green0\blue0;}
\viewkind4\uc1\pard\cf1\lang1033\b\f0\fs20 Gehalten am
\par }

jetzt möchte ich diesen rtf-text wieder in ein ascci-textformat umwandeln.

danke
gruß

 

[Shakie]

Also ich hab zwar keine Ahnung wie man das macht was du vorhast, aber ich hab 'nen kleinen Tipp am Rande so nebenbei: es gibt hier im Forum bei jedem Post einen "Edit"-Button....dann brauchst du nicht alles dreifach schreiben ;-)

 

[paulberthold]

Wenn Du mit dem RTF Control arbeitest, kannst die Eigenschaft 'Text' abfragen, die im Gegensatz zur Eigenschaft 'TextRTF', einen String _ohne_ RTF Kommandos zurückgibt.