VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/06/30(Thu) 09:40
投稿者： 魔界の仮面弁士
Ｅメール：
ＵＲＬ：
タイトル： Re: リッチテキスト→xml

> リッチテキスト→xmlの変換方法はあるのでしょうか？

どのような XML に変換したいのでしょうか?
極端な話、RichTextBox1.TextRTF を CDATAセクションとして出力する方法もあるわけですが……。

    '手抜き実装な例
    Dim F As Integer
    F = FreeFile()
    Open "C:\RTF.XML" For Output As #F
    Print #F, "<?xml version='1.0' encoding='Shift_JIS'?>";
    Print #F, "<richText><![CDATA[";
    Print #F, RichTextBox1.TextRTF;
    Print #F, "]]></richText>";
    Close #F


> また、そのような変換ツール（vb6.0で利用できるもの）、
> サンプルコードなど変換の情報を
> 知っている方がいらっしゃったら教えてもらえないでしょうか。

強いて挙げるなら、Word 2003 を利用してみるとか。

Private Sub Command1_Click()
    RichTextBox1.SaveFile "C:\TEST.RTF", rtfRTF
    Dim O As Object, D As Object
    Const wdFormatXML As Long = 11
    Set O = CreateObject("Word.Application")
    Set D = O.Documents.Open("C:\TEST.RTF")
    D.SaveAs "C:\TEST.XML", wdFormatXML
    Kill "C:\TEST.RTF"
    D.Close
    Set D = Nothing
    O.Quit
    Set Q = Nothing
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -