Retirar Conteudo de uma Variavel

[Julia]

Boa Tarde, eu sou a julia e sou estudante de uma turma de programação.

A minha duvida é a seguinte:

Eu tenho uma variavel com este valor:"1&Euro=1,2768" e o valor vai mudando todos os dias. Já sei como metelo a actualizar porq tive aqui a ver uns posts.

Agora é o seguinte, eu preciso de fazer um conversor, logo vou precisar de ficar apenas com o valor 1,2768 numa variavel para poder fazer a conta.

Alguem me pode ajudar?

[Hellblazer]

Estou no bloco de notas mas tenta:

Dim intTemp as Integer

dim valEuro as Double

intTemp = variavelQueTens.IndexOf("&Euro=")

valEuro = cdbl(variavelQueTens.Substring(intTemp + 5))

[Julia]

cdbl é o que?

[Hellblazer]

Converte para double um objecto 🙂

Uma alteraçao no codigo que dei:

Dim intTemp as Integer

dim valEuro as Double

intTemp = variavelQueTens.IndexOf("&Euro=")

valEuro = cdbl(variavelQueTens.Substring(intTemp + 6))

[Julia]

"A conversão da cadeia "ro; = 1.2786 " para o tipo 'Double' não é válida."

Deve ter valores a mais né?

[Hellblazer]

Dim intTemp as Integer

dim valEuro as Double

intTemp = variavelQueTens.IndexOf("=")

valEuro = cdbl(variavelQueTens.Substring(intTemp + 1))

[Julia]

Eu tinha feito em vez de ter mudado o indexOf aumenti o nr... meti +12. Deu, mas o . vai-se embora... preciso do ponto! devo de ter que converter pa Long nao double. Digo eu!

[jpaulino]

Só uma sugestão para ser mais à .NET e não utilizando as funções antigas, substituis o CDbl() por Double.Parse()

[Julia]

eu preciso de ficar com o . :S  ?

[jpaulino]

eu preciso de ficar com o . :S  ?

Então não é uma valor ? Só tens de alterar o formato de visualização utilizando FormatCurrency()

[Julia]

Preciso, prq depois vou precisar desse valor!

[Julia]

para fazer uma conta! por exemplo 1*valor da var (1.2768)

[Hellblazer]

Isto testei com o exemplo que deste e funcionou:

Dim strTexto As String

        Dim dblValue As Double

        strTexto = "1&Euro=1,2768"

        strTexto = strTexto.Substring(strTexto.IndexOf("=") + 1)

        dblValue = Double.Parse(strTexto)

Agora retiras e o strTexto ne 🙂

[Julia]

tão, mas ai já tou a dizer que strTexto vai ser igual 1&Euro=1,2768 e nao pode... tenho de ir tira-lo no texto, prq tá sempre a actualizar!

[Julia]

 
      Dim strTaxaEuro As String
        Dim intTemp As Integer
        Dim regex As New Regex("\s{2,}")
        var_semTAGS = regex.Replace(var_semTAGS.Trim(), " ")
        intTemp = var_semTAGS.IndexOf("1 €")
        strTaxaEuro = var_semTAGS.Substring(intTemp)
        strTaxaEuro = strTaxaEuro.Substring(0, strTaxaEuro.IndexOf("USD"))


        Dim dblvalue As Double
        Dim strTexto As String
        strTexto = strTaxaEuro
        strTexto = strTexto.Substring(strTexto.IndexOf("=") + 1)
        dblvalue = Double.Parse(strTexto)

        TextBox2.Text = dblvalue


    End Sub
End Class

Nao me devolve o valor com a , ou o . wtv!

[Julia]

Resolvido, tinha de fazer replace do . pela ,!

        Dim strTexto As String
        Dim dblvalue As Double
        strTexto = strTaxaEuro
        strTexto = strTexto.Substring(strTexto.IndexOf("=") + 1)
        strTexto = strTexto.Replace(".", ",")
        dblvalue = Double.Parse(strTexto)
        TextBox2.Text = dblvalue

[Hellblazer]

lol eu tinha deixado a nota a dizer que o strTexto teria de ser retirado para por a variavel com o valor 🙂