RichTextBox and HTML

A1880

Intermediate

Posts: 500

Location: Hanover, Germany

Occupation: Software Engineer

1

Friday, July 24th 2009, 9:58am

Hi all,
I experimented with RichTextBox controls and HTML.
It is possible to load HTML content into a RichTextBox. But I haven't succeeded in writing the RichTextBox to HTML.

Source code

Public Sub RichTextBox_LoadFileHtml(RTB As RichTextBox, aFileName As String)
  Dim fis As New FileInputStream(aFileName)
  Dim doc As New HTMLDocument 
  Dim kit As New HTMLEditorKit

  doc.putProperty "IgnoreCharsetDirective", New Boolean(True)
  RTB.Parent.setEditorKit kit  
  RTB.Parent.setDocument doc
  kit.read fis, doc, 0
  fis.close
End Sub

Public Sub RichTextBox_SaveFileHtml(RTB As RichTextBox, aFileName As String) 
  Dim fos As New FileOutputStream(New File(aFileName))
  Dim doc As Document = RTB.Parent.getDocument 
  Dim kit As HTMLEditorKit = Cast(RTB.Parent.getEditorKit, HTMLEditorKit)
  
  kit.Write fos, doc, 0,0
  
  fos.close 
End Sub

Any ideas?

Greetings

A1880

Go to the top of the page

OlimilO

Intermediate

Posts: 277

Location: Germany

Occupation: software engineer

2

Friday, July 24th 2009, 10:26am

Hi A1880,

don't really know, sorry less time at the moment, some ideas:

* Serializing -> will it be possible in Jabaco?

* Editorkit.write has the ability to use a specific writer

-> haven't tried it yet, but maybe a htmlwriter could be useful: javax#swing#text#html#HTMLWriter

OlimilO

Go to the top of the page

klctal

Trainee

Posts: 70

Location: Shanghai

3

Friday, July 24th 2009, 10:40am

Quoted

-> haven't tried it yet, but maybe a htmlwriter could be useful: javax#swing#text#html#HTMLWriter

I've tried it and It just writes a char somehow

This post has been edited 1 times, last edit by "klctal" (Jul 24th 2009, 10:51am)

Go to the top of the page

klctal

Trainee

Posts: 70

Location: Shanghai

4

Friday, July 24th 2009, 1:54pm

Well, my nearest idea is:

Source code

Public Sub SaveHTML 
  Dim AftSave As String 
  With CommonDialog1 
  .ShowSave 
  If CommonDialog1.FileName="" Then Exit Sub 
  'Head 
  AftSave="<html>"+chr(10)+"<head>"+chr(10)+"<title>Title</title>"+chr(10)+"</head>" 
  'Body 
  AftSave=AftSave+chr(10)+"<body><p>"+RichTextBox1.Text+"</p></body></html>" 
  SaveText2(AftSave,CommonDialog1.FileName) 
  End With 
End Sub 
Public Sub SaveText2(Text As String, FileName As String) 
  Dim File1 As VBFileHandler 
  File1=Open(FileName) 
  Write(File1,Text) 
End Sub

But it only saved one line.

Thanks,

klctal

Go to the top of the page

OlimilO

Intermediate

Posts: 277

Location: Germany

Occupation: software engineer

5

Friday, July 24th 2009, 2:03pm

very easy with getEditorKitForContentType, but not whole compatible

Hi,

loading rtf or htm and writing rtf or htm

means converting between each other

easy going with the function JTextPane.getEditorKitForContentType

Jabaco Source

Public Sub RichTextBox_SaveFileHTM(RTB As RichTextBox, aFileName As String)
   RichTextBox_SaveFile(RTB, aFileName, "text/html")
End Sub
Public Sub RichTextBox_SaveFile(RTB As RichTextBox, aFileName As String)
   'default because RichText = rtf
   RichTextBox_SaveFile(RTB, aFileName, "text/rtf")
End Sub
Public Sub RichTextBox_SaveFile(RTB As RichTextBox, aFileName As String, contenttype As String)
   'contenttype could either be 
   ' "text/plain", or
   ' "text/html", or
   ' "text/rtf"
   Dim os As OutputStream = New FileOutputStream(aFileName)
   Dim pan As JTextPane = RTB.Parent
   Dim kit As EditorKit = pan.getEditorKitForContentType(contenttype)
   Dim doc As Document = pan.getDocument
   Dim wri As Writer = New OutputStreamWriter(os)
   kit.write(os, doc, 0, doc.getLength)
   os.flush
   os.close      
End Sub

...but I also found Inconpatibilities:
if text is left-, middle- or rightaligned, the JTextpane does show it correctly but the Editorkit is not able to write it correctly, don't know why.

OlimilO

Go to the top of the page