function rep(byVal strHTML)
Set objRegExp = New regexp
objRegExp.Global = True
objRegExp.IgnoreCase = true
objRegExp.Pattern = "\d\s"
rep = objRegExp.Replace(strHTML, "<br>")
Set objRegExp = Nothing
End function
Response.Write rep(strHTML)
Frågan#1
Denna kod hämtar och listar alla kategorier som finns tillgängliga:
strUrl = "http://www.templatemonster.com/webapi/categories.php?locale=en"
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", strUrl, False
objHTTP.SetRequestHeader "Content-type","text/html"
objHTTP.Send
strHTML = objHTTP.ResponseText
Set objHTTP = Nothing
Response.Write strHTML
Och presenterar dessa i formatet:
1 Beauty 2 Business 3 Computers 4 Real Estate
Jag vill ta bort siffrorna och mellanrummen och visa varje ny kategori på en ny rad. Hur?