Visual Basic - extraer elementos de una cadena

Life is soft - evento anual de software empresarial
 
Vista:

extraer elementos de una cadena

Publicado por jose (2 intervenciones) el 18/10/2010 03:34:11
Hola,buenas.
Mi problema es sencillito pero no soy capaz de arreglarlo.
Tengo una textbox que me proporciona una contraseña.El caso es que queria coger esa contraseña y guardar cada caracter de ella en una variable,o en una matriz,para poder tratar cada
caracter de manera separada.
Una vez guardado en la matriz,convertir cada elemento en integer.
lo intente de 1000 maneras y nada que no soy capar,que si no controle Nullexception,que si no puedo convertir de char a integer,y no se cuantos fallos mas.
Si pudierais ponerme un codigo sencillo de como arreglar esto os estaria muy agradecido.
Un saludo a todos.
Por cierto,si ,soy muy nuevo en esto,jejeje
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:extraer elementos de una cadena

Publicado por Antoni Masana (79 intervenciones) el 18/10/2010 08:05:44
Primera sugerencia:

- Prodrias poner el trozo de codigo para que podamos decirte donde esta el fallo o sugerir mejoras.

Segunda sugerencia:

- Para extraer los caracteres de un textbox y ponerlos en una tabla

Dim Tabla(30) As String

For a=1 To Len(TextBox1.Caption)
Tabla(a) = MID$(TextBox1.Caption,a,1)
Next

- Lo mismo pero guardando como valor ASCII

Dim Tabla(30) As Integer

For a=1 To Len(TextBox1.Caption)
Tabla(a) = ASC( MID$(TextBox1.Caption,a,1) )
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:extraer elementos de una cadena

Publicado por jose (2 intervenciones) el 19/10/2010 08:15:05
Hola otra vez y perdona por tardar en responder, Antoni.
¡Muchas gracias!Al principio,no me salia,porque no me reconocía la palabra "caption", probe con "text",y ya está.Jejeje,es que se me olvidó decir que estaba en windows form,con el visual basic 2010 express,quizá sea por eso.

Te enseño una de las cosas que habia intentado,aunque solo sea como ejemplo de lo que NO hay que hacer.

dim varNumeroCaracteresContra As Integer
dim matrizContra() As String
dim matrizNumeroContra() As Integer

varNumeroCaracteresContra = txtContra1.Text.Length

For Vuelta = 0 To varNumeroCaracteresContra
matrizContra(Vuelta) = varContra1.Substring(Vuelta, 1)
Next Vuelta

Esto me daba NullReferenceException.
(Si no pongo esos nombres luego no me entero,jejeje).Pues nada,muchas gracias otra vez,y hasta otra.
Un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar