You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
85 lines
3.2 KiB
85 lines
3.2 KiB
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 |