Visual Basic

AA.CSV
AAAGY.CSV
AABC.CSV
AACB.CSV

'Read the stock symbols to be copied to a new folder into an array

        Dim stocksymbolarrayLong(25000) As String
        Dim filecount As Integer
        Dim counter As Integer

        'Count the lines in the file you are reviewing.

        Dim LongFile As System.IO.StreamReader
        LongFile = System.IO.File.OpenText("C:\Users\George Desktop\Documents\Stock System\Stock Programs\Stock Program Data\LongStockTesting.txt")

        filecount = 0

        Do Until LongFile.Peek = -1
            LongFile.ReadLine()
            filecount = filecount + 1
        Loop

        For counter = 0 To (filecount - 1)
            stocksymbolarrayLong(counter) = Val(LongFile.ReadLine)
        Next

        LongFile.Close()

        ReDim Preserve stocksymbolarrayLong(filecount - 1)

        ' Sort the array's

        Array.Sort(stocksymbolarrayLong)

Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Ipc
Public Class Form1

    Private Sub cmdSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSend.Click
        Dim ipcCh As New IpcChannel("myClient")
        ChannelServices.RegisterChannel(ipcCh, False)

        Dim obj As SharedInterfaces.ICommunicationService = _
          DirectCast(Activator.GetObject(GetType(SharedInterfaces.ICommunicationService), _
          "ipc://IPChannelName/SreeniRemoteObj"), SharedInterfaces.ICommunicationService)
        obj.SaySomething(txtText.Text)

        ChannelServices.UnregisterChannel(ipcCh)
    End Sub

End Class

Public Class CommunicationService
    Inherits MarshalByRefObject
    Implements SharedInterfaces.ICommunicationService

    
    Public Sub SaySomething(ByVal text As String) Implements SharedInterfaces.ICommunicationService.SaySomething
        Console.WriteLine("The client said : " & text)
    End Sub
End Class

Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Ipc
 
Module Main
    Sub Main()
        Dim ipcCh As IpcChannel
        ipcCh = New IpcChannel("IPChannelName")

        ChannelServices.RegisterChannel(ipcCh, False)
        RemotingConfiguration.RegisterWellKnownServiceType( _
             GetType(CommunicationService), "SreeniRemoteObj", _
                           WellKnownObjectMode.Singleton)

        Console.WriteLine("Press ENTER to quit")
        Console.ReadLine()
    End Sub
End Module

Public Interface ICommunicationService
    Sub SaySomething(ByVal text As String)
End Interface