Moin,

ich hab mal wieder ein unlösbares Problem:

in einem TRichEdit wird ein RTF-Text geladen, mit allen Formierungen - normale Groß-Klein Schreibweisen. Dies soll ich zu Wörtern zerhacken (ellenlange Wortlisten), die jeweils auf Art der Formatierung (Fett, kursiv etc.) interpretiert werden sollen...

Jetzt taucht tausendmal ein klein-geschriebenes Wort (Beispiel - RTF Text "APFEL") auf, welches über die RTF-Formatierung

\b\caps apfel\b0\caps0

kleingeschrieben (apfel) und im RTF als "APFEL" im RTF zu lesen ist.

Meine Analyse über

markieren

Delphi-Quellcode:

function IsGrossBuchstabe(ch: char): boolean;
begin
   Result := ch in ['A'..'Z'];
end;

oder auch:

Result := c = AnsiUpperCase(c);

scheitern, weils zu char ausgelesen (string[1]) immer Kleinbuchstaben bleiben.

Wie bekomme ich das sichtbare RTF-"APFEL" zum String-"APFEL" konvertiert?


Danke

Zitat von jaikai:

Dies soll ich zu Wörtern zerhacken (ellenlange Wortlisten), die jeweils auf Art der Formatierung (Fett, kursiv etc.) interpretiert werden sollen...

Dafür bietet sich rein Record an

markieren

Delphi-Quellcode:

tmyrec=record
         text:string;
         Dicke: fett/normal/mager;
         ....usw
end;

Nun kommen wir zu Deinem "Apfel".
der kann ja

markieren

Code:

\caps apfel \caps0

oder

markieren

Code:

\caps Apfel \caps0

oder

markieren

Code:

\caps aPFel \caps0

oder

markieren

Code:

\caps ApFel \caps0

...
codiert sein und immer wird er als APFEL dargestellt.

Wie lautet in diesem Zusammenhang Deine Aufgabenstellung genau?
Dementsprechend könnte man die vorhandenen Daten konvertieren.

Gruß
K-H

Moin,

den Sring Apfel aus dem RTF herauszubekommen ist nicht das Problem.

Das Problem liegt an der Formatierung innerhalb des RTF's. Obwohl es dort großgeschrieben ist, muss ich (auf Grund der Vorgabe) den String anhand der Schreibweise verschieden bewerten. Der kann fett, kursiv etc - und eben Großbuchstaben sein (auch Groß kursiv fett, was dann eine andere interne Bedeutung hat)

Schemata :

