< als &lt; und > als &gt; darstellen

[autoit]

#include <Array.au3>
#include <File.au3>

[/autoit] [autoit][/autoit] [autoit]

Dim $array, $array_dateien

[/autoit] [autoit][/autoit] [autoit]

$pfad_englisch = "..\english\"
$pfad_englisch_txt2htm = $pfad_englisch & "txt2htm\"
$pfad_1 = $pfad_englisch_txt2htm & "txtFunctions\"
$pfad_2 = $pfad_englisch_txt2htm & "txtKeywords\"
$pfad_3 = $pfad_englisch_txt2htm & "txtlibfunctions\"

[/autoit] [autoit][/autoit] [autoit]

_aendern($pfad_1)
_aendern($pfad_2)
_aendern($pfad_3)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _aendern($pfad)
$array_dateien = _FileListToArray($pfad, "*.txt", 1)

[/autoit] [autoit][/autoit] [autoit]

For $r = 1 To UBound($array_dateien) - 1
$dateiname = $array_dateien[$r]
_FileReadToArray($pfad & $dateiname, $array)

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To UBound($array) - 1
$array_tmp = StringRegExp($array[$i], "<{1}[\w]{2,}>{1}", 3) ; < dann mindestens 2 Buchstaben dann >

[/autoit] [autoit][/autoit] [autoit]

If IsArray($array_tmp) Then
For $z = 0 To UBound($array_tmp) - 1
$array_tmp_neu = StringReplace($array_tmp[$z], "<", "&lt;")
$array_tmp_neu = StringReplace($array_tmp_neu, ">", "&gt;")
$array[$i] = StringReplace($array[$i], $array_tmp[$z], $array_tmp_neu)
Next
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

_FileWriteFromArray($pfad & $dateiname, $array, 1, 0)
Next
EndFunc ;==>_aendern

[/autoit]