vb@rchiv · Tipps & Tricks · Text2HTML - Textdateien nach HTML konvertieren

Rubrik: HTML/Internet/Netzwerk · HTML/Email | VB-Versionen: VB6

28.04.01

Text2HTML - Textdateien nach HTML konvertieren Diese Funktionen konvertiert eine Textdatei nach HTML und ersetzt alle wichtigen Sonderzeichen.
Autor: Fabian Holzer	Bewertung:	Views: 24.704
www.vb-appz.de	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Unser heutiger Tipp zeigt, wie man eine Textdatei in eine HTML-Datei konvertieren kann. Es werden hierbei alle wichtigen Sonderzeichen, wie Umlaute, spitze Klammern und Anführungszeichen in die entsprechende HTML-Codes umgewandelt.

' Text in HTML-Text umwandeln
Public Function txt2html(sText As String) As String
 
  ' Text-Datei zeilenweise einlesen
  ' und Sonderzeichen, wie Umlaute und spitze
  ' Klammern durch HTML-Steuercodes ersetzen
 
  sText = Replace(sText, "ä", "ä")
  sText = Replace(sText, "Ä", "Ä")
  sText = Replace(sText, "ö", "ö")
  sText = Replace(sText, "Ö", "Ö")
  sText = Replace(sText, "ü", "ü")
  sText = Replace(sText, "Ü", "Ü")
  sText = Replace(sText, "ß", "ß")
  sText = Replace(sText, ">", ">")
  sText = Replace(sText, "<", "<")
  sText = Replace(sText, Chr$(34), """)
 
  txt2html = sText
End Function

Und hier ein Beispiel
Es wird eine Textdatei eingelesen, der Inhalt in HTML umgewandelt und in eine HTML-Datei gespeichert.

Private Sub Command1_Click()
  Dim sFile As String
  Dim sHtml As String
  Dim F As Integer
  Dim sHeader As String
  Dim Titel As String
  Dim sTmpLine As String
 
  ' Quelldatei (Textdatei, oder BAS-Datei)
  sFile = InputBox("Pfad der Textdatei an", _
    "Pfad eingeben", "")
  F = FreeFile
  Open sFile For Input As #F
  Do
    Line Input #F, sTmpLine
 
    ' Text in HTML umwandeln
    sHtml = sHtml & txt2html(sTmpLine) & vbCrLf
  Loop Until EOF(F)
  Close #F
 
  ' HTML-Header
  Titel = "Text2HTML"
  sHeader = "<HEAD><TITLE>" & Titel & "</TITLE></HEAD>"
 
  ' wenn es sich bei der Textdatei um VB-Code handelt
  ' ansonsten einfach nachfolgende Zeile auskommentieren
  sHtml = "<PRE>" & sHtml & "</PRE>"
 
  ' Zieldatei (HTML-Datei)
  sFile = InputBox("Pfad der HTML-Datei an", _
    "Pfad eingeben", "")
 
  ' HTML-Datei speichern
  F = FreeFile
  Open sFile For Output As #F
  Print #F, "<HTML>"
  Print #F, sHeader
  Print #F, "<BODY>"
  Print #F, sHtml
  Print #F, "</BODY>"
  Print #F, "</HTML>"
  Close #F
End Sub