Underc0de - Hacking y seguridad informática

Programación General => Visual Basic => Códigos Fuentes => Mensaje iniciado por: ANTRAX en Julio 26, 2010, 12:38:04 pm

Título: Cómo ajustar la cadena introducida a formato numérico: "#,##"
Publicado por: ANTRAX en Julio 26, 2010, 12:38:04 pm
Código: Visual Basic
  1. Private Sub Command1_Click()
  2. 'Para convertir a formato "#,##"
  3. 'Primero: Valida si han introducido "." en lugar de ","
  4. 'Segundo: Verifica la posición de ","
  5. 'Si han introducido más de tres decimales no lo acepta
  6. VCadena1 = Text1.Text
  7. Cero = "0"
  8. VBúsqueda = ","
  9. 'Reemplazo "." por ","
  10. VReemplazo1 = Replace(VCadena1, ".", ",")
  11. Text1.Text = VReemplazo1
  12. VCadena1 = VReemplazo1
  13. 'Si la "," está en primer caracter a la izquierda,
  14. 'que faltan dos ceros
  15. If Right(VCadena1, 1) = "," Then
  16. VReemplazo2 = VCadena1 + Cero + Cero
  17. Text1.Text = VReemplazo2
  18. Else
  19. 'Si la "," está en segundo caracter a la izquierda,
  20. 'que falta un cero
  21. If Left(Right(VCadena1, 2), 1) = "," Then
  22. VReemplazo2 = VCadena1 + Cero
  23. Text1.Text = VReemplazo2
  24. Else
  25. 'Si la "," está en tercer caracter a la izquierda
  26. If Left(Right(VCadena1, 3), 1) = "," Then
  27. VReemplazo2 = VCadena1
  28. Text1.Text = VReemplazo2
  29. Else
  30. 'Si la "," está después del tercer caracter a la izquierda
  31. MsgBox "De eso nada... ponlo bien", vbOKOnly
  32. Text1.Text = ""
  33. End If
  34. End If
  35. End If
  36. End Sub