vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: HTML/Internet/Netzwerk · HTML/Email   |   VB-Versionen: VB628.04.01
Text2HTML - Textdateien nach HTML konvertieren

Diese Funktionen konvertiert eine Textdatei nach HTML und ersetzt alle wichtigen Sonderzeichen.

Autor:   Fabian HolzerBewertung:     [ Jetzt bewerten ]Views:  24.653 
www.vb-appz.deSystem:  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

Dieser Tipp wurde bereits 24.653 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel