ARQUIVO TXT IMPORTAR VALOR

SENAMA 05/05/2011 23:28:12
#373339
No arquivo TXT eu pego um valor e desejo transforma-lo em número com separador decimal.

Como fazer ?


Exemplo:

Dim dblVal_Op As Double


Na posição indicada abaixo na linha do arquivo TXT contém o valor 124843 eu fiz assim:

dblVal_Op = Trim(Mid(strLinha, 120, 15))

porém, ele retorna -> 124843.0 eu quero que fique 1248,43 como fazer e quando o valor for 750 fique como 750,00 ?
JONATHANSTECKER 06/05/2011 07:51:35
#373343
Citação:

Na posição indicada abaixo na linha do arquivo TXT contém o valor 124843 eu fiz assim:

dblVal_Op = Trim(Mid(strLinha, 120, 15))

porém, ele retorna -> 124843.0 eu quero que fique 1248,43


        [ô] Declaramos na variável valor um valor qualquer
        Dim Valor As String = [Ô]124843[Ô]
        [ô] Inserimos uma vírgura 2 casas de tràs para frente
        Valor = Valor.Insert(Valor.Length - 2, [Ô],[Ô])
        [ô] Exibe uma caixa de mensagem com o valor 1248,43
        MessageBox.Show(Valor)

Citação:

como fazer e quando o valor for 750 fique como 750,00 ? 


        [ô] Declaramos um número do tipo Double
        Dim Valor As Double = 750
        [ô] Formatamos com duas casas decimais
        Dim strValor As String = Valor.ToString([Ô]0.00[Ô])
        [ô] Exibe uma caixa de mensagem com o valor 750,0
        MessageBox.Show(strValor)
Tópico encerrado , respostas não são mais permitidas
Voltar