Ejercicio Con String[]


Objetivo: Ejercicio Con String[]
Hola.
Hace tiempo que utilizo listas string[] para diferentes usos dentro del codigo y la verdad que son muy útiles.
El post este los pongo para presentar un tema practico que es el de quitar ítems de la lista.
El caso 1 es para quitar texto igual al parametro pasado y el caso 2 es para texto que contenga la cadena que se le pase como parametro.
El caso 1 (=) logre hacerlo funcionar sin problemas, pero el caso 2 (inStr) se resiste.

Dejo el código adjuntado.

Saludos.


ejercicio-matriz-0.0.1.tar.gz
Descripción:  
Descargar
Nombre del archivo: ejercicio-matriz-0.0.1.tar.gz
Tamaño: 11.63 KB
Descargado: 68 veces
ejercicio-matriz-0.0.1.tar.gz
Descripción:  
Descargar
Nombre del archivo: ejercicio-matriz-0.0.1.tar.gz
Tamaño: 11.63 KB
Descargado: 68 veces
ejercicio-matriz-0.0.1.tar.gz
Descripción:  
Descargar
Nombre del archivo: ejercicio-matriz-0.0.1.tar.gz
Tamaño: 11.63 KB
Descargado: 68 veces

Perfil MP  
Objetivo: Re: Ejercicio Con String[]
Hola Tincho.

Yo usaría dos listas.

Ingresa los que son similares en una lista de eliminados.
Luego busca cada elemento de la lista de eliminados en stxList y entones elimina los que son iguales.
De esa forma no tendrás problemas.

No se pude cambiar el contenido de una lista mientras iteras sobre ella.

Proponte este ejercicio. Tienes una lista de números y quieres eliminar los que son impares.
Con el mismo método que has hecho al principio, realiza el ejercicio y comprobaras que tienes el mismo problema.

Saludos

Objetivo: Re: Ejercicio Con String[]
Por cierto Tincho, yo he usado 0, no -1 para instr.

Public Sub btnRemove2_Click()
''Quita de la lista los textos que tengan la cadena de texto del txtbox

Dim strItem As String
Dim strFind As String

Dim listaeliminados As New String[]

strFind = txoString.Text

For Each strItem In stxList
If InStr(Trim(strItem), Trim(strFind)) <> 0 Then
listaeliminados.Add(strItem)
Endif
Next

For Each strItem In listaeliminados
If stxList.Find(strItem) <> 0 Then
stxList.Remove(stxList.Find(strItem))
Endif
Next

txoString.Text = ""

Lista()

End


Saludos

Objetivo: Re: Ejercicio Con String[]
Shell escribió: [Ver mensaje]
Por cierto Tincho, yo he usado 0, no -1 para instr.

Si la pifie ahi, jaja.
Bueno acá el código de como quedo, funciona todo.
Quitar duplicados
Quitar =
Quitar los que contienen una cadena

Saludos.


ejercicio-matriz-0.0.2.tar.gz
Descripción: Funcional. 
Descargar
Nombre del archivo: ejercicio-matriz-0.0.2.tar.gz
Tamaño: 11.85 KB
Descargado: 68 veces
ejercicio-matriz-0.0.2.tar.gz
Descripción: Funcional. 
Descargar
Nombre del archivo: ejercicio-matriz-0.0.2.tar.gz
Tamaño: 11.85 KB
Descargado: 68 veces
ejercicio-matriz-0.0.2.tar.gz
Descripción: Funcional. 
Descargar
Nombre del archivo: ejercicio-matriz-0.0.2.tar.gz
Tamaño: 11.85 KB
Descargado: 68 veces

Perfil MP  

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.7358s (PHP: -90% SQL: 190%)
Consultas SQL: 46 - Debug off - GZIP Activado