Fjerne ting fra en variabel

du kan sikkert bruge denne funktion til noget ;-)

Function sliceIt(str,strStart,strSlut)
  Dim strT
  strT = str
  strT = Mid(strT, InStr(LCase(strT), "" & LCase(strStart)))
  strT = Mid(strT, InStr(LCase(strT), "") + 0)
  strT = Left(strT, InStrRev(LCase(strT), "" & LCase(strSlut)) -1 )
  sliceIt= strT
End Function

denDelDuSkalBruge = sliceIt("her står alt det der ikke skal med <TEXTAREA id=embedhtml onclick=this.select() name=embedhtml rows=5 cols=22> HER ER TEKSTEN </TEXTAREA> og her er noget mere der ikke skal med", "<TEXTAREA ","</TEXTAREA>")


jeg garanterer ikke for at det virker, men kan du ikke se det som et hint, og så selv lige prøve dig frem med resten?

Prøv sådan her:

str = "afasdf<TEXTAREA id=embedhtml onclick=this.select() name=embedhtml rows=5 cols=22> HER ER TEKSTEN </TEXTAREA>adfadf"
tmp = str
tmp = mid(tmp,instr(1,tmp,"<textarea",1)+1) 'Fjerner "blabla" før <TEXTAREA id=bla bla...>"
tmp = mid(tmp,instr(tmp,">")+1) 'Fjerner "<TEXTAREA id=bla bla...>"
str = mid(tmp,1,instr(1,tmp,"</textarea>",1)-1) 'Fjerner "</TEXTAREA>blabla"

response.write str


Et alternativ hvis du har mulighed for at bruge regular expression så kan dette bruges:

str = "blabla <TEXTAREA id=embedhtml onclick=this.select() name=embedhtml rows=5 cols=22> HER ER TEKSTEN </TEXTAREA>bla bla"

Set regEx = New RegExp
regEx.Global = true
regEx.IgnoreCase = true
regEx.Pattern = "<TEXTAREA.*>[\s\S]*</TEXTAREA>"
set rematches = regEx.Execute (str)
for each rematch in rematches
  tmp = rematch.value
  tmp = mid(tmp,instr(tmp,">")+1) 'Fjerner "<TEXTAREA id=bla bla...>"
  str = mid(tmp,1,instr(1,tmp,"</textarea>",1)-1) 'Fjerner "</TEXTAREA>"
next
set rematches = Nothing
Set regEx = Nothing

response.write str



Er der kun et textarea på siden?

Hey eageleeye lang tid siden :)

jeg har selv fået noget smækket sammen men det virker nu ikke helt efter hensigten.


Dim objXMLHTTP, objXml
Set objXml = Server.CreateObject("Microsoft.XMLHTTP")
objXml.Open "GET", GoogleForm, False
objXml.Send
strHtml = objXml.ResponseText
Set objXml = Nothing

Set regEx = New RegExp
regEx.global = true
regEx.Pattern = ".*videoUrl=(.*)allowScriptAccess.*"
strIso = regEx.Replace( strHtml, "$1" )
Set regEx = nothing

pos1 = instr(strIso,"<!DOCTYPE")
pos2 = instr(strIso,"</table>")
if pos1 > 0 and pos2 > 0 then
    str = left(strIso,pos1 - 1) & right(strIso,len(strIso) - pos2 - 8)
Else
    str = ""
end if



den skal hente en streng FRA: videoUrl= TIL: allowScriptAccess

Men der er stadig en del html der ikke bliver fjernet

Ok er det nogen der vil svarer ? :)