Fjerne fra streng

køre replace 3 gange?

replace(NewFileName,"1","")
replace(NewFileName,"6","")
replace(NewFileName,"10","")

Det må være noget med:

arrNum = split(strTalDerSkalFjernes, ",")
for idx = 0 to ubound(arrnum)
  replace(strTalFraDatabasen & ",", arrNum(idx) & ",", "")
next

Opdeler alle tal der skal fjernes i et array og gennemløber dem mens den fjerner dem fra strengen fra databasen...

Det sidste komma efter strTalFraDatabasen og arrNum(idx) er for at det sidste tal også vil blive fjernet hvis det matcher.

ligger et svar hvis det kunne bruges.. (eftersom man ikke modtager mails fra eksperten.. just in case)

Microsoft VBScript compilation error '800a0414'

Cannot use parentheses when calling a Sub

/user_add.asp, line 166

replace(rs("Users") & ",", arrNum(idx) & ",", "")

dem tekst

tekst = 1,3,6,10,14,15,17

tekst = replace(tekst,"1","")
tekst = replace(tekst,"6","")
tekst = replace(tekst,"10","")

kan du ikke gøre noget lignende det?

Function RemoveNumber(numbers, str)
    Dim re

    numbers = Replace(fjern, ",", "|")
    str = "," & str

    Set re = New RegExp
    re.Global = True
    're.Pattern = "(^|,)(" & numbers & ")(?=,|$)"
    re.Pattern = ",(" & numbers & ")(?=,|$)"
    str = re.Replace(str, "")

    RemoveNumber = Mid(str, 2)
End Function

str = "1,3,6,10,14,15,17"
fjern = "1,6,10"

Response.Write RemoveNumber(fjern, str)

--
kalp, hvad sker der med 1-tallerne i 10,11,12 etc..?

Tilrettet version :)

Function RemoveNumber(numbers, str)
    Dim re

    numbers = Replace(numbers, ",", "|")
    str = "," & str

    Set re = New RegExp
    re.Global = True
    re.Pattern = ",(" & numbers & ")(?=,|$)"
    str = re.Replace(str, "")

    RemoveNumber = Mid(str, 2)
End Function

Kalp, nej det er dynamisk output hver gang...

Ksoren kigger lige på det

skal bare have kommaet med ;o)
--
tekst = 1,3,6,10,14,15,17

tekst = replace(tekst,"1,","")
tekst = replace(tekst,"6,","")
tekst = replace(tekst,"10,","")

Det virker altså ikke helt....

busschou, er du sikker på den? :o

strSQL = "Select * From [Group] where Id = " & Request.Form("GroupUsersId") & " AND companyId = '" & session.Contents("company.id") & "'"
        set rs = conn.execute(strSQL)
        cleanStr = rs("Users")
       
            Function RemoveNumber(numbers, str)
                Dim re
                numbers = Replace(numbers, ",", "|")
                str = "," & str
           
                Set re = New RegExp
                re.Global = True
                re.Pattern = ",(" & numbers & ")(?=,|$)"
                str = re.Replace(str, "")
           
                RemoveNumber = Mid(str, 2)
               
                'response.Write(RemoveNumber)
            End Function
           
            str = cleanStr
            fjern = Request.Form("RemoveGroupSelectBox")
           
            Response.Write RemoveNumber(fjern, str)


JEg bliver nød til at tilføje at db strengen kan se sådan ud: ,1,4,6,7,8 eller 1,4,6,7,

Så blev der ro ,-)

Nu har jeg rettet mit script til så jeg er sikret at ouptut på mine strenge er 1,3,5,6 etc... så der ikke er et komma for meget osv...

cleanStr = rs("USers")
        fjern = trim(Request.Form("UserGroup"))
        fjern = replace(fjern," ","")
       
            arrNum = split(fjern, ",")
                for idx = 0 to ubound(arrnum)
                  cleanStr = replace(cleanStr,arrNum(idx) & ",","")
                next
            response.Write(cleanStr)

