Html Datei via VBA durchsuchen und Zeilen löschen

Computer: Software & Programmierung Visual Basic
#1

Hallo,

ich habe folgendes Problem: Ich habe bisher in VBA (zur Anwendung eines Makros) ein Programm geschrieben, dass eine Doc-Datei in Html umwandelt. Zusätzlich fügt es css-Dateien hinzu, um die die Html Version richtig zu formatieren.
Mein Problem ist jetzt, ich möchte aber in der Html Version bestimmte Tabellen,die in der Doc Version vorhanden sind nicht haben. Das bedeutet, wenn ich die Doc-Datei konvertiere, dann soll er automatisch die bestimmten Zeilen suchen und löschen (es sind eine Menge Zeilen). Um genau zu sein sind es Zeilen die zwei direkt aufeinanderfolgende Tabellen darstellen… Wie kann ich die Html Zeilen löschen lassen?

Achja: Word 2003

#2

Hallo Jamalo,

ich habe folgendes Problem: Ich habe bisher in VBA (zur
Anwendung eines Makros) ein Programm geschrieben, dass eine
Doc-Datei in Html umwandelt. Zusätzlich fügt es css-Dateien
hinzu, um die die Html Version richtig zu formatieren.

ich kenne css überhaupt nicht.

Angenommen ich habe ein Doc, die schicke ich dir mit der Bitte sie in eine Html umzuwandeln.
Was krieg ich dann zurück?
Eine html und x css-Dateien?

Mein Problem ist jetzt, ich möchte aber in der Html Version
bestimmte Tabellen,die in der Doc Version vorhanden sind nicht
haben. Das bedeutet, wenn ich die Doc-Datei konvertiere, dann
soll er automatisch die bestimmten Zeilen suchen und löschen
(es sind eine Menge Zeilen).

In welchem Zeitpunkt der Konvertierung soll das geschehen?
Zeilen in einer Html zu löschen ist einfach weil Html reiner Text ist.
Zeilen in einer Doc zu löschen ist nicht so einfach.

Um genau zu sein sind es Zeilen
die zwei direkt aufeinanderfolgende Tabellen darstellen… Wie
kann ich die Html Zeilen löschen lassen?

Das mit dem Css irritiert mich.
Ansonsten, eine Html-Datei zu parsen=filtern ist machbar, man muß dem Makro nur sagen nach was es suchen muß.

Dazu mußt du dir den Quellcode der Html anschauen und herausfinden an was das Makro die Zeilen der zwei Tabellen erkennen kann.

Gruß
Reinhard

#3

Hallo,

erstmal danke für die schnelle Antwort. Das mit den css Dateien kannst du ruhig ignorieren!!! Und wie mache ich dieses parsen? Ich will die Html Datei durchsuchen und dabei einige bestimmte Zeilen löschen( ca 30 Zeilen)!!!

#4

erstmal danke für die schnelle Antwort. Das mit den css
Dateien kannst du ruhig ignorieren!!! Und wie mache ich dieses
parsen? Ich will die Html Datei durchsuchen und dabei einige
bestimmte Zeilen löschen( ca 30 Zeilen)!!!

Hallo jamalo,

der Code liest alle Zeilen von Original.htm ein und schreibt sie in Neu.htm.
Den „Block“ der in der Html-Datei mit beginnt und mit endet wird nicht mitübertragen.

und sind die Erkennungszeichen von denen ich sprach.

Wenn da deine zwei Tabellen in der Html auch solche Erkennungszeichen haben wird das einfach. Wenn nicht, schwierig bis unmöglich.

Sub tt()
Dim Satz As String, NichtUebernehmen As Boolean
Close
Open "C:\Test\Original.htm" For Input As #1
Open "C:\Test\Neu.htm" For Output As #2
While Not EOF(1)
 Input #1, Satz
 If Left(Satz, 8) = "" Then NichtUebernehmen = True
 If Left(Satz, 9) = "" Then NichtUebernehmen = false
 If NichtUebernehmen = False Then Print #2, Satz
Wend
Close
End Sub

Ups, ich seh grad, es wird eine Zeile zuviel mitübertragen, aber kein Akt, noch geht es um wichtigeres um den Code zu basteln.

Gruß
Reinhard