Como Buscar textos duplicados en listbox y modificarlos?

#1 · February 7, 2019, 1:47 pm

Tengo un LISTBOX en el cual voy agregando unos articulos y sus cantidades

ejmeplo:

1 Leche descremada

Lo que necesito hacer y no se como, es que cada vez que agregue un articulo nuevo al LISTBOX busque en la lista si esta otras veces agregado y si es asi, cuente la cantidad y lo modifique el listbox con esa nueva cantidad para ese articulo

Ejemplo:

Tengo agregado : 1 Leche descremada

Agrego : 1 Leche descremada

Nuevo valor en el listbox sustituido: 2 leches descremadas

#2 · February 7, 2019, 2:29 pm

Hola Gustavo,

Prueba con esto (es la manera más simple que se me ocurre de hacerlo sin utilizar Arrays).
Pon el código en un botón junto a un ListBox llamado "ListBox1"

Loop "1" "10" "[n]"
  ListBoxFindItem "ListBox1" "[n] Leche descremada" "[position]"
  If "[position]" "<>" "0"
    ExitLoop
  EndIf
EndLoop
If "[position]" "=" "0"
  ListBoxAddItem "ListBox1" "0" "1 Leche descremada"
Else
  ListBoxGetItem "ListBox1" "[position]" "[content]"
  StrParse "[content]" " " "[parts]" "[totalparts]"
  Math "[parts1]+1" "0" "[numberOfItems]"
  SetVar "[newItem]" "[numberOfItems]"
  Loop "2" "[totalparts]" "[n]"
     SetVar "[newItem]" "[newItem] [parts[n]]"
  EndLoop
  ListBoxChangeItem "ListBox1" "[position]" "[newItem]"
EndIf

Fíjate que lo que añades es "Leche descremada" y el número se añade solo.
Cambiando el valor máximo del primer loop modificas la cantidad máxima de items de "Leche descremada" que se pueden añadir.

Modificando ligeramente el código te servirá para cualquier tipo de cosa que añadas a la lista y no solo leche descremada :)

Saludos.

#3 · February 8, 2019, 7:48 pm

VisualNEO Win

ListBoxFindItem "ListBox1" "Leche descremada" "[Result]"

If "[Result]" "=" "0"
ListBoxAddItem "ListBox1" "0" "Leche descremada"
EndIf

#4 · February 9, 2019, 5:44 pm

Gracias, funciono de maravillas asi

Como Buscar textos duplicados en listbox y modificarlos? - Forum

Como Buscar textos duplicados en listbox y modificarlos?