Fjernelse af en del af et tekststreng

Ja du kan bruge functionerne som Left, Mid, Right samt Trim:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctleft.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctltrim.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctright.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctltrim.asp

Men hvis du har en komma liste kan du overveje split som kan dele en streng i et array og så dele ved ,

vare = "vare1, vare23, vare28"

vareArr = Split(vare, ",")

fjern = "vare23"

for inx1 = 0 to UBound(vareArr)
  dublet = false
  if Trim(vareArr(inx1)) = Trim(fjern) then
    dublet = true
  end if
  if not dublet then
    nyVareList = nyVareList & vareArr(inx1)
    if inx1 < UBound(vareArr) then
      nyVareList = nyVareList & ","
    end if
  end if
next
vare = nyVareList

Response.Write vare

det skal så lige være:

vare = "vare1, vare23, vare28"

vareArr = Split(vare, ",")

fjern = "vare23"

nyVareList = ""
for inx1 = 0 to UBound(vareArr)
  dublet = false
  if Trim(vareArr(inx1)) = Trim(fjern) then
    dublet = true
  end if
  if not dublet then
    nyVareList = nyVareList & vareArr(inx1)
    if inx1 < UBound(vareArr) then
      nyVareList = nyVareList & ","
    end if
  end if
next
if nyVareList <> "" then vare = nyVareList

Response.Write vare

eagleeye>

synes ikke rigtig jeg kan få det til at hænge sammen.
det jeg ønsker at kunne sige:
remove strNavn From strText

således den fx fjerner "vare1," fra "vare1,vare23,vare28"

måske du kan komme med et eks?

arh, jeg kigger lige på det!

Det virker sgu!
bortset fra, at den ikke fjerner komma som står til venstre for varen, hvis ikke det er den første vare i linien. er det noget du umiddelbart kender løsningen på ?

men det er sgu' ok
du får pointsene
jeg finder selv ud af det sidste
tak for hjælpen

Den får lige det sidste komma med. Prøv med dette:

vare = "vare1, vare23, vare28"

vareArr = Split(vare, ",")

fjern = "vare28"

nyVareList = ""
for inx1 = 0 to UBound(vareArr)
  dublet = false
  if Trim(vareArr(inx1)) = Trim(fjern) then
    dublet = true
  end if
  if not dublet then
    nyVareList = nyVareList & vareArr(inx1)
    if inx1 < UBound(vareArr) then
      nyVareList = nyVareList & ","
    end if
  end if
next
if Right(nyVareList,1) = "," then  nyVareList = Left(nyVareList,len(nyVareList)-1)
if nyVareList <> "" then vare = nyVareList

Response.Write vare

det virker.
takker