---

Hej..

Jeg roder med en function jeg bare ikke kan få til at virke. Den skal tage
al kode mellem "en" og "to" ud fra den teksstreng der kommer som input, men
jeg er bare blevet totalt kodeblind...hvordan vil i få det til at virke...?

----------

Function GetText(strText, strStartTag, strEndTag)
dim intStart
intStart = InStr(1, strText, strStartTag, vbTextCompare)
if intStart then
intStart = intStart + len(strStartTag)
intEnd = InStr(intStart + 1, strText, strEndTag, vbTextCompare)
GetText = Mid(strText, intStart, intEnd - intStart - 1)
else
GetText = ""
end if
End Function

Variabel = GetText(input,"en","to")

-------------

Mvh.
A. Høegh

---

"A. Høegh" <hoegh@click2find.dk> wrote in message
news:9frdhj$65r$1@news.inet.tele.dk...
>...hvordan vil i få det til at virke...?
> GetText = Mid(strText, intStart, intEnd - intStart - 1)

Fjerne -1 i denne sådan her
GetText = Mid(strText, intStart, intEnd - intStart - 1)

Så burde det virke.. Utestet.

PS: RegExp
--
"No matter how great and destructive your problems may seem now,
remember, you´ve probably only seen the tip of them."

---

> Fjerne -1 i denne sådan her
> GetText = Mid(strText, intStart, intEnd - intStart - 1)

Det virker desværre stadig ikke...hvad mener du med RegExp??

Mvh.
A. Høegh

---

"A. Høegh" <hoegh@click2find.dk> wrote in message
news:9frf7r$e3p$1@news.inet.tele.dk...
> Det virker desværre stadig ikke...

Det virker da fint her, har lige lavet et Clientside eksempel her:
<http://www.effectus.dk/jakob/find/>

> hvad mener du med RegExp??

Regular Expressions
--
"No matter how great and destructive your problems may seem now,
remember, you´ve probably only seen the tip of them."

---

Jeg kan god se at dettte eksempel virker, men sandheden er at jeg er igang
med at lave en crawler, og hver gang jeg prøver at udtrække siden titel via
koden herunder viser siden intet....hvorfor??

-------

<script language="VBScript" runat="Server">
Function GetText(strText, strStartTag, strEndTag)
dim intStart
intStart = InStr(1, strText, strStartTag, vbTextCompare)
if intStart then
intStart = intStart + len(strStartTag)
intEnd = InStr(intStart + 1, strText, strEndTag, vbTextCompare)
GetText = Mid(strText, intStart, intEnd - intStart)
else
GetText = ""
end if
End Function
</script>
<%
stitle = GetText(stvar,"<title>","</title>")
response.write stitle
------------

Mvh.
A. Høegh

---

"A. Høegh" <hoegh@click2find.dk> wrote in message
news:9frlo9$4ie$1@news.inet.tele.dk...
> Jeg kan god se at dettte eksempel virker, men sandheden er at jeg er igang
> med at lave en crawler, og hver gang jeg prøver at udtrække siden titel
via
> koden herunder viser siden intet....hvorfor??

Hvad er indholdet af stvar? Prøv at udskrive det.

--
"No matter how great and destructive your problems may seem now,
remember, you´ve probably only seen the tip of them."

---

"A. Høegh" <hoegh@click2find.dk> wrote in message
news:9frf7r$e3p$1@news.inet.tele.dk...
> Det virker desværre stadig ikke...hvad mener du med RegExp??

Kedede mig lige og trængte til lidt adspredelse så her har du en lille
funktion:

Function GetText(strText)
Dim objRegEx
Set objRegEx = New RegExp
objRegEx.Global = True
objRegEx.Pattern = "</?title>"
objRegEx.IgnoreCase = True
GetText = objRegEx.Replace(strText,"")
Set objRegEx = Nothing
End function

--
Jakob Andersen
FAQ for webdesign gruppen på
<http://www.usenet.dk/oss/dk.edb.internet.webdesign>
"Det er rart at være vigtig, men det er vigtigere at være rar "

---

Du spurgte før hvad variablen stvar indeholder...og den indeholder hele
sidens HTML-kode. Men det funktion du gav mig viser mig ikke teksten mellem
<title> og </title> taggende, bare al tekst på siden efter </title>..

Mvh.
A. Høegh

---

"A. Høegh" <hoegh@click2find.dk> wrote in message
news:9fsnvl$9o0$1@news.inet.tele.dk...
> Du spurgte før hvad variablen stvar indeholder...og den indeholder hele
> sidens HTML-kode.

Forgående burde virke jvf. mit eksempel. Er du sikker på at du ikke sender
en tom Variabel.

> Men det funktion du gav mig viser mig ikke teksten mellem
> <title> og </title> taggende, bare al tekst på siden efter </title>..

Det var jo ikke nemt at vide at det var alt HTML du havde hentet ind

PS: <http://www.usenet.dk/netikette/quote.html> ville hjælpe mig til at
hjælpe dig..
--
Jakob Andersen
FAQ for webdesign gruppen på
<http://www.usenet.dk/oss/dk.edb.internet.webdesign>
"Det er rart at være vigtig, men det er vigtigere at være rar "