Capturar 6 ultimos digitos de uma linha

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Capturar 6 ultimos digitos de uma linha

Gabriel
não registrado

Postada em 06/01/2007 09:54 hs

olá. eu tenho um arquivo te texto com o produto e o preço desse produto... eu queria saber como capturo os 6 ultimos digitos de cada linha e enviar para a variavel valorProduto e depois adicionar esse valor multiplicado por 0.6 no fim da linha e passar par proxima linha até o fim do arquivo.

Muito obrigado

PH1959

SÃO JOSÉ DOS CAMPOS
SP - BRASIL

Postada em 06/01/2007 14:05 hs

1o- Leia o conteúdo da linha.

2o - cria uma variavel string q receberá o conteúdo da linha ex Linha$

depois...

n= len(linha$) ' pegou a qtde de caracteres...

'agora pegando o conteudo dos 6 ultimos caracteres

valor=0 i=n-5

valor=val(mid$(linha$,i,6))

kerplunk

SÃO PAULO
SP - BRASIL

Postada em 08/01/2007 08:44 hs

Dim conteudo as string
dim pedaco as string
Open "C:\pasta\arquivo.txt" for input as #1
do while not eof(1)
    Line input #1, Conteudo
    pedaco = right(conteudo,6)
    pedaco = cdbl(pedaco) * 0.6
    msgbox pedaco
loop

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2026 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site