| Forum List • Thread List • Reply • Refresh • New Topic • Search • Previous • Next  1  |  1. Another RichEdit Problem#764 Posted by: 2003-02-01 07:38:12 | As I understand RichEdits, they are able to display formatted text--such as multiple fonts, styles etc--as one might find in a Rich Text Format file. My problem is that I want to display a single line of text from a rtf file in a RichEdit box and I want the file to display as it does in Word.
I can't seem to get it to work. I have played around with the PlainText property of the RichEdits to no avail. Both True and False yeild the same results: Formatting symbols but not the expected text.
What follows is a sub for display of a line of RTF Formatted text.
SUB DisplayApparatus
DIM ApparatusStream AS QFILESTREAM
DIM Apparatus AS STRING
Apparatus = "Apparatus.rtf"
' Brings us to the base folder
Dir = "C:RQTEXTVAR"
' Test for existence of file Apparatus.rtf
IF ApparatusStream.Open(Dir + BooksBox.Text + "" + ChaptersBox.Text + Apparatus, 0) = False THEN
' Give error message if not found
MESSAGEDLG("Error opening Apparatus in DisplayApparatus", dtError, dbOK, 0)
ELSE
' Iterating through the file a line at a time
WHILE ApparatusStream.Position < ApparatusStream.Size
A$ = ApparatusStream.ReadLine
' The Leftmost 2 characters are to locate the proper line
' This is selected in the QCOMBOBOX "VersesBox"
IF VAL(LEFT$(A$, 2)) <> VAL(VersesBox.Text) THEN
' If no match, read another line
WEND
END IF
' Clear RichEdit before displaying selected line
ApparatusDisplay.Clear
' Display the selected line minus the leftmost three characters.
' Two characters are the verse number, the third is a space
ApparatusDisplay.AddStrings RIGHT$(A$, LEN(A$) - 3)
END IF
END SUB | 2. Re: Another RichEdit Problem #765 Posted by: 2003-02-01 07:48:50 | Well, I found a logical error in my code that ended the while...wend loop immediately if a match was not found. I fixed this in my program but the problem still exists. No formatted text. Can someone tell me what I'm doing wrong (or, conversely, what I'm not doing right)?
Thanks | 3. Where's your format code? #766 | Yes, besides your WEND problem, I didn't find your font setting code? You should use SelAttributes, see doc (http://h.ods.org/_scripts/file.php?f=492&r=2330#2468) and example:
http://h.ods.org/_scripts/file.php?f=1861&r=2330 | 4. Re: Where's your format code? #767 Posted by: 2003-02-01 12:06:30 | The Format codes are in the files. They are .RTF files; I simply want to display the formatted text. Is there no way to do this?
The Example was interesting but too complex for me to get much out of or to extract what is really relevant to my needs.
Craig | 5. SelAttributes #768 | I said please note SelAttributes statement at the end of the example code.
QFileStream.ReadLine doesn't recognize RTF, the "line" it read is a plain text line, this line may include formatting information, but is not equivalent with its RTF line. I'm afraid RTF file is binary, not plain text, you can check it with an HEX editor.
I don't know the RTF format syntax actually, sorry. | | Forum List • Thread List • Reply • Refresh • New Topic • Search • Previous • Next 1 |
|
|
搜索
论坛
Home
回顶部
g.yi.org Hits:0
