Text in HTML-Code lokaler HTML-Dateien ändern

hipfzwirgel

Hallo Profis,

ich versuche mir ein Script zu schreiben das mir in HTMl-Dateien die auf meinem Rechner liegen eine bestimmte Textstelle ändert. Konkret steht dort im Footer

Code

<div id="footer_text">© 2016 Weiterer Text</div>

Jetzt will ich die Jahreszahl ändern. Soweit bin ich gekommen:

C

#include <String.au3>
#include <AutoItConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <Misc.au3>
#include <MsgBoxConstants.au3>
#include <INet.au3>
#include <FileConstants.au3>
#include <WinAPIFiles.au3>

Local $sPath = "E:\HS-itconsulting\01_HTML\Bewerbung\Test"

Local $value = InputBox("Jahreszahl", "Bitte geben sie die Jahreszahl ein:")

Local $aFileList = _FileListToArray($sPath, "*.txt", 1)

If @error = 1 Then Exit MsgBox(0, "", "Keine Ordner gefunden.")
If @error = 4 Then Exit MsgBox(0, "", "Keine Dateien gefunden.")

    For $i = 1 To $aFileList[0]

       ???? 

    Next

Alles anzeigen

Alle versuche mit _stringbetween, _stringinsert, _inetgetsource scheiterten da eine http-Eingabe ja nicht existiert. Mit FileRead usw kam ich auch nicht weiter, da HTML-Dateien mit den FILE-Befehlen nicht händelbar zu sein scheinen. Sollte es nicht möglich sein eine lokale Html-Datei(E:\Homepage\Test.html) einzulesen und die genannte Textstelle zu ändern oder hat wer eine Idee?

**alpines**

Es wäre mir neu wenn sich HTML-Dateien sich gegen Fileoperationen wehrend würden.

Einlesen mit FileRead, StringReplace nutzen (die gesamte Zeile einfach replacen mit der neuen Jahreszahl, damit du andere Informationen nicht replaced), alte Datei löschen und neuschreiben mit FileWrite.

Ansonsten FileOpen, FileSetPos (mit StringInStr), FileWrite, FileFlush/FileClose.

**Oscar**

Zitat von hipfzwirgel

Local $aFileList = _FileListToArray($sPath, "*.txt", 1)

Äh, Du willst HTML-Dateien einlesen und benutzt "*.txt" als Filter?

hipfzwirgel

Zunächst danke an alle für die Antworten.

@ Oscar: einer der vielen Versuchr war

die htmlfiles als txtfiles(vorheriges umbenennen) anzusprechen. Ging aber auch nicht.

**Andy**

so?

AutoIt

#include <String.au3>
#include <AutoItConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <Misc.au3>
#include <MsgBoxConstants.au3>
#include <INet.au3>
#include <FileConstants.au3>
#include <WinAPIFiles.au3>


;html-Datei erstellen
FileDelete("testdatei1.html")
FileWrite("testdatei1.html", '<div id="footer_text">© 2016 Weiterer Text</div>')

ShellExecute("testdatei1.html")
Sleep(1000)

Local $sPath = @ScriptDir ; "E:\HS-itconsulting\01_HTML\Bewerbung\Test"

Local $value = InputBox("Jahreszahl", "Bitte geben sie die Jahreszahl ein:")

Local $aFileList = _FileListToArray($sPath, "testdatei1.html", 1)


If @error = 1 Then Exit MsgBox(0, "", "Keine Ordner gefunden.")
If @error = 4 Then Exit MsgBox(0, "", "Keine Dateien gefunden.")

For $i = 1 To $aFileList[0]
    $text = FileRead($aFileList[$i])
    $geaenderter_text = StringReplace($text, '<div id="footer_text">© 2016 Weiterer Text</div>', '<div id="footer_text">© ' & $value & ' Weiterer Text</div>')
    FileDelete("testdatei2.html")
    FileWrite("testdatei2.html", $geaenderter_text)
Next

ShellExecute("testdatei2.html")

Alles anzeigen