Separar caracteres y numeros de un List

Iniciado por jack06, 12 Agosto 2009, 21:01 PM

0 Miembros y 1 Visitante están viendo este tema.

jack06

Wenas a todos, disculpen por las molestias necesito de su ayuda eh miren, estoy desarrollando un sistema la cual hasta ahora todo bien pero tengo un problema, al guardar los datos los hago por medio de un text y un combo y los concateno para k se guarde en un solo campo en la base de datos osea asi TxtCapRam + " " + CbCapacidadMe.Text ok hasta ahi todo bien luego eso lo muestro en un ListView el problema esk al darle doble click para poder editar necesito, lo que junte anteriormente que me devuelva cada dato que ingrese, osea en el text y del combo, bueno en este caso estoy ingresando en el text: 1234 y en el combo MHZ.

intente asiendo algo asi

.TxtMVeloci = Left(ListPlanilla.SelectedItem.ListSubItems(10).Text, 4)
.CbMBus = Right(ListPlanilla.SelectedItem.ListSubItems(10).Text, 3)


pero el problema esk en el text no ingreso siempre 4 digitos, tambien ingreso 2, 3..
y en el combo tengo cargado: MHZ, GB eh ahi el problema
(̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ €l $åßîø nø d nµn¢å tødø lø qµ£ Þî£n$å, Þ£®ø $î£mÞ®£ Þî£n$å tødø lø qµ£ d (̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ

Dessa

Hola, probá así



Dim cadena As String: Dim cadena2() As String

cadena = ListPlanilla.SelectedItem.ListSubItems(10).Text
cadena2 = Split(cadena, " ")

MsgBox cadena2(0) ' al Text
MsgBox cadena2(1) ' al combo






Private Sub Form_Load()

Dim cadena As String: Dim cadena2() As String

cadena = "1234 MHZ"

cadena2 = Split(cadena, " ")
MsgBox cadena2(0)
MsgBox cadena2(1)

cadena = "38 GB"

cadena2 = Split(cadena, " ")
MsgBox cadena2(0)
MsgBox cadena2(1)

End

End Sub



S2
Adrian Desanti

jack06

uyy bien me funcuiono de 10 no se me habia pasado por la mente La funcion Split.

Gracias Dessa Salu2.
(̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ €l $åßîø nø d nµn¢å tødø lø qµ£ Þî£n$å, Þ£®ø $î£mÞ®£ Þî£n$å tødø lø qµ£ d (̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ

Dessa

Tené en cuenta en guardar siempre con la miasma estructura

TxtCapRam + " " + CbCapacidadMe.Text

El ünico espacio en la cadena debe ser el intermedio.


S2
Adrian Desanti

yovaninu

a manera de aporte te sugiero que para concatenar las cadenas uses el simbolo "&"(ampersand) y no el signo mas.

jack06

Cita de: yovaninu en 13 Agosto 2009, 06:19 AM
a manera de aporte te sugiero que para concatenar las cadenas uses el simbolo "&"(ampersand) y no el signo mas.

uhmmmm y que diferencia hay entre el signo (+) mas y el & (ampersand)
(̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ €l $åßîø nø d nµn¢å tødø lø qµ£ Þî£n$å, Þ£®ø $î£mÞ®£ Þî£n$å tødø lø qµ£ d (̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ

yovaninu

te transcribo lo que dice msdn

El  + (Operador, Visual Basic) tiene la finalidad principal de sumar dos números. Sin
embargo, también puede concatenar operandos numéricos con operandos de cadena. El operador + tiene un conjunto complejo de reglas que determinan si se debe sumar, concatenar, señalar un error del compilador o producir una excepción  InvalidCastException en tiempo de ejecución.

El & (Operador, Visual Basic) sólo se define para operandos de tipo String y siempre amplía sus operandos a String, independientemente de la configuración de Option Strict. El operador & está recomendado para la concatenación de cadenas, porque está definido exclusivamente para cadenas y reduce las posibilidades de generar una conversión no deseada.

Dessa

#7
Cita de: jack06 en 13 Agosto 2009, 06:23 AM
uhmmmm y que diferencia hay entre el signo (+) mas y el & (ampersand)

Para dos strings declaradas podes usar el "+" muy tranquilo, tu practica es el mejor msdn .
Prefiero ser yo el que decida cuando usar el "+" o cuando  la "&" y no que el "Estandar de progamación" decida por mí.
 


Option Explicit

Private Sub Form_Load()

Text1 = 1
Text2 = 2
MsgBox Text1 + Text2

Text1 = "1"
Text2 = "2"
MsgBox Text1 + Text2

Text1 = "1"
Text2 = "2"
MsgBox Val(Text1) + Val(Text2)

Text1 = "x"
Text2 = "2"
MsgBox Val(Text1) + Val(Text2)

End
End Sub




S2 jack06



Adrian Desanti