---

Hej NG.

Jeg har lavet et admin-system af artikler, som redigeres fra https. Når man
så indsættet et
billede, skal jeg have stien ændret.

https://secure.MySecureTest.dk/cgi-bin/nph-proxy.cgi/000101A/http/NewDomain.dk/admin/htmlArea/smileys/0002.gif
skal ændres til
http://www.NewDomain.dk/admin/htmlArea/smileys/0002.gif

Jeg har nu lavet nedenstående, man kan ikke få det til at virke - hvad er
der galt?

Jeg har testet med denne streng:
ConvertURL("størst fremgang er skovflåten. Hvor meget skal man egentlig
passe på? Er det farligt <IMG
src=""https://secure.MySecureTest.dk/cgi-bin/nph-proxy.cgi/000101A/http/NewD
omain.dk/admin/htmlArea/smileys/0002.gif"" align=absMiddle border=0>. at
blive bidt? <A href=""http://www.helse.dk/artikler/detail.asp?id=24""
target=_blank><I>Læs hele artiklen: Ny viden om</i>")



Function ConvertURL(strURL)

Dim str, strValue, strValue_2, iPosition1, iPosition2, i
str = strURL
If Not instr(str, "https://secure.MySecureTest.dk/") = False then
For i = 0 to len(str)
iPosition1 = Instr(str, "https://secure.MySecureTest.dk")
'Fejlfinding:
response.write "<br>iPosition1 = " & iPosition1
iPosition2 = Instr(iPosition1, str, """")
'Fejlfinding:
response.write "<br>iPosition2 = " & iPosition2
strValue_1 = Mid(str, iPosition1, iPosition2-iPosition1)
If instr(strValue_1, "http/NewDomain.dk") Then
iPosition1 = instr(strValue_1, "http/NewDomain.dk")
'Fejlfinding:
response.write "<br>iPosition1 = " & iPosition1
iPosition2 = len(strValue_1)
'Fejlfinding:
response.write "<br>iPosition2 = " & iPosition2
strValue_2 = Mid(strValue_1, iPosition1, (iPosition2-iPosition1)+1)
strValue_2 = replace(strValue_2, "http/NewDomain.dk",
"http://NewDomain.dk")


str = Replace(str, Trim(strValue_1), Trim(strValue_2))
Else
'str = Replace(str, strValue_1, "")
End If
'Fejlfinding:
Response.Write "<br><br><b>Value 1:</b> " & strValue_1 & "<br>" &
(instr(str, Trim(strValue_1 & " ")) = True) & "<br>"
Response.Write "<br><b>Value 2:</b> " & strValue_2 & "<br>" & (instr(str,
Trim(strValue_2) & " ") = True)

If instr(str, "https://secure.MySecureTest.dk") = False Then EXIT For
Next
End If
ConvertURL = str

'Response.Write "<br><br>-------" & Replace(str, """", "")
'Response.end

End Function



mvh.
Andreas

---

Andreas Slot-Henriksen skrev:

> Jeg har nu lavet nedenstående, man kan ikke få det til at
> virke - hvad er der galt?

Hvordan virker det ikke? Bliver URI'en slet ikke udskiftet eller
bliver den udskiftet til noget forkert?

> If Not instr(str, "https://secure.MySecureTest.dk/") =
> False then

Hov - faldt lige over linjen her. Instr returnerer ikke true/false,
men et tal. Tjek for > 0 i stedet.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

Jeg kan godt få vist de to værdier jeg isolerer... men den replace, der
hedder:
----------------
strValue_2 = Mid(strValue_1, iPosition1, (iPosition2-iPosition1)+1)
strValue_2 = replace(strValue_2, "http/NewDomain.dk", "http://NewDomain.dk")
----------------
....virker slet ikke. Det er som om, der slet ikke reageres på koden. Det
er ret underligt....! Kan det være pga. tegnet "/" ??

Selv om Instr ikke returnerer true/false, fungerer det nu fint med...:
If Not instr(str, "https://secure.MySecureTest.dk/") = False Then
- jeg kommer fint ned i funktionen - og så stopper festen. Jeg har dog
ændret
det til > 0 ...men med samme resultat.


mvh.
Andreas


"Jens Gyldenkærne Clausen" <jens@gyros.invalid> skrev i en meddelelse
news:Xns9541D586B6E3Ejcdmfdk@gyrosmod.cybercity.dk...
> Andreas Slot-Henriksen skrev:
>
> > Jeg har nu lavet nedenstående, man kan ikke få det til at
> > virke - hvad er der galt?
>
> Hvordan virker det ikke? Bliver URI'en slet ikke udskiftet eller
> bliver den udskiftet til noget forkert?
>
> > If Not instr(str, "https://secure.MySecureTest.dk/") =
> > False then
>
> Hov - faldt lige over linjen her. Instr returnerer ikke true/false,
> men et tal. Tjek for > 0 i stedet.
> --
> Jens Gyldenkærne Clausen
> Svar venligst under det du citerer, og citer kun det der er
> nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
> hvordan på http://usenet.dk/netikette/citatteknik.html

---

Andreas Slot-Henriksen skrev:

> strValue_2 = Mid(strValue_1, iPosition1,
> (iPosition2-iPosition1)+1)

Debug - hvad bliver strValue2 her? Hvad er strValue_1, iPosition1
og iPosition2 her?

NB: Bruger du option explicit? Hvis ikke, risikerer du at hele
koden fejler fordi du har skrevet et variabelnavn forkert.

Se evt. mere om Option Explicit her:
   <http://asp-faq.dk/article/?id=9>


> strValue_2 = replace(strValue_2,
> "http/NewDomain.dk", "http://NewDomain.dk")

Jeg har ikke set hele din kode igennem - men hvorfor har du brug
for at søge på http/NewDomain.dk?


> Selv om Instr ikke returnerer true/false, fungerer det nu fint
> med...: If Not instr(str, "https://secure.MySecureTest.dk/") =
> False

Ak ja - vbScript er meget eftergivende mht. datatyper...


NB: Læs gerne min signatur.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

Jens Gyldenkærne Clausen skrev:

> NB: Bruger du option explicit? Hvis ikke, risikerer du at hele
> koden fejler fordi du har skrevet et variabelnavn forkert.

....Bingo - hvorfor tænkte jeg ikke på det. Jeg plejer altid at bruge "option
explicit" - men det var misset i den er stump kode.
Tak for "reminderen"


> NB: Læs gerne min signatur.
....Er hermed taget til "efterretning"


Tak for hjælpen.


mvh.
Andreas