Option Strict On

​

Imports System

​

Public Module Module1

​

    Public Sub Main()

        'Populate some text file for example purposes only

        IO.File.WriteAllLines("test.txt", {"34512340,plain brackets,0.50", "56756777,100mm bolts,0.20", "90673412,L-shaped brackets,1.20"})

        'Read the text file

        Dim lines() As String = IO.File.ReadAllLines("test.txt")

        'Get the amount that will be multiplied

        Dim amount As Double = -1

        Do

            Console.Write("Amount: ")

            If Not Double.TryParse(Console.ReadLine, amount) OrElse amount < 0 Then

                Console.WriteLine("Please enter a valid greater than or equal to 0.")

            End If

        Loop Until amount >= 0

​

        'Get the GTIN number

        Console.Write("GTIN: ")

        Dim GTIN As String = Console.ReadLine()

        'Loop through each line

        For Each line As String In lines

            'Split the line by a comma

            Dim splits() As String = line.Split(","c)

            'Check if the split at index 0 equals the user input

            If splits(0) = GTIN Then

                'If so then conver the split at index 2

                Dim value As Double = Convert.ToDouble(splits(2))

                'Multiply the conversion by the amount and print the results

                Console.WriteLine("Total: " & (value * amount))

            End If

        Next

​

        Console.WriteLine("Hello World")

    End Sub

End Module

​