string a = "aaa bbb ccc ddd";
string[] vetor = a.Split(' ');
vetor[0] == "aaa";
vetor[1] == "bbb";
vetor[2] == "ccc";
Obrigado
[]'s
string a = "aaa bbb ccc ddd";
string[] vetor = a.Split(' ');
vetor[0] == "aaa";
vetor[1] == "bbb";
vetor[2] == "ccc";
CREATE OR REPLACE PACKAGE PACK_FUNCOES IS
TYPE T_VET_RETORNO IS TABLE OF VARCHAR2(1000) INDEX BY BINARY_INTEGER;
PROCEDURE MONTA_VETOR(V_CD_CARACTER IN VARCHAR2,
V_DS_STRING IN VARCHAR2,
VET_RETORNO OUT PACK_FUNCOES.T_VET_RETORNO);
END;
CREATE OR REPLACE PACKAGE BODY PACK_FUNCOES IS
PROCEDURE MONTA_VETOR(V_CD_CARACTER IN VARCHAR2,
V_DS_STRING IN VARCHAR2,
VET_RETORNO OUT PACK_FUNCOES.T_VET_RETORNO) IS
V_DS_RESTO VARCHAR2(32000);
V_COUNT NUMBER;
BEGIN
V_DS_RESTO := V_DS_STRING;
V_COUNT := 0;
VET_RETORNO.DELETE;
WHILE V_DS_RESTO IS NOT NULL LOOP
V_COUNT := V_COUNT + 1;
IF INSTR(V_DS_RESTO,V_CD_CARACTER) > 0 THEN
VET_RETORNO(V_COUNT) := SUBSTR(V_DS_RESTO,1,(INSTR(V_DS_RESTO,V_CD_CARACTER)-1));
V_DS_RESTO := SUBSTR(V_DS_RESTO,(INSTR(V_DS_RESTO,V_CD_CARACTER)+1));
ELSE
VET_RETORNO(V_COUNT) := V_DS_RESTO;
EXIT;
END IF;
END LOOP;
END;
END;
DECLARE
VETOR PACK_FUNCOES.T_VET_RETORNO;
BEGIN
PACK_FUNCOES.MONTA_VETOR(' ','THIAGO BOURSCHEIDT ANALISTA DE SISTEMAS',VETOR);
FOR I IN 1..VETOR.COUNT LOOP
DBMS_OUTPUT.put_line('linha '||I||' :'||VETOR(I));
END LOOP;
END;
linha 1 :THIAGO
linha 2 :BOURSCHEIDT
linha 3 :ANALISTA
linha 4 :DE
linha 5 :SISTEMAS
Usuários navegando neste fórum: Bing [Bot] e 8 visitantes