Hoppas någon förstår vad jag försöker förklara.
Förklara gärna om jag tänker helt uppåt väggarna.
En liten fråga om scriptet, Går det att binda ihop start
\|
med tillhörande stängning \ på något sätt??
\ och \ funkar så klart då de är unika men annars?
Skickar med koden här under:
```
<%
function BinToText(varBinData, intDataSizeInBytes)
const adFldLong = 128
const adVarChar = 200
set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
objRS.Open
objRS.AddNew
objRS.Fields("txt").AppendChunk(varBinData)
tmp = objRS("txt").Value
objRS.Close
BinToText = tmp
end function
%>
<%Function getNews(n)
sFind = " | "
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "url", False
objHTTP.Send
Set objRegExp = New regexp
objRegExp.Global = True
objRegExp.IgnoreCase = True
str = BinToText(objHTTP.responseBody,35000)
Set objHTTP = Nothing
objRegExp.Pattern = "")
for i = 0 to Ubound(a)
if i = n then
exit for
end if
myStr=myStr+a(i)+"
"
next
getNews = myStr
End Function%>
<%=getNews(100)%>
```
Permalänk: https://www.webforum.nu/p/1385754
## #6 — SannyW, 2004-07-14T09:22Z
Säg att man har en länk typ:
Kan man då leta upp
objRegExp.Pattern = "http://"
och ta bort nästföljande/ersätta nästföljande 15 tecken?
Permalänk: https://www.webforum.nu/p/1385897
## #7 — SannyW, 2004-07-14T10:30Z
Löste mitt problem genom att:
Lägga till .{antal tecken}{antal tecken}
egentligen förstår jag nog inte riktigt vad jag själv har gjort, men det fungerar så långt. Tror att jag tar bort antal tecken före och efter.
objRegExp.Pattern = ".{19}{17}"
Nu uppkom ett nytt problem att man kan skriva
\
För då blir väl replace:
\ |