Små Funktioner

Simpelt svar til 1:
$str = "ijijij#ijiij#ijiij#ijijij#";
$tegn = '#';
echo "antal $tegn: " . (sizeof(explode($tegn, $str))-1);

Hvad skal du vide omkring 3 - hvad mangler du?

Sorry... jeg har svaret på PHP'sk - kan nemt laves om til ASP:

str = "ijijij#ijiij#ijiij#ijijij#";
tegn = "#";
response.write "antal " & $tegn & ": " & (UBound(Split($tegn, $str))-1);

- IKKE TESTET

2: jeg har denne function som kan konverete til links bare http ftp og email adresser:

Du kan kalde den på denne måde:
strText = ....En lang streng.....
Response.write LinkString (strText)



Function LinkString(strInput)
Set objRegExpHTTP1 = New RegExp
Set objRegExpHTTP2 = New RegExp
Set objRegExpEMail = New RegExp

objRegExpHTTP1.Pattern = "(http|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)"
objRegExpHTTP2.Pattern = "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,3}[\w\S]*)"
objRegExpEMail.Pattern = "([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,3}\S*)"

objRegExpHTTP1.Global = True
objRegExpHTTP2.Global = True
objRegExpEMail.Global = True

objRegExpHTTP1.IgnoreCase = True
objRegExpHTTP2.IgnoreCase = True
objRegExpEMail.IgnoreCase = True

strOutput = objRegExpEMail.Replace(strInput, " <a href='mailto:$1'>$1</a> ")
strOutput = objRegExpHTTP1.Replace(strOutput, " <a href='$1$2' target='_blank'>$1$2</a> ")
strOutput = objRegExpHTTP2.Replace(strOutput, " $1<a href='http://$2' target='_blank'>$2</a> ")

objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])('>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(' target=)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(</a>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2$1")

Set objRegExpHTTP2 = Nothing
set objRegExpHTTP1 = Nothing
Set objRegExpEMail = Nothing

LinkString = strOutput
End Function

2: igen... www.netcoders.dk afholdte en konkurence hvor man skulle lave en function som laved links til klikbare link.
Her er vinder scriptet:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=859&tech_id=1
Og her er alle de functioner som deltog:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=860&tech_id=1

Jeg bruger selv den jeg har vist i mit svar.

sone >>>

Kommentar: sone
03/09-2002 12:43:26

svar: alt... ;o)

eagleeye >>> lyder meget spændende... men det kan godt være jeg lige kommer med nogle SPM til den du har givet her, hvis jeg bruger den... bare for at finde ud af hvad det er man gør...

sone >>> Der er stadig meget PHP i... godt jeg kan se hvad din ide går ud på...

og så lige en hvor man kan definer hvilke tegn der er tiladte,, fx

a-å og A-Å og 0-9

50p+

og meget gerne ved bare at skrive tegnene... fx

abcdefghijklmnopqrstuvxyzæøåABCDEFG OSV... så det også kan benyttes således:

:;,.-_^¨~'*!"#¤%&/()=?`´| osv...

Til den sidste, enten laver man en streng med de karakter man tillader eller laver man en streng med de karakter man ikke tillader.


'function som tjekker efter ulovlige karakter
function validStr(strInput)
  inValidChar = "!""#¤%&/()=?´`@£${[]}|~^*'"

  for i = 1 to len(inValidChar)
    if inStr(1, strInput, Mid(inValidChar,i,1)) > 0 then
      validStr = false
      exit function
    end if
  next
  validStr = true
end function

Her er den modsatte hvor man tjekke om alle char i en streng er lovlige:


'function som tjekker efter lovlige karakter
function validStr(strInput)
  validChar = "abcdefghijlkmnopqrstæøå01234567890 "

  for i = 1 to len(strInput)
    if inStr(1, validChar, Mid(strInput,i,1)) = 0 then
      validStr = false
      exit function
    end if
  next
  validStr = true
end function

eagleeye >>> kan jo bruge dig til det hele... ;o)

jeg vil stadig gerne høre noget om HTTPS://

Har du prøvet at søge på www.google.com det er ikke noget jeg har kigget på så jeg har ikke lige nogle link på hånden jeg har dog fundet dette:

http://caucuscare.com/TLIB/FAQ/https.html
http://www.infosys.com/knowledge_capital/thought-papers/usingHTTPwith_java.pdf
http://webservices.web.cern.ch/webservices/docs/Advanced/https/
http://www.coastline.com/support/faqs/SSL.asp

så bliver det ikke til mere i denne omgang

15 p til sone for at svare på nr 1, trods at det var blandet PHP og ASP
120 p til eagle eye, for at komme med svar tin nr 2 og 4 (nr. 4 kom senere)
15 p retur til mig, da det ikke rigtigt var noget om SSL, man direkte selv havde kenskab til