Hacer un diccionario español-inglés e inglés-español. El programa leerá dos listas de parejas de palabras desde un fichero y luego nos permitirá buscar una palabra en inglés o en español. Si la palabra se encuentra en la lista correspondiente nos devolverá su correspondiente en el otro idioma.

Imports System.io
Module Module1

    Sub Main()

        Dim l1, l2 As New List(Of String)
        Dim i, j, op As Integer

        Console.WriteLine("Leyendo fichero...")
        leefichero2columnas("datos17.txt", l1, l2)
        Console.WriteLine("Diccionario cargado en memoria.")

        Console.WriteLine("1-Español-Ingles")
        Console.WriteLine("2-Ingles-Español")
        op = Console.ReadLine
        Select Case op
            Case 1
                Console.Write("Dame palabra: ")
                Dim s As String = Console.ReadLine
                Dim a As Integer = buscapalabra(l1, s)
                If a <> -1 Then
                    Console.WriteLine("Traducido es: " & l2.Item(a))
                Else
                    Console.WriteLine("Palabra no contenida en diccionario.")
                End If
            Case 2
                Console.Write("Dame palabra: ")
                Dim s As String = Console.ReadLine
                Dim a As Integer = buscapalabra(l2, s)
                If a <> -1 Then
                    Console.WriteLine("Traducido es: " & l1.Item(a))
                Else
                    Console.WriteLine("Palabra no contenida en diccionario.")
                End If

        End Select
        Console.ReadKey()
    End Sub

    Function buscapalabra(ByVal l As List(Of String), ByVal cad As String) As Integer
        Dim i, v As Integer
        v = -1
        For i = 0 To l.Count - 1
            If l.Item(i).ToUpper  = cad.ToUpper  Then
                v = i
                Exit For
            End If
        Next
        If v <> -1 Then
            Return v
        Else
            Return -1
        End If
    End Function

    Sub leefichero2columnas(ByVal f As String, ByRef l1 As List(Of String), ByRef l2 As List(Of String))
        Dim cadenas() As String
        Dim i As Integer = 0
        Dim sr As StreamReader = New StreamReader(Environment.CurrentDirectory & "\" & f)
        While Not sr.EndOfStream
            cadenas = DivideCadena(sr.ReadLine)
            l1.Add(cadenas(1))
            l2.Add(cadenas(2))
            i += 1
        End While
        sr.Close()
    End Sub
    Function DivideCadena(ByVal cadena As String) As String()

        Dim i As Integer
        Dim pos1, pos2 As Integer
        Dim numcadenas As Integer

        Dim arraycadenas(0) As String

        numcadenas = 0
        pos1 = 0
        i = 1
        While (i < cadena.Length)

            If (Posicion(cadena, i) = ",") Then
                pos2 = i
                numcadenas = numcadenas + 1
                ReDim Preserve arraycadenas(numcadenas)
                arraycadenas(numcadenas) = cadena.Substring(pos1, pos2 - pos1 - 1)
                pos1 = pos2
            End If

            i = i + 1
        End While

        numcadenas = numcadenas + 1
        ReDim Preserve arraycadenas(numcadenas)
        arraycadenas(numcadenas) = cadena.Substring(pos1)

        Return arraycadenas

    End Function

    Function Posicion(ByVal cad As String, ByVal indice As Integer) As String

        Return cad.Substring(indice - 1, 1)

    End Function

End Module