Video Tutorial
Parte 1
Parte 2
Codigo Fuente
'LOOP ---> BUCLE 'ELMINAR LOS DOS ULTIMOS CARACTERES DE LA LISTBOX 'SUBSTRING 'REPLACE 'TRIM 'Ulises C. For i = 0 To ListBox1.Items.Count - 1 'Ulises C. MsgBox(Trim(ListBox1.Items(i).ToString.Replace(ListBox1.Items(i).ToString.Substring(ListBox1.Items(i).ToString.Length - 2, 2), ""))) 'Ulises Next 'REEMPLAZAR LA INICIAL DEL APELLIDO CON EL PUNTO POR UN VALOR NULO
No hay comentarios :
Publicar un comentario