apfel - in Liste 1 einsortieren (fett)
apfel - in Liste 2 einsortieren (italic)
APFEL - (Caps) - in Liste 3 einsortieren ((fett, groß)
APFEL - (Caps) - in Liste 4 einsortieren usw.(fett, groß, kursiv)

Ich könnte den String über die Zwischenablage in eine Textfeld importieren. Aber bei 30 MB Sourcematerial ists kein angenehmer Arbeitsschritt (langsam und flackernd).
Zudem geht mir eine resp. die Information (siehe Schemata) verloren. Diese müsste ich parallel über Positions- oder Stellenzähler mitlaufen lassen...

Ich hatte auf eine bequemere, vor allem eine elegantere Methode gehofft. Aber im komplette Internet scheint es nichts passendes zu geben.

Danke

j

Codegear hatte es mal geschafft Delphi von RichEdit 1.0 auf RichEdit 2.0 umzustellen, aber dann hatte sich da nichts mehr getan.
Bis RichEdit 1.0 oder ab RichEdit 3.0+ hättest du das Problem nicht. (Aus Sicht der Datenverwaltung sind diese Eigenschaften auch eher unnütz hinderlich)

Zitat:

CFE_ALLCAPS
Characters are all capital letters. The value does not affect the way the control displays the text. This value applies only to versions earlier than Microsoft Rich Edit 3.0.

CFE_SMALLCAPS
Characters are in small capital letters. The value does not affect how the control displays the text.

RichEdit.SelAttributes.ConsistentAttributes unterstützt kein CFM_ALLCAPS, aber du kannst das ja auch selber abfragen.
https://msdn.microsoft.com/de-de/lib.../bb787883.aspx

markieren

Delphi-Quellcode:

var Format: TCharFormat2;
Format.cbSize := SizeOf(TCharFormat2);
SendGetStructMessage(RichEdit.Handle, EM_GETCHARFORMAT, 1, Format, True);

Texte mit dieser Eigenschaft suchen und dann SelText := AnsiUpperCase(SelText);

Zitat von jaikai:

den Sring Apfel aus dem RTF herauszubekommen ist nicht das Problem.

Das Problem liegt an der Formatierung innerhalb des RTF's. Obwohl es dort großgeschrieben ist, muss ich (auf Grund der Vorgabe) den String anhand der Schreibweise verschieden bewerten. Der kann fett, kursiv etc - und eben Großbuchstaben sein (auch Groß kursiv fett, was dann eine andere interne Bedeutung hat)

Könnte es sein, daß Du da etwas verwechselst?
In einer RTF-Datei liegen die Formatinformationen und der angezeigte Text hintereinander (stream).
z.B.

markieren

Code:

{\rtlch\fcs1 \af31507 \ltrch\fcs0 \insrsid1331219 Apfel}{\rtlch\fcs1 \af31507 \ltrch\fcs0 \insrsid3025572 
\par }{\rtlch\fcs1 \af31507 \ltrch\fcs0 \insrsid1331219 Apfel
\par Apfel
\par }{\rtlch\fcs1 \af31507 \ltrch\fcs0 \b\insrsid1331219\charrsid1331219 Apfel
\par }{\rtlch\fcs1 \af31507 \ltrch\fcs0 \insrsid1331219 Apfelmus
\par }{\rtlch\fcs1 \af31507 \ltrch\fcs0 \b\i\insrsid1331219\charrsid1331219 Apfel
\par }

das kannst Du Lesen und die entsprechenden Attribute für jedes Wort setzen.
oder aber Du arbeitest mit einem TRichEdit und nutzt SelText/SelLength/selstart und SelAttribute den Text und die zugehörigen Attribute zu bekommen.
Um SelText zu positionieren könnte man z.b

markieren

Delphi-Quellcode:

while letzteposition<length(text) do
  lp1:=Posex(' ',meintext,letztePosition)
  lp2:=Posex(' ',meintext,letztePosition)
  selstart:=p1+1;
  sellength:=p2-1-p1;
  ..machwas
  letzteposition:=p2;
end;

nutzen. (Ist nicht getestet, nur als Anregung!)

Mit den Informationen fütterst du Dann eine Wortliste, die auch die Attribute enthält. Ob das eine Stringliste mit Objects oder eine Objectlist mit Records oder.. ist, ist zunächst einmal egal.

Gruß
K-H
Nachtrag:

Zitat von himitsu:

Aus Sicht der Datenverwaltung sind diese Eigenschaften auch eher unnütz hinderlich)

Wer ist auch so ... Dateneigenschaften am Aussehen fest zu machen.

Sind die Jedis nicht etwas weiter gekommen?

Zitat von jaikai:

Ich hatte auf eine bequemere, vor allem eine elegantere Methode gehofft. Aber im komplette Internet scheint es nichts passendes zu geben.

Es gibt für Delphi Bibliotheken, die eine RTF Datei einlesen und in andere Formate konvertieren können. Diese enthalten daher auch mehr oder weniger ausgefeilte Parser, die den Text und die Formatierungen verarbeiten

Beispiel: http://wiki.delphi-jedi.org/wiki/JVC...RichEditToHtml

Es ist zwar schon ein bisschen her, dass ich mich mit Richtext beschäftigen musste, aber die Vorgehensweise des TE irritiert mich ein wenig.
Man kann doch eine TRichEdit-Komponente wortweise durchgehen und die Formatierungen des gerade ausgewählten Bereiches feststellen. Wie man wortweise durchgeht, weiß ich im Moment nicht, aber ich bin mir ziemlich sicher, dass es relativ einfach ist. Die Formatierung war über SelAttributes.Style, festzustellen, wenn ich mich richtig erinnere.

Die Wortliste kann man also einfach erstellen und die zugehörigen Formatierungen hat man dann doch eigentlich auch sofort verfügbar. Warum soll man denn die Formatierung selbst analysieren?

Und was passiert bei

markieren

Code:

\caps Apfel und Birne \caps0

oder

markieren

Code:

\caps ap\caps0 fel

Wie ist das Wort dann formatiert?

a) ist klar: Großdarstellung
b) 1) darf es nicht geben 2) sollte es trotzdem einmal vorkommen tritt automatisch 1) in Kraft!

Gruß
K-H