Imports System

Imports Microsoft.VisualBasic

​

Public Module ServiciosLista

    const limite = 400

    Public Sub Main()

        dim datos()={78,61,44,65,89,74,71,20,75,71,62,21,95,44,23,75,96,35,32,64,91,79,57,18,96,40,24,38,23,19,19,20,42,40,53,61,16,68,32,81,38,40,79,79,41,94,80,56,35,95,78,30,58,28,54,51,55,92,69,78,84,66,75,10,57,30,25,13,53,75,65,56,23,82,28,38,51,83,71,53,42,34,81,29,46,39,41,99,24,80,59,95,32,30,49,32,71,94,42,20,52,62,23,45,46,59,97,55,58,47,85,96,43,23,74,25,56,81,76,23,97,40,83,13,98,98,21,51,32,28,72,47,52,28,40,13,78,25,29,42,12,62,60,44,54,44,41,62,59,69,28,47,19,71,54,57,21,74,22,47,96,85,59,83,14,63,60,11,60,58,90,89,69,11,69,37,58,94,59,65,21,38,75,57,84,30,64,16,79,22,35,42,45,58,28,75,89,25,77,73,67,59,79,20,24,15,21,81,17,92,51,53,84,88,80,19,54,32,69,99,21,46,75,35,84,82,81,17,16,47,69,77,47,13,90,23,59,52,82,96,75,28,29,16,31,70,47,84,82,38,84,17,90,18,90,16,64,23,82,36,72,90,41,68,52,37,91,75,99,74,65,84,30,54,78,97,61,15,70,87,17,68,74,14,12,86,27,85,44,26,77,62,16,77,27,88,44,84,56,69,10,28,18,64,86,45,25,84,98,52,42,44,57,92,46,47,87,15,72,22,19,15,24,67,77,71,69,79,90,69,85,88,21,60,10,17,62,49,28,25,98,41,17,86,63,85,65,67,60,41,37,28,99,31,13,98,61,76,10,35,60,66,61,10,70,58,93,18,89,87,48,92,30,55,57,55,73,42,10,23,37,98,12,32,97,42,66,57,13,17,78,46,19,14,57,28,15,33,85,60}

        dim coincidencias() as integer

        dim buscar, reemplazar as integer

        dim coincide as Integer()

        'llenaLista(datos)

        imprimeLista("CONJUNTO ORIGINAL DE DATOS",datos)

        console.writeline("{0}Dato a buscar:",VbCRLF)

        buscar=console.readline()

        console.writeline("Reemplazar por:")

        reemplazar=console.readline()

        coincide=buscaCoincidencias(buscar, datos, coincidencias)

        imprimeLista("DIRECCIONES EN EL CONJUNTO CON LAS COINCIDENCIAS",coincide)

        reemplaza(2,buscar,reemplazar,coincidencias,datos) 

        imprimeLista("CONJUNTO CON DATOS REEMPLAZADOS",datos)

    End Sub

​

    Public Function buscaCoincidencias(datoBuscar as integer, lista() as integer, coincidencias() as integer) as Integer()

        Dim x as integer

        dim totalcoincidencias as integer

        dim contador=0

        totalcoincidencias=cuentaCoincidencias(datoBuscar, lista)

        Redim coincidencias(totalcoincidencias)

        For x=0 to lista.GetUpperBound(0)-1

        if lista(x)=datoBuscar

            coincidencias(contador)=x

            contador=contador+1

        end if

        Next

        return coincidencias

    'imprimeLista("DIRECCIONES EN EL CONJUNTO CON LAS COINCIDENCIAS",coincidencias)

    End Function

    Public Sub reemplaza(bandera as integer, datoBuscar as integer, datoreemplazo as integer,coincidencias as Integer(), ParamArray lista() as integer)

        ' bandera=0 reemplaza todas las coincidencias

        ' bandera=1 reemplaza la coincidencia por dirección

        ' bandera=2 reemplazo selectivo

        dim x as integer

        dim respuesta as char

        dim direccion as integer

        dim arrayresultado as Integer()

        select case bandera

        case 0:

            for x=0 to lista.GetUpperBound(0)-1

                if lista(x)=datoBuscar

                    lista(x)=datoreemplazo

                end if

            next

        case 1:

            console.writeline("Ingrese la dirección:")

            direccion=console.readline()

            lista(direccion)=datoreemplazo

        case 2:

            for x=0 to lista.GetUpperBound(0)-1

                if lista(x)=datoBuscar

        console.Write("Reemplazar: {0} con {1} en dirección: {2} Si/No/Cancelar/Restante) ", lista(x),datoreemplazo, x )

                    respuesta=console.Readline()

                    select case respuesta

                        case "C","c"

                            exit sub

                        case "N", "n"

                            ' no hace operación

                        case "S,", "s"

                            lista(x)=datoreemplazo

                        case "R", "r"

                             arrayresultado=buscaCoincidencias(datobuscar, lista, coincidencias)

                             for y=0 to arrayresultado.GetUpperBound(0)-1 

                                 lista(arrayresultado(y))=datoreemplazo

                             next

                ' agregar código en esta parte para asegurarse que se reemplazan las direcciones restantes

                    end select

                end if

            next

        end select

    End Sub

    Public Function cuentaCoincidencias(valorBuscado as integer, Byval ParamArray lista() as integer)

        dim x as integer

        dim contador as integer

        for x=0 to lista.GetUpperBound(0)-1

        if lista(x)=valorBuscado

            contador=contador+1

        end if

        next x

    return contador

    End Function

​

Public Function llenaLista (ParamArray lista() as integer)

    Dim x as integer

    Randomize()

for x = 0 to limite-1

    lista(x) =  CInt(Rnd()*99)

    next

    return lista

End Function

​

Public sub imprimeLista(Cadena as string, Byval ParamArray lista() as integer)      ' imprime el contenido de un vector

    const columnas = 15

    dim x as integer

    console.WriteLine("----------------{0}------------------",Cadena)

    for x=0 to lista.GetUpperBound(0)-1

        Console.Write("[{0:000}]:{1:00} {2}", x, lista(x), " ")

    if (x mod columnas)=0 and (x>0)

        console.writeline()

    end if

    next 

    console.writeline()

console.writeline("----------FIN DE IMPRESION---------------")

End Sub

​

End Module