Visual Basic

<br />
Imports System.IO<br />
Imports System.Text.Encoding<br />
Imports System.Text.RegularExpressions<br />
<br />
Public Class Form1<br />
<br />
    Private Sub ExitToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click<br />
        Me.Close()<br />
    End Sub<br />
<br />
    Private strSourcePath As String<br />
    Dim ipassinfo As New SortedList<br />
    Public Structure user<br />
        'Declare data members<br />
        Public username As String<br />
        Public department As String<br />
        Public domestictotal As Decimal<br />
    End Structure<br />
    Dim userinfo As New user<br />
    Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click<br />
        Tb_totals.Clear()<br />
        tb_usertotals.Clear()<br />
        tb_linesproccessed.Clear()<br />
<br />
<br />
        With Me.OpenFileDialog1<br />
            .InitialDirectory = "C:\"<br />
            ' The file could be of any type. The Filter is restricted to Text Format <br />
            ' files only for demonstration purposes.<br />
            .Filter = "Tab delmited (*.csv)|*.csv"<br />
            .FilterIndex = 1<br />
<br />
            ' The OpenFileDialog control only has an Open button, not an OK button.<br />
            ' However, there is no DialogResult.Open enum so use DialogResult.OK.<br />
            If .ShowDialog() = Windows.Forms.DialogResult.OK Then<br />
                strSourcePath = .FileName<br />
<br />
<br />
                Dim datipass As New StreamReader(.FileName)<br />
                '*'' Dim totalChargeByName As New SortedList<br />
                Dim fields As String()<br />
                Dim count As Int16<br />
<br />
                Do Until datipass.Peek() = -1<br />
                    Dim MyLine As String = datipass.ReadLine<br />
                    Dim myparse As String<br />
<br />
                    'create variable for "'"<br />
                    myparse = (ControlChars.Quote & "," & ControlChars.Quote)<br />
                    'Replace "," with tab's<br />
                    MyLine = MyLine.Replace(myparse, ControlChars.Tab)<br />
                    'remove certian words<br />
                    MyLine = MyLine.Replace("usatoday\", "")<br />
                    MyLine = MyLine.Replace("eu\", "")<br />
                    'forces everythign to lower<br />
                    MyLine = MyLine.ToLower<br />
                    'break feild up on tabs<br />
                    fields = MyLine.Split(ControlChars.Tab) 'Or Convert.ToChar(Keys.Tab)<br />
<br />
<br />
                    'check to see if entrie already exists if not create it<br />
                    If ipassinfo(fields(2)) Is Nothing Then<br />
                        'loading the structure<br />
                        userinfo.username = fields(2)<br />
                        userinfo.department = "???"<br />
                        userinfo.domestictotal = fields(9)<br />
                        'adding the structure to the sortedlist under key username<br />
                        ipassinfo.Add((fields(2)), userinfo)<br />
                    Else<br />
                        ' adds charges to total if allready exists<br />
                        userinfo.domestictotal = userinfo.domestictotal + fields(9)<br />
                    End If<br />
                    count = count + 1<br />
                Loop<br />
                Me.tb_linesproccessed.Text = count<br />
                'release the access of the file<br />
                datipass.Close()<br />
<br />
                Dim x As String<br />
                Dim y As Decimal<br />
                Dim total As Decimal<br />
                Dim i As Integer<br />
<br />
                For i = 0 To ipassinfo.Count - 1<br />
                    x = ipassinfo.GetKey(i)<br />
<br />
                    y = DirectCast(ipassinfo.GetByIndex(i), user).domestictotal  <-------------- here is where i am having the trouble<br />
                    total = y + total<br />
<br />
                    tb_usertotals.AppendText(x.PadRight(20) & ControlChars.Tab & y.ToString("C") & vbNewLine)<br />
                    Me.tb_usersmade.Text = i<br />
                Next i<br />
                Me.Tb_totals.Text = total.ToString("c")<br />
             <br />
            End If<br />
        End With<br />
    End Sub<br />

Rashar wrote:

Private Declare Function InternetAttemptConnect Lib "wininet" (ByVal dwReserved As Long) As Long

Private Declare Function InternetAttemptConnect Lib "wininet" (ByVal dwReserved As Integer) As Integer