Anzeige von speziellem Text

In this board you can talk about general questions about phpMyFAQ

Moderator: Thorsten

Post Reply
cgba
Posts: 112
Joined: Mon Feb 05, 2007 7:11 pm

Anzeige von speziellem Text

Post by cgba »

Hallo,

verwendete Version 2.0.12.

Wenn ich einem Artikel z. B. einen VBA-Code in folgender Form hinzufüge...

Code: Select all

Sub ExportCategories()
Dim sFilePath As String
Dim iFileNumber As Integer

Dim oNameSpace As NameSpace
Dim oCategory As Category
Dim sCatName As String
Dim lCatColor As Long
Dim lCatShortcut As Long

  On Error GoTo ExportCat_Error
  Set oNameSpace = _
      Application.GetNamespace("MAPI")
  If oNameSpace.Categories.Count > 0 Then
    sFilePath = "C:\Outlook\Kategorien.txt"
    iFileNumber = FreeFile
    Open sFilePath For Output As #iFileNumber
    For Each oCategory In oNameSpace.Categories
      With oCategory
        sCatName = .Name
        lCatColor = .Color
        lCatShortcut = .ShortcutKey
      End With
      Write #iFileNumber, _
          sCatName, lCatColor, lCatShortcut
    Next oCategory
    MsgBox _
        Prompt:="Export abgeschlossen!", _
        Title:="Kategorieexport"
  Else
    MsgBox _
        Prompt:="Makro beendet!" & vbCr & _
        "Keine Kategorien vorhanden...", _
        Title:="Kategorieexport"
  End If
...dann sieht das in der Vorschau zwar noch genauso aus, aber nach dem Speichern des Artikels wie folgt:

Code: Select all

Sub ExportCategories()
Dim sFilePath As String
Dim iFileNumber As Integer

Dim oNameSpace As NameSpace
Dim oCategory As Category
Dim sCatName As String
Dim lCatColor As Long
Dim lCatShortcut As Long

On Error GoTo ExportCat_Error
Set oNameSpace = _
Application.GetNamespace("MAPI")
If oNameSpace.Categories.Count > 0 Then
sFilePath = "C:\Outlook\Kategorien.txt"
iFileNumber = FreeFile
Open sFilePath For Output As #iFileNumber
For Each oCategory In oNameSpace.Categories
With oCategory
sCatName = .Name
lCatColor = .Color
lCatShortcut = .ShortcutKey
End With
Write #iFileNumber, _
sCatName, lCatColor, lCatShortcut
Next oCategory
MsgBox _
Prompt:="Export abgeschlossen!", _
Title:="Kategorieexport"
Else
MsgBox _
Prompt:="Makro beendet!" & vbCr & _
"Keine Kategorien vorhanden...", _
Title:="Kategorieexport"
End If
Kann ich irgendwie verhindern, dass alles links ausgerichtet angezeigt wird? Das macht das Ganze — speziell bei solchen Codes — doch recht unübersichtlich und kaum mehr lesbar.
Viele Grüße
Christian
MS Outlook FAQ
cgba
Posts: 112
Joined: Mon Feb 05, 2007 7:11 pm

Re: Anzeige von speziellem Text

Post by cgba »

Hallo,

ich noch mal. Kann es sein, dass das nur passiert, wenn man in den HTML-Modus wechselt? Gerade habe ich nämlich den Code noch mal eingefügt, ohne aber nur einmal in die HTML-Ansicht zu wechseln. Und siehe da, die Formatierung bleibt erhalten.
Viele Grüße
Christian
MS Outlook FAQ
Thorsten
Posts: 15560
Joined: Tue Sep 25, 2001 11:14 am
Location: #phpmyfaq
Contact:

Re: Anzeige von speziellem Text

Post by Thorsten »

Hi,

es kann sein, dass der Editor da Ärger macht... ich guck mir das an.

In der 2.5 haben wir eine neuere Version von TinyMCE integriert.

bye
Thorsten
phpMyFAQ Maintainer and Lead Developer
amazon.de Wishlist
Post Reply