Fórum Dúvida: PL/SQL - Fazer a leitura de um campo com quebra de linhas #563331

--Loop para pegar a lista de cores do produto
FOR C IN 1..70 LOOP
         
	SELECT REGEXP_SUBSTR(LISCONTEST || CHR(10), '(\\S*)(\\s)', 1, C), --SELECIONA A PALAVRA DE ACORDO COM A POSIÇÃO EX.: 1º PALAVRA
	LENGTH (REGEXP_SUBSTR(LISCONTEST || CHR(10), '(\\S*)(\\s)', 1, C)) --RETORNA A QUANTIDADE DE CARACTERES NA PALAVRA SELECIONADA ACIMA
	INTO P_SUPERFICIE, P_QTD
	FROM TGFPRO 
	WHERE CODPROD = R.CODPROD;
	--Obs.: Como a última cor não estava sendo inserida devido não ter quebra de linha, fiz essa contatenação acrescentand no final a quebra de linha.
					
	--Se palavra selecionada não for vazia
	IF P_SUPERFICIE IS NOT NULL THEN
					
		--Verifica se o último caractere é quebra de linha
		IF SUBSTR(P_SUPERFICIE, P_QTD,1) = chr(10)  THEN
								
			--Controle recebe ele mesmo + superficie
			P_CONTROLE := P_CONTROLE || P_SUPERFICIE; 
									
			--Busca o último registro na tabela    
			SELECT NVL(MAX(ID), 0) + 1 INTO P_ID FROM AD_TESTECUSTO;  
									
			--Inseri na tabela teste    
			INSERT INTO AD_TESTECUSTO
			(ID,
			CODPROD,
			CONTROLE,
			CUSTO)
			VALUES
			(P_ID,
			R.CODPROD,
			P_CONTROLE,
			5.75); 
									
			--Limpo o parametro controle        
			P_CONTROLE := NULL;              
							  
		ELSE
								   
			--controle recebe ele mesmo + superficie 
			P_CONTROLE := P_CONTROLE || P_SUPERFICIE;
													
		END IF;
						
	END IF;

END LOOP;