Imports System.IO
Imports CuteEditor
Public Class Dokumente
    Inherits System.Web.UI.Page

    Dim doknr As Integer
    Dim dh As New clsDatahandling
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            Try
                Update_Dokument()
            Catch ex As Exception
            End Try
        End If
    End Sub

    Protected Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
        doknr = dh.Insert_Dokument(Me.txtBezeichnung.Text)
        Me.RadComboBox1.DataBind()

    End Sub

    Private Sub RadComboBox1_DataBound(sender As Object, e As System.EventArgs) Handles RadComboBox1.DataBound
        'Me.RadComboBox1.SelectedIndex = 0
        'Update_Dokument()
    End Sub

   
    Sub Update_Dokument()
        Dim ds As New DataSet
        ds = dh.Get_Tabledata("Select * from Web_Dokumenttexte where eintragnr=" + Me.RadComboBox1.SelectedValue.ToString, False, True)
        Try
            Me.txtDokumenttitel.Text = ds.Tables(0).Rows(0).Item("Beschreibung")
        Catch
            Me.txtDokumenttitel.Text = ""
        End Try
        'Dim r As String = ds.Tables(0).Rows(0).Item("rtf")

        'Me.Editor1.LoadRTF(r)
        'Exit Sub
        Dim filename As String = Me.RadComboBox1.SelectedValue.ToString + ".rtf"

        Dim path As String = Server.MapPath("~/temp/")
        filename = path + filename
        If Not File.Exists(filename) Then
            Me.lblmessage.Text = path + "empty.rtf" + ":" + filename
            Try
                File.Copy(path + "empty.rtf", filename, True)
            Catch ex As Exception
                Me.lblmessage.Text = Me.lblmessage.Text + ":" + Err.Description
                Exit Sub
            End Try
        End If
        Me.Editor1.LoadRTF(filename)

    End Sub


    Private Sub Editor1_PostBackCommand(sender As Object, e As System.Web.UI.WebControls.CommandEventArgs) Handles Editor1.PostBackCommand
        Select Case e.CommandName
            Case "Save"
                Dim filename As String = Me.RadComboBox1.SelectedValue.ToString + ".rtf"
                Dim path As String = Server.MapPath("~/temp/")
                filename = path + filename
                Me.Editor1.SaveRTF(filename)
                Dim htmltortf = New CuteEditor.Convertor.RTF.HTML2RTF(Me.Editor1.Text)
                'Me.Editor1.LoadRTF(htmltortf.RTF)
                'Exit Sub
                dh.UpdateTable("Web_Dokumenttexte", "rtf", htmltortf.RTF, True, "Eintragnr", Me.RadComboBox1.SelectedValue.ToString)
                Me.Editor1.SaveFile(filename + ".html")
                'dh.Save_rtf(Me.RadComboBox1.SelectedValue, filename + ".html", "")
                dh.Save_rtf(Me.RadComboBox1.SelectedValue, filename, "")
                dh.UpdateTable("Web_Dokumenttexte", "Beschreibung", Me.txtDokumenttitel.Text, True, "Eintragnr", Me.RadComboBox1.SelectedValue.ToString)


        End Select
    End Sub

    Private Sub RadComboBox1_SelectedIndexChanged(sender As Object, e As Telerik.Web.UI.RadComboBoxSelectedIndexChangedEventArgs) Handles RadComboBox1.SelectedIndexChanged
        'Me.lblmessage.Text = Me.RadComboBox1.SelectedValue.ToString
        Update_Dokument()
    End Sub

   
End Class