RETIRAR NUMERO DE TEXTO
Bom dia recentemente postei um topico para retirar numeros de texto.Recebi a resposta e estou usando , mas agora surgiu uma outra situação q n da para usar a mesma rotina.
Tenho o seguite texto:
7. RETENTOR 100,00X120,00X12,00MM NIT R2 RETENTOR TIPO: ABERTO CONSTRUCAO: CHAPA TOTALMENTE REVESTIDA DIAMETRO EIXO: 100,00MM DIAMETRO EXTERNO: 120,00MM ALTURA: 12,00MM MATERIAL: NITRILICA DUREZA: 70 SHORE A VEDACAO PRINCIPAL: UMA MOLA VEDACAO SECUNDARIA: COM VEDACAO ANTI POEIRA INSPECAO: SOMENTE SERA ACEITO APOS INSPECAO NO RECEBIMENTO. 6,000 --- % --- 0.00.04.01733 Campos adicionais: Centro: CIU1 Cidade: Uberaba Estado: MG
Preciso retirar apenas o numero 6,000
Existe um padrao , o numero sempre vai estar depois da palavra RECEBIMENTO e esta sempre no formato "0,000", "00,000","000,000"
Comofaço isso?
Tenho o seguite texto:
7. RETENTOR 100,00X120,00X12,00MM NIT R2 RETENTOR TIPO: ABERTO CONSTRUCAO: CHAPA TOTALMENTE REVESTIDA DIAMETRO EIXO: 100,00MM DIAMETRO EXTERNO: 120,00MM ALTURA: 12,00MM MATERIAL: NITRILICA DUREZA: 70 SHORE A VEDACAO PRINCIPAL: UMA MOLA VEDACAO SECUNDARIA: COM VEDACAO ANTI POEIRA INSPECAO: SOMENTE SERA ACEITO APOS INSPECAO NO RECEBIMENTO. 6,000 --- % --- 0.00.04.01733 Campos adicionais: Centro: CIU1 Cidade: Uberaba Estado: MG
Preciso retirar apenas o numero 6,000
Existe um padrao , o numero sempre vai estar depois da palavra RECEBIMENTO e esta sempre no formato "0,000", "00,000","000,000"
Comofaço isso?
isto esta no banco de dados???qual banco de dados????
SIM ESTA ACCESS EM UM CAMPO MEMORANDO
SE O CAMPO NAO VARIAR O TAMANHO...OU SEJA SEMPRE COM A FRASE QUE VOCE POSTOU...
VOCE PODE ABRIR O CAMPO NO RECORDSET
E RETIRAR O QUE VOCE QUER COM O MID
OU NA INSTRUSAO SQL USAR O COMANDO SUBSTRING
VOCE PODE ABRIR O CAMPO NO RECORDSET
E RETIRAR O QUE VOCE QUER COM O MID
OU NA INSTRUSAO SQL USAR O COMANDO SUBSTRING
Dim k As String, v As Variant, s As String
k = "7. RETENTOR 100,00X120,00X12,00MM NIT R2 RETENTOR TIPO: ABERTO CONSTRUCAO: CHAPA TOTALMENTE REVESTIDA DIAMETRO EIXO: 100,00MM DIAMETRO EXTERNO: 120,00MM ALTURA: 12,00MM MATERIAL: NITRILICA DUREZA: 70 SHORE A VEDACAO PRINCIPAL: UMA MOLA VEDACAO SECUNDARIA: COM VEDACAO ANTI POEIRA INSPECAO: SOMENTE SERA ACEITO APOS INSPECAO NO RECEBIMENTO. 6,000 --- % --- 0.00.04.01733 Campos adicionais: Centro: CIU1 Cidade: Uberaba Estado: MG"
v = Split(k, "RECEBIMENTO. ") 'localiza o string recebimento.
s = v(UBound(v)) 'move para o s tudo que estivar na frente da string recebimento.
v = Split(s, " ", 2) 'localiza o primeiro espaço depois da string recebimento
s = v(LBound(v)) 'boda no s tudo que estiver anterior a esse espaço.
MsgBox s
esse códigozinho vai pegar o que estiver na frente de "RECEBIMENTO. " e o que estiver atras de um espaço depois do item anteriror. resumindo: "6,000"
espero ter ajudado ;)
k = "7. RETENTOR 100,00X120,00X12,00MM NIT R2 RETENTOR TIPO: ABERTO CONSTRUCAO: CHAPA TOTALMENTE REVESTIDA DIAMETRO EIXO: 100,00MM DIAMETRO EXTERNO: 120,00MM ALTURA: 12,00MM MATERIAL: NITRILICA DUREZA: 70 SHORE A VEDACAO PRINCIPAL: UMA MOLA VEDACAO SECUNDARIA: COM VEDACAO ANTI POEIRA INSPECAO: SOMENTE SERA ACEITO APOS INSPECAO NO RECEBIMENTO. 6,000 --- % --- 0.00.04.01733 Campos adicionais: Centro: CIU1 Cidade: Uberaba Estado: MG"
v = Split(k, "RECEBIMENTO. ") 'localiza o string recebimento.
s = v(UBound(v)) 'move para o s tudo que estivar na frente da string recebimento.
v = Split(s, " ", 2) 'localiza o primeiro espaço depois da string recebimento
s = v(LBound(v)) 'boda no s tudo que estiver anterior a esse espaço.
MsgBox s
esse códigozinho vai pegar o que estiver na frente de "RECEBIMENTO. " e o que estiver atras de um espaço depois do item anteriror. resumindo: "6,000"
espero ter ajudado ;)
Tópico encerrado , respostas não são mais permitidas