de linuxmanr4, 3 años han pasado desde su publicación, escrito en OpenOffice.org Basic.
Enlace corto
http://gw.gd/knVa
Insertar vínculo
  1. Function Only_Numbers(Text_From_Cell as string) as string
  2.    
  3.    Numbers_And_Signs = "0123456789"
  4.    n = len(Text_From_Cell)
  5.    Only_Numbers = ""
  6.  
  7.    For i = 1 to n
  8.       ActChar = Mid(Text_From_Cell,i,1)
  9.       if Instr(Numbers_And_Signs,ActChar)<>0 then Only_Numbers = Only_Numbers + ActChar
  10.    next i
  11.  
  12. end function