Funktion som plockar ut tal

function GetNumericalPart(str)
  dim re, result
  set re = new regexp
  re.pattern = "\[(\d+)[^\]]*\]"
  if re.test(str) then
    set m = re.execute(str)
    result = m(0).submatches(0)
  else
    result = ""
  end if
  GetNumericalPart = result
end function

Perfa! (y)

Mvh
Henrik

Hur skulle man kunna modifiera den funktionen, att bara ta det som står innanför hakparanteserna?

Dvs

Ev lite text[text som skall lyftas ut]ev lite text till

skall returnera:

text som skall lyftas ut

Mvh
Henrik

function GetBracketedPart(str)
  dim re, result
  set re = new regexp
  re.pattern = "\[([^\]]+)\]"
  if re.test(str) then
    set m = re.execute(str)
    result = m(0).submatches(0)
  else
    result = ""
  end if
  GetBracketedPart = result
end function