Hallo Leute,
ich habe folgendes Problem.
Ich möchte aus einer rtf-Datei den Plaintext auslesen und das aber nur im Programmcode. Ich habe keine "echte"
Ich dachte ich könnte das alles mit einer rtb im Programmcode erledigen, aber das klappt leider nicht.
Folgender Code habe ich versucht:
Hat einer vielleicht eine Idee wie ich mit einfachen mitteln an den Plaintext komme?
Vielen Dank im Voraus.
Gruß Achilleus
ich habe folgendes Problem.
Ich möchte aus einer rtf-Datei den Plaintext auslesen und das aber nur im Programmcode. Ich habe keine "echte"
RichTextBox
.Ich dachte ich könnte das alles mit einer rtb im Programmcode erledigen, aber das klappt leider nicht.
Folgender Code habe ich versucht:
VB.NET-Quellcode
- Public Function LoadSignatur(Id As Integer) As String
- 10: Dim sSearchFor As String = "Signature.*"
- 20: Dim sPath As String = Environ("AppData") & "\Kanzlei"
- 30: Dim rtb As New RichTextBox
- 40: Dim FoundFile As String = ""
- On Error GoTo LoadSignatur_Error
- 50: If Id > 0 Then sSearchFor = "*Signature_" & Format(Id, "00") & "*.*"
- 60: For Each FoundFile In My.Computer.FileSystem.GetFiles(sPath, FileIO.SearchOption.SearchTopLevelOnly, sSearchFor)
- 70: rtb.LoadFile(FoundFile, RichTextBoxStreamType.PlainText)
- 90: LoadSignatur = rtb.Text
- 100: rtb.Dispose()
- 110: Next
- 120: If FoundFile.Length = 0 Then
- 130: Select Case MessageBox.Show("Möchten Sie jetzt eine eigene Signatur einrichten?", "Keine eigene Signatur gefunden", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
- Case DialogResult.Yes
- 140: FrmSignature.ShowDialog()
- 150: Return LoadSignatur(Id)
- 160: Case DialogResult.No
- 170: Return ""
- 180: End Select
- 190: End If
- On Error GoTo 0
- Exit Function
- LoadSignatur_Error:
- MessageBox.Show("Error " & Err.Number & ": (" & Err.Description & ") in Prozedur LoadSignatur von Modul DokOrg_DATEV.clsFPSign", "Fehler in Zeile: " & Erl())
- 200: Return ""
- End Function
Hat einer vielleicht eine Idee wie ich mit einfachen mitteln an den Plaintext komme?
Vielen Dank im Voraus.
Gruß Achilleus