Como recuperar parte del string de un List1?

[hunter18]

Tengo un List1 con estos datos a modo de ejemplo, digamos que codigo y nombre del producto

01-productoA
02-productoB
452-productoC
800-productoD
8001-productoE

Lo que necesito es recuperar el string antes del guion en un text dependiendo del item que seleccion al hacer click sobre el List1
por ejemplo
si selecciono "02-productoB" me debe recuperar "02"
si selecciono "452-productoC" me debe recuperar "452"

Solo recuerdo la funcion mid pero no como decirle que coma lo que esta antes del guion?

[FTech]

No se si sea un problema, pero veo un poco más complejo el tema del MID, ya que al parecer no siempre son 2 cracteres o 3 caracteres en el inicio.

[hunter18]

En el foro hace tiempo encontre como se hacia pero no vi el codigo exacto y no encuentro ese post, seguire buscando o si tienen la solucion ....

[FTech]

Disculpa una pregunta. ¿Todos los productos están separados por el guión? De ser así se podría buscar en cada cadena el guión, y a partir de esa posición "tomar" lo de la izquierda.

[hunter18]

si todas las cadenas tiene el mismo formato codigo-nombre

[seba123neo]

Split()

saludos.

[FTech]

Exacto seba a eso me refería aqui te dejo un ejemplo:

Código VB:

Private Sub Command1_Click()
Dim cadena As String
cadena = Text1.Text
myarray = Split(cadena, "-", -1, vbTextCompare)
Label1.Caption = myarray(1) ' Devuelve lo que está luego del guión
End Sub
 
Private Sub Form_Load()
Text1.Text = ""
Label1.Caption = ""
Command1.Caption = "Split"
End Sub
 

[hunter18]

gracias por el codigo FTech funciona pero no he podido adaptarlo, ya intente recuperar la parte izquieda de la cadena y no e podido alguna idea.

[seba123neo]

proba esto haber si entendes..

Código vb:

Option Explicit
 
Private Sub Form_Load()
   With List1
      .AddItem "01-productoA"
      .AddItem "02-productoB"
      .AddItem "452-productoC"
      .AddItem "800-productoD"
      .AddItem "8001-productoE"
   End With
End Sub
 
Private Sub List1_Click()
   Dim vArray() As String
 
   vArray = Split(List1.List(List1.ListIndex), "-")
   MsgBox vArray(1)
End Sub
 

saludos.

[FTech]

Tal cual lo hizo seba.
También aqui te dejo un código que copia el contenido en el listbox a una caja de texto

Código vb:

Private Sub Command1_Click()
Dim myarray() As String
For i = 0 To List1.ListCount - 1
    myarray = Split(List1.List(i), "-")
    Text1.Text = Text1.Text & vbNewLine & myarray(1)
Next
End Sub
 
Private Sub Form_Load()
List1.AddItem "1-ARGENTINA"
List1.AddItem "2-COLOMBIA"
List1.AddItem "3-ECUADOR"
List1.AddItem "4-BRASIL"
Text1.Text = ""
Command1.Caption = "SPLIT"
End Sub
 

Un saludo

[hunter18]

Que tal como van, como haria para sumar los valores recuperados en caso el formato sea nombre-codigo asi:
productoA-10
productoB-20
productoC-30
Como veran ya puedo recuperar el valor con el split ahora como haria para suma lo que recupera en este caso el resultado seria 60

saludos

[FTech]

Bien creo que con seba hicimos suficiente.

Ya sabes sacar "partes" de un string.

Ahora sacaras los valores, los cuales están como string, ahora unicamente conviertelos a int, float o lo que sea, luego los iras acumulando y sumando a la vez.

Un Saludo!