TITLE auslesen

[toffee]

hallo nochmal,

kann man (und wenn ja wie) mit ASP den <TITLE> einer *.html Datei auslesen ??

Gruß
toffee

[Cord Worthmann]

am besten ist, du öffnest die entsprechende datei einfach per FSO (FileSystemObject) und splittest sie entweder an den tag-klammern in ein array, um dessen inhalt dann weiter zu parsen, bis du deine titel-info gefunden hast...
...oder du suchst das title-tag direkt per RegEx...
...oder du liesst die datei per FSO zeilenweise ein, und untersuchst dann die zeilen nach deinem tag.



grtz
chief

[toffee]

Hallo,

danke schön.

Aber wie geht das mit dem array und dem splitten :confused:

was ich eigentlich möchte, ist eine Zeile aus einer Datei zu lesen, und diese ausgeben. Muß nicht unbedingt der TITLE sein.

[K21]

hi!
das mit dem split ist ganz einfach.
einfach
SPLIT(array, ",") glaube ich war es
wenns nicht passt dann einfach mal googlen ;)

mit der datei... hmm kp bin auch erst anfänger ;)

[Cord Worthmann]

und so geht das zeilenweise einlesen einer datei...

Const FOR_READING = 1

Dim Path
Dim FSO
Dim File
Dim Line

path = "c:\test.htm"
Set FSO = Server.CreateObject("Scripting.FilesystemObject")
Set File = FSO.OpenTextFile(path, FOR_READING, True)

Do While Not File.AtEndOfStream
Line = File.ReadLine()
Loop

File.Close()
Set File = Nothing
Set FSO = Nothing



grtz
chief

[toffee]

hallo,

danke, aber ich hab mir anderweitig geholfen ;)

setzte in die erste Zeile der html Datei ein html Kommentar. das lass ich dann auslesen, und das erscheint dann als mein Kurztextlink.

Set f2name = fso.OpenTextFile (sBaseDir & "\" & sFileName)f3name = f2name.ReadLine
x = INSTR(f3name, "<!--")
y = INSTR(f3name, "-->")
f4text = MID(f3name, x+5, y-x-5)


Response.Write "<A HREF=""" & sPath & Item.Name & "?" & """>" & f4text & "</a>"

das obrige ist nur ei kurzer Auszug, zeigt aber die Funktionalität