Notifikationer

Markér alle som læst Log ud

petercj Nybegynder

22. december 2003 - 22:59 Der er 19 kommentarer

Hente kode mellem 2 tags

Hej Alle

Følgende kode på min webside henter en anden af mine websider fra et andet domæne:

<%
Function BinaryToString(Binary)
Dim I, S
For I = 1 To LenB(Binary)
S = S & Chr(AscB(MidB(Binary, I, 1)))
Next
BinaryToString = S
End Function

dim oHTTP, strContent
Set oHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
oHTTP.open "GET", "http://www.dinside.dk",false
oHTTP.send

strContent = BinaryToString(ohttp.responsebody)
strContent = replace(strContent, "test", "test1")

response.write(strContent)
%>

...mit spørgsmål er: Hvordan henter jeg kun et defineret område af www.dinside.dk evt. afgrænset af et start tag og et slut tag?!?

/Peter

Synes godt om

thesurfer Nybegynder

22. december 2003 - 23:07 #1

Eksempel:

strContent = mid(strContent, InStr(strContent, "")) + 2, InStr(strContent, ""))

Synes godt om

thesurfer Nybegynder

22. december 2003 - 23:09 #2

Den tager det der er mellem "" og "".
Hvis der står "Hello World", er resultatet "Hello World".
Men pas på.. den tager de første .. så det skal helst være noget der ikke optræder tit..

Synes godt om

petercj Nybegynder

22. december 2003 - 23:14 #3

...det lyder PERFEKT, men jeg får følgende fejl besked:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/test.asp, line 26

strContent = mid(strContent, InStr(strContent, "")) + 2, InStr(strContent, ""))

/Peter

Synes godt om

thesurfer Nybegynder

22. december 2003 - 23:14 #4

hovsa.. der er nogle fejl..

Synes godt om

petercj Nybegynder

22. december 2003 - 23:19 #5

...ja, jeg sidder lige og bikser lidt med det...lad os se, hvem der kommer først :o)

/Peter

Synes godt om

thesurfer Nybegynder

22. december 2003 - 23:22 #6

Min PWS virker ikke.. :( bliver nød til at reboote..
Men kan fortælle dig atder kun skal være 1 ")":
InStr(strContent, "") + 3

Rebooting ...

Synes godt om

thesurfer Nybegynder

22. december 2003 - 23:29 #7

Min PWS gider stadig ikke at afvikle asp filer..

Det burde virke, men det gør det ikke:

<%
strContent = "this is a long line, and i just want to say Hello World, and some more text"
strContent = mid(strContent, InStr(strContent, "") + 3, InStr(strContent, ""))
response.write strContent
%>

Synes godt om

petercj Nybegynder

22. december 2003 - 23:34 #8

ja, det virker da næsten, men eksemplet tager lige det sidste med også (teksten efter )...borset fra det så er det perfekt....hmmm...mystisk.

Synes godt om

thesurfer Nybegynder

22. december 2003 - 23:36 #9

Ja, jeg fatter det heller ikke :)
Den burde tage strengen indtil "", hvor "" ikke er med..

Synes godt om

petercj Nybegynder

22. december 2003 - 23:39 #10

ja, det er jo det...prøver lige om jeg kan finde noget dokumentation et sted...det skal altså bare virke...det er jo så tæt på :o)

/Peter

Synes godt om

thesurfer Nybegynder

22. december 2003 - 23:40 #11

Jeg har brugt det før.. men det er åbenbart lige meget hvad der står til sidst :)
Funktionen mid: http://www.w3schools.com/vbscript/func_mid.asp

Synes godt om

eagleeye Praktikant

23. december 2003 - 00:18 #12

Husk på det sidste tal/paramter til Mid er en længe/antal og ikke en slut index i strengen.

Synes godt om

eagleeye Praktikant

23. december 2003 - 00:21 #13

Så prøv ..:

strContent = "this is a long line, and i just want to say Hello World, and some more text"
strContent = mid(strContent, InStr(strContent, "") + 3, InStr(strContent, "")-InStr(strContent, "")-3)
response.write strContent

Synes godt om

thesurfer Nybegynder

23. december 2003 - 00:26 #14

ahh.. ja :)

Synes godt om

petercj Nybegynder

23. december 2003 - 09:33 #15

....det virker bare det skidt...hvor kan man finde en samlet liste over de der funktioner: mid() etc.?

/Peter

Synes godt om

zkiifreak Nybegynder

23. december 2003 - 10:54 #16

Liste over funktioner:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsgrpfeatures.asp

ZkiiFreak

Synes godt om

petercj Nybegynder

23. december 2003 - 11:22 #17

Hvordan hulen accepterer jeg og afslutter denne thread? Der plejer da at komme sådan en accepter/afvis boks...hmmm

Synes godt om

eagleeye Praktikant

23. december 2003 - 12:23 #18

Det fordi der ikke er nogle som har svaret ;)
Så hvem vil du gerne give point så kan de svare så du har mulighed for at acceptere og lukke spørgsmålet.

Synes godt om

thesurfer Nybegynder

23. december 2003 - 14:44 #19

En liste over nogle gode funtioner at bruge:
http://www.w3schools.com/vbscript/vbscript_ref_functions.asp

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS