Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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é!
\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 Subou 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 Subagora, 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
ta... e como eu consigo transformar um numero assim:55274-642-7769785-23662em somente numero puro .... Integer????