IMPORTACAO DE DADOS FACIL

XXXANGELSXXX 19/03/2010 18:02:38
#337452
Boa noite amigos, estou importando um arquivo texto aqui usando split, importo todos os dados que quero numa facilidade total, so surgiu uma questaozinha aqui agora se pudessem me ajudar, acharia legal, vejam bem, tenho no arquivo txt delimitado por ; ponto e virgula, na posiçao 10 do arquivo esta informado um numero de serial ele e composto por 8 digitos, so que quero pegar apenas os dois primeiros digitos para compor uma palavra, exemplo se o serial iniciar como 01 e para converter para o banco de dados a palavra SOFTWARE , se iniciar como 02 HARDWARE, se iniciar como 03 REDE e assim sucessivamente, fazer isso na mao é impossivel, pois o arquivo tem mais de 5000 mil linhas e todo mes importo ele, entao fica mais ou menos assim
SERIAL

03878745 ENTAO QUERO CONVERTER PARA O CAMPO NOMEPRODUTO COMO REDE
01878666 ENTAO QUERO CONVERTER PARA O CAMPO NOMEPRODUTO COMO SOFTWARE
02878787 ENTAO QUERO CONVERTER PARA O CAMPO NOMEPRODUTO COMO HARDWARE

Vou mandar a funçao que estou tentando fazer e nao esta dando certo..

If Len(Coluna(10)) = [Ô]01[Ô] Then
rs(4) = [Ô]SOFTWARE[Ô]
END IF
IF LEN(COLUNA(10))=[Ô]02[Ô] THEN
rs(4)=[Ô]HARDWARE[Ô]
END IF
JANDER 19/03/2010 18:09:47
#337453 Resposta escolhida


If left(colula(10),2)= [Ô]01[Ô] Then
rs(4) = [Ô]SOFTWARE[Ô]
elseIF left(colula(10),2)=[Ô]02[Ô] THEN
rs(4)=[Ô]HARDWARE[Ô]
END IF

ve se da certo.
XXXANGELSXXX 19/03/2010 18:22:59
#337457
Citação:

:


If left(colula(10),2)= [Ô]01[Ô] Then
rs(4) = [Ô]SOFTWARE[Ô]
elseIF left(colula(10),2)=[Ô]02[Ô] THEN
rs(4)=[Ô]HARDWARE[Ô]
END IF

ve se da certo.

Kra na mosca.. era isso mesmo.. nossa. usava uma funcao antigamente, persi to array.. nao lembrava do tal do left.. afff.. valeu amigo..
Tópico encerrado , respostas não são mais permitidas
Voltar