Pegar valor do RegEdit

[slype 1]

Iai galera beleza....

 

Queria copiar o valor de uma Chave do Registro do Windows XP:

 

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductId

 

 

No meu caso é o valor da chave é "55274-642-7769785-23662", keria pega esse valor e jogar uma variavel String (StrValor) por que tem os traçõs e em Integer não aceitaria.

 

Depois se alguem tiver uma rotina que eu consiga tirar somente os traços "-" desse valor para eu poder converter em Integer melhor ainda....

 

Valewwwwww galera, até!

[slype 1]

ta... e como eu consigo transformar um numero assim:55274-642-7769785-23662em somente numero puro .... Integer????

[cassitos 2]

\o/

integer num vai rolar vai dar overflow na certa, você pode fazer o seguinte:

passar o texto para uma variável String, e fazer um loop deste texto e manter somente os caracteres numéricos (usando o IsNumeric).

ex:

Private Sub Form_Load()  Dim S1	  As String  Dim S2	  As String  Dim Cont	As Integer  Dim Numero  As Double    S1 = "55274-642-7769785-23662"  For Cont = 1 To Len(S1)	If IsNumeric(Mid(S1, Cont, 1)) Then	  S2 = S2 & Mid(S1, Cont, 1)	End If  Next Cont  Numero = CDbl(S2)End Sub

ou se o separador for sempre o caracter -, use o Replace:

Private Sub Form_Load()  Dim S1	  As String  Dim Numero  As Double  S1 = "55274-642-7769785-23662"  Numero = CDbl(Replace(S1, "-", ""))End Sub

agora, como você quer passar p/ tipo numérico, observe que o valor pode ficar assim:

5,52746427769785E+19

bons testes! http://forum.imasters.com.br/public/style_emoticons/default/yay.gif