Es ist ein Ordner für eine help.html
Am Anfang waren es noch "viele" HTML-Files. Nun ist es auf einmal nur noch ein help.htm?
Ich habe einen Ordner mit unterordnern in denen sich viele HTML Dateien befinden.
Nun gut, wenn es nun doch nicht so viele sind, habe ich hier einen Code der vielleicht für Deine Zwecke reicht.
- Einfach nur auf die Schnelle getippt
- Keine Fehlerabfragen
- Kein Check von Ausnahmen
- Kein Unicode
Für meine Zwecke ist der Code zu langsam, deshalb habe ich diesen Weg auch nicht weiterverfolgt.
Code: Alles auswählen
File.s= OpenFileRequester("Datei auswählen...","","html (.htm)|*.htm|All files (*.*)|*.*",0)
If File.s
If ReadFile(0, File.s)
While Eof(0) = 0
string.s+ ReadString(0)
Wend
CloseFile(0)
Else
MessageRequester("Fehler","Datei konnte nicht geöffnet werden")
EndIf
EndIf
If CreateRegularExpression(0, "<body.*?<\/body>")
Dim result.s(0)
ExtractRegularExpression(0, string, result.s())
EndIf
string=result.s(0)
laenge.i=StringByteLength(string,#PB_UTF8)
string_neu.s=Space(laenge)
For k=1 To laenge
If PeekS(@string+k,1,#PB_UTF8) =">"
ww.s="ok"
k+1
EndIf
If PeekS(@string+k,1,#PB_UTF8) ="<"
ww.s=""
EndIf
If ww.s="ok"
PokeB(@string_neu+g, PeekB(@string+k))
g+1
EndIf
Next k
Debug string_neu
Gruß