[VBA] - Bestimmte Zeile aus HTML Dokument auslesen?

Hallo Community,

ich habe folgendes Problem.

Ich habe eine Excel Tabelle mit vielen ID's (Spalte B) und einen Ordner mit HTML-Dateien, die den IDs zugeordnet sind.

Im ersten Schritt bin ich alle ID's durchgegangen und habe falls vorhanden, die passende HTML Datei in einen Ordner abgespeichert.

Nun kommt der zweite Schritt bei dem ich eure Hilfe brauche. Ich möchte alle gefunden HTML Dateien durchgehen und nach einem bestimmten Bereich suchen. Im HTML Code sieht das ungefähr so aus:

<td class="category">
 <a name="attachments" id="attachments">Angehängte Dateien</a> </td>
<td colspan="5">
<a> unwichtig </a>
<a> WICHTIG </a> <- Hier steht der gesuchte Dateiname
<a> Unwichtig </a>
</td>

Das Ding ist, dass in diesem <td> Tag auch mehrere Dateien aufgeführt sind, der Aufbau ist aber immer gleich. Pro Datei gibt es 3 mal ein <a>-Tag und im mittleren stehen die wichtigen Informationen. Es gibt auch den Fall, dass dort keine Dateien und somit auch keine <a>-Tags vorhanden sind.

Mein bisheriges Makro sieht wie folgt aus:


 Const path = "M:*"
    Dim sheet As Worksheet
    Set sheet = ActiveWorkbook.Worksheets(2)
    maxRow = sheet.Cells(sheet.Rows.Count, "B").End(xlUp).Row
    Dim id As String
    Dim sourcePath As String
    Dim destPath As String
    Dim Filename As String
    For Row = 2 To maxRow
      sourcePath = path & "view.php-id=" & sheet.Cells(Row, 2) & ".html"
      Filename = "view.php-id=" & sheet.Cells(Row, 2) & ".html"
      MkDir (path & "gefunden\" & sheet.Cells(Row, 2))
      destPath = path & "gefunden\" & sheet.Cells(Row, 2) & "\" & sheet.Cells(Row, 2) & ".html"
      If Dir(sourcePath) = Filename Then
      FileCopy sourcePath, destPath
      Else
      MsgBox (sheet.Cells(Row, 2) & " nicht gefunden")
      End If
    Next Row

Um das alles nochmal zusammenzufassen, ich weiß nicht wie ich an die Namen der aufgeführten Dateien im HTML Dokument komme.

Wenn ich die Namen der Dateien erstmal habe, könnte ich auch weitermachen und die HTML-Doks mit passendem Anhang in einen Ordner kopieren.

Ich hoffe ihr verstehe was ich meine, für Fragen stehe ich gerne zu verfügung.

Grüße

Chris

Computer, Technik, HTML, programmieren, VBA, Technologie, VBA Programmierung, VBA Excel, Spiele und Gaming
Neuer Asus Monitor verursacht Augen und Kopfschmerzen!?

Hallo liebe Community,

ich suche nach einer Lösung meines Problems.

Ich bekam vor gut einer Woche den ASUS MG248QE (24"),

mir viel sofort nach dem Anschließen auf das, dass Bild sehr hell, Milchig und schwarz eher grau ist. Binnen weniger Minuten (2-5 Min) kriege ich Augen und Kopfschmerzen. Meine Gamer Freunde die ich extra gerufen hatte und meine Freundin empfinden es auch als unangenehm in den Monitor zu schauen.Ich habe schon bei freunden an Monitoren mit hoher hZ Zahl gespielt ohne schmerzen.

Dieses Problem hatte ich noch nie. Sei es an meinem 65" Zoll Fernseher.

An meinem Laptop oder an meinem Alten Monitor. Ich denke es liegt an einer Falschen Kalibrierung.

Stunden ohne wirklichen erfolg vergingen im Options Menü, ich schaffte es Ingame die schmerzen aufs Minimum zu reduzieren, aber sobald ich den Browser, öffne oder generell ein Heller Hintergrund wiedergeben wird wird man quasi geblendet und der schmerz wird unmittelbar darauf wieder stärker.

Da es nichts halbes und nichts ganzes ist schickte ich ihn zurück und bestellte mir den ASUS ROG STRIX XG258Q, 24" 240Hz der Mittwoch ankommt, und las das andres auch dieses Problem mit dem Milchigen Bild haben.

Ich vermute das mich am Mittwoch das selbe Problem nach dem Anschließen erwartet.

Ich hoffe hier tummeln sich ein paar IT experten rum die mir Helfen können.

Liebe grüße

PC, Computer, Monitor, IT, programmieren, Gaming, Informatik, 144Hz Monitor, 240hz
JQuery in JavaScript Converter?

Hey Leute,

ich möchte gerne meinen jQuery-Code in JavaScript umwandeln. Mir ist klar, dass jQuery auch JavaScript ist, das halt nur eine Library benötigt. Gibt es so etwas wie einen jQuery-to-JavaScript-Converter?

Ich möchte halt diesen Code umwandeln:

<script>
  $(document).ready(function () {
    $('#call').on("input", function () {
      tmpval = $(this).val();

      if (tmpval == '') {
        $('#key').removeClass('lglan');
      }
      else {
        $('#key').addClass('lglan');
      }
    });
  });
</script>
<script>
  $(document).ready(function () {
    $('#receive').on("input", function () {
      tmpval = $(this).val();

      if (tmpval == '') {
        $('#key2').removeClass('lglan');
      }
      else {
        $('#key2').addClass('lglan');
      }
    });
  });
</script>
<script>
  $(document).ready(function () {
    $('#call').on("input", function () {
      tmpval = $(this).val();

      if (tmpval == '') {
        $('#vm').removeClass(' esy ');
        $('#vm').addClass(' odn ');
      }
      else {
        $('#vm').addClass(' esy ');
        $('#vm').removeClass(' odn ');
      }
    });
  });
</script>
<script>
  $(document).ready(function () {
    $("#change").focusin(function () {
      $("#change").addClass("dri2");
    })
    $("#change").focusout(function () {
      $("#change").removeClass("dri2");
      $("#change2").focusin(function () {
        $("#change2").addClass("dri2");
      })
      $("#change2").focusout(function () {
        $("#change2").removeClass("dri2");
      })
    })
  });
</script>
<script>
  $(document).ready(function () {
    $('#call').on("input", function () {
      tmpval = $(this).val();

      if (tmpval == '') {
        $("#vm").attr("disabled", "disabled");
        $("#vm").removeAttr("enabled", "enabled");
      }
      else {
        $('#vm').attr("enabled", "enabled");
        $("#vm").removeAttr("disabled", "disabled");
      }
    });
  });
</script>
<script>
  $(document).ready(function() {
    $('#receive').on("input", function() {
      let currentValue = $(this).val();

      if (!currentValue.length) {
        $('#toggle').html('');
      }
      else {
        $('#toggle').html('<a id="click" class="lock" href="javascript:;"><?php echo $show ?></a>');
      }
    });
    $(document).on("click", "#click", function() {
      let text = $(this).text();

      if (text === "<?php echo $show ?>") {
        $(this).text("<?php echo $hide ?>");
        $("#receive").attr("type", "text");
      }
      else {
        $(this).text("<?php echo $show ?>");
        $("#receive").attr("type", "password");
      }
    });
  });
</script>

LG

Wenn jemand etwas weiß, wäre es cool, mich zu unterstützen. 😉

Computer, online, HTML, programmieren, JavaScript, JQuery

Meistgelesene Beiträge zum Thema Programmieren