Depois de ter consultado esta página e ter começado a rascunhar uma gambiarra, reparei que eu tinha no "baú" uma função pronta... E olhando acima reparo que o fundamento já foi dado aqui pelo @DanielOmine, lembrando que celular com DDD tem 11 dígitos e fixo 10 dígitios. PS: sem DDD são 9 e 8 respectivamente.
Foi mais ou menos no ano 2000 que os telefones brasileiros passaram a ter 8 dígitos, e entre 2010 e 2013 que todos os celulares passaram a ter 9 dígitos. Ver normas Anatel.
O algoritmo genérico de interpretação de uma suposta string de telefone expressa em texto livre se baseia na norma Anatel... Só é um pouco mais complicado porque precisa conferir contexto e saber diferenciar casos com e sem DDI e DDD.
A quem possa interessar... Algoritmo que "sanitiza" dados telefônicos digitados, escrita (em PL/SQL) e validada anos atrás... Atualizo se achar algo melhor mais tarde (deixando desde já em Wiki para você editar).
CREATE or replace FUNCTION lib.get_string_tel(text) RETURNS text AS $f$
SELECT regexp_replace(
$1
,'^.*?((\+?55[\s-]|\+\d\d[\s-])?\s*\(?\d\d\)?[\s\-\.]*\d[\.\s]?\d\d[\d\s\.\-]+).*?$'
,'\1'
)
$f$ LANGUAGE SQL IMMUTABLE;
CREATE or replace FUNCTION lib.telbr_split(
p_tel text -- a string contendo o telefone
,p_pode_ddi boolean DEFAULT true -- deixa preceder 55?
,p_ddd_default text DEFAULT '11' -- contexto Sampa
,p_max int DEFAULT 21 -- tamaho máximo da string para remover outros dígitos
) RETURNS text[] AS $f$
DECLARE
basenum text;
digits text;
len int;
ret text[];
BEGIN
basenum := trim(p_tel);
IF length(basenum)>p_max THEN
basenum := lib.get_string_tel(basenum);
END IF;
digits := lib.digits(basenum);
IF p_pode_ddi THEN
IF length(digits)>=14 THEN
basenum := regexp_replace(basenum,'^[^\d]*\d\d','');
digits := lib.digits(basenum);
ELSEIF length(digits)>=12 AND substr(digits,1,2)='55' THEN
basenum := regexp_replace(basenum,'^[^\d]*55','');
digits := lib.digits(basenum);
END IF;
END IF;
digits := regexp_replace(digits,'^0+','');
len := length(digits);
IF len<=9 THEN
digits := p_ddd_default||digits;
END IF;
RETURN array[substr(digits,1,2), substr(digits,3)];
END
$f$ LANGUAGE PLpgSQL IMMUTABLE;
A primeira função faz extração da string contendo aparentemente um número de telefone no meio de texto livre.
Por exemplo outro dia cadastraram Iphone 6s plus (11) 9 1234-5678
como número de telefone um daqueles formulários do Google.
A segunda é que de fato normaliza e explode o número duas partes, DDD e número.
A linguagem PL/SQL (bases PostgreSQL ou Oracle) é quase um Pascal, bem facil de converter para PHP, Javascript, etc. Só ter paciência.