1 svar · 138 visningar · startad av qwerty
Så här ligger det till:
Jag har en sökmotor som är byggd efter ett skript från 4guysfromrolla. För att något mer än filnamnet ska visas måste man skriva in en sån där berskrivning på varje sida på webplatsen. Finns det inte något sätt så att man använder titletaggen som redan finns?
Tacksam för svar
så här ser det ut:
If bolValid then
iPos = InStr(1,strContents,"<!--TITLE:")
If iPos = 0 then
strTitle = "Untitled (" & objFile.Name & ")"
strDesc = ""
Else
strTitle = Mid(strContents,iPos+10,InStr(iPos,strContents,"-->")-iPos-10)
iPos = InStr(iPos,strContents,"<!--DESC:")
If iPos = 0 then
strDesc = ""
Else
strDesc = Mid(strContents,iPos+9,InStr(iPos,strContents,"-->")-iPos-9)
End If
End If
------------------
Qwerty
Den som provar han testar...
Det ordnade sig!
För den som är nyfiken var det bara att byta ut <!--title mot <title> och --> mot </title> och ändra alla 10 till rätt "ordlängd".
Borde man ha tänkt på från början. Men man är inte riktigt så smart som man skulle önska...
------------------
Qwerty
Den som provar han testar...