Split...

går den i ged hvis man gør det af to gange ??

led = split(str, "-")
led = split(led, "+")

-grunken

grunken:

Der opstod en Microsoft VBScript-kørselsfejl fejl '800a000d'
Typer stemmer ikke overens: 'led'
/andet/diff.asp, linje 51

Desværre ja :(

hmm - må man spørge om hvad du skal bruge det til ???

hvad med

split(split(str, "-"), "+")

sikkert det samme meen !

-grunken

Virker ikke i de tilfælde, hvor der kun er + eller - i strengen :( Ellers et udmærket forslag. Har dog selv fået den fixet nu - lidt besværligt, men godt nok indtil videre :)

if instr(2,l,"+") > 1 then
'only plus or plus/minus

  led = split(l,"+")
   
    for x = 0 to ubound(led)
    str = led(x)
    if instr(1,str,"-") > 1 then
        nyeled(x) = split(str,"-")
        else
          nyeled(x) = str
      end if
    next

else
'only minus

  led = split(l,"-")
   
    for x = 0 to ubound(led)
      str = led(x)
    nyeled(x) = str
  next
   
end if


Det skal bruges til et script, der kan differentiere en stedfunktion til en hastigheds- og accelerationsfunktion :)

Mvh
- en glad Martin, der synes han selv har fortjent pointene *G* Ska dog nok afgive point til den, der kommer først med et meget bedre forslag end mit eget :)

Jeg løste det på en lidt anden måde. Jeg skulle bruge eksemplet med datoer hvor man enten kan seperere med / eller -.
Men princippet er jo det samme :)
function formatAccesDate(instr)
dim thedate
    thedate=split(instr,"-")
    if ubound(thedate)=0 then
        thedate=split(instr,"/")
    end if
    outstr=thedate(1)&"-"&thedate(0)&"-"&thedate(2)
formatAccesDate=outstr
end function