Det virker engentlig fint nok... den fjerne bare ikke lige den sidste...

SoftSpot, nu har jeg fået dit til at virke... problemet er bare at lad os antage jeg fjerne 5 ud af 10, så får jeg efter den sidste 5 kommaer!! hvordan undgår jeg dette??

                cleanStr = rs("USers")
        cleanStr = trim(cleanStr)
        cleanStr = replace(cleanStr," ","")
        fjern = trim(Request.Form("UserGroup"))
        fjern = replace(fjern," ","")
        response.Write("fjern:" & fjern & " : streng " & cleanStr)
       
       
            arrNum = split(fjern, ",")
                for idx = 0 to ubound(arrnum)
               
                  cleanStr = replace(cleanStr & ",", arrNum(idx) & ",", "")
                 
                next
           
            if len(cleanStr) = 1 then
                response.Write("streng er helt tom")
            else
                response.Write("Disse er tilbage," & cleanStr)
            end if

ksoren >> min kommentar var til din kommentar om at kalps ville fjerne 1 tal i 11 og 12 mm
Hvis man har en streng "1,2,12,11" og beder den replace "1" med "" så får man ",2,2,"
Hvis man i stedet beder replace "1," med "" så får man "2,12,11"
Så angående din kommentar 16/06-2005 13:25:44 så er jeg sikker ja ;o)

Hvis jeg skulle gøre det ville jeg gøre det slavisk og kedeligt, men overskuelig
---
<%
tekst = "10,4,2,6,2,1,6"
fjern = "4,5,2,3,6,3"
tekstArr = split(tekst,",")
fjernArr = split(fjern,",")
for i=0 to ubound(tekstArr)
  for j=0 to ubound(fjernArr)
    if tekstArr(i) = fjernArr(j) then
      exit for
    elseif j=ubound(fjernArr) then
      if i=0 then
        nyTekst = tekstArr(i)
      else
        nyTekst = nyTekst & "," & tekstArr(i)
      end if
    end if
  next
next
response.write nyTekst
%>
---
og det virker...hver gang :o)

ok hver og hver gang... kræver man tester på det rigtige...lol...sådan her..så er der de kommaer der skal være
---
<%
tekst = "1,3,6,10,14,15,17"
fjern = "1,6,10"
tekstArr = split(tekst,",")
fjernArr = split(fjern,",")
for i=0 to ubound(tekstArr)
  for j=0 to ubound(fjernArr)
    if tekstArr(i) = fjernArr(j) then
      exit for
    elseif j=ubound(fjernArr) then
      if nyTekst = "" then
        nyTekst = tekstArr(i)
      else
        nyTekst = nyTekst & "," & tekstArr(i)
      end if
    end if
  next
next
response.write nyTekst
%>

den tager jo så samtidig højde for om der er flere dubletter i såvel det ene array som det andet, samt at rækkefølgen er underordnet
Ulempen er køretiden som jo ses at være pæn høj dersom der kommer flere og flere elementer i ens streng, da den sammenligner på alt

busskov jeg tester lige.. ;)

det virker ikke da... den skriver bare hele strengen ud ;-)

´Min fejl det virker perfekt ;)

:o)

så ved jeg ikke hvem der fortjener points ;o)

hehe jeg fordeler lidt i mellem jer...

Jeg er klar over at du er nået i mål, men jeg har lige lavet en udgave (som jeg også selv har testet :)), der burde efterlade en pæn streng. Den ser således ud:

function RemoveNumbers(strNumbers, strToBeRemoved)
  dim strRemoved
  strRemoved = strNumbers & ","

  arrNum = split(strToBeRemoved, ",")
       
  for idx = 0 to ubound(arrNum)
    strRemoved = Replace(strRemoved, arrNum(idx) & ",", "")
  next
       
  RemoveNumbers = left(strRemoved, len(strRemoved) - 1)
end function

Response.Write RemoveNumbers("1,2,3,4,5,6,7,8,9,10", "3,4,7,9")