Click here to Skip to main content
15,904,828 members
Home / Discussions / Visual Basic
   

Visual Basic

 
AnswerRe: Help About VB.Net DLL Pin
Christian Graus19-Apr-06 14:19
protectorChristian Graus19-Apr-06 14:19 
GeneralRe: Help About VB.Net DLL Pin
ALQallaf20-Apr-06 6:56
ALQallaf20-Apr-06 6:56 
Questionerror after application installation Pin
wiseyuss19-Apr-06 13:48
wiseyuss19-Apr-06 13:48 
AnswerRe: error after application installation Pin
mr_1234519-Apr-06 15:32
mr_1234519-Apr-06 15:32 
GeneralRe: error after application installation Pin
wiseyuss19-Apr-06 16:02
wiseyuss19-Apr-06 16:02 
AnswerRe: error after application installation Pin
OldDog.Net19-Apr-06 15:43
OldDog.Net19-Apr-06 15:43 
AnswerRe: error after application installation Pin
Steve Pullan19-Apr-06 15:45
Steve Pullan19-Apr-06 15:45 
Questionhelp me with the logic of this code Pin
crash89319-Apr-06 12:12
crash89319-Apr-06 12:12 
Whats wrong with this code






<br />
  TextBox1.Clear()<br />
        TextBox3.Clear()<br />
        Dim datipass As New StreamReader("c:\0206USAGE.txt")<br />
        Dim totalChargeByName As New SortedList<br />
        Dim fields As String()<br />
<br />
        Do Until datipass.Peek() = -1<br />
            fields = datipass.ReadLine().Split(ControlChars.Tab) 'Or Convert.ToChar(Keys.Tab)<br />
            If totalChargeByName(fields(2)) Is Nothing Then<br />
                'Start tallting for the new name.<br />
                totalChargeByName.Add(fields(2), CDec(fields(9)))<br />
                'TextBox1.AppendText(fields(2).ToString & "   " & fields(9).ToString & vbNewLine)<br />
            Else<br />
                'Add the new charge for the existing name.<br />
                totalChargeByName(fields(2)) = CInt(totalChargeByName(fields(2))) + CDec(fields(9))<br />
            End If<br />
        Loop<br />
<br />
        Dim x As String<br />
        Dim y As Decimal<br />
        Dim total As Decimal<br />
        Dim i As Integer<br />
        For i = 0 To totalChargeByName.Count - 1<br />
            x = totalChargeByName.GetKey(i)<br />
            y = totalChargeByName.GetByIndex(i)<br />
            total = y + total<br />
            TextBox3.AppendText(x & y.ToString("C").PadLeft(20) & vbNewLine)<br />
        Next i<br />
        TextBox1.Text = total.ToString("c")<br />
        datipass.Close()<br />


This is the text im trying to sum up
<br />
056:13459131	6802941	bkeveney	editorial.usatoday.com	"US,Beverly Hills,CA"	2/6/2006 20:43	2/6/2006 20:43	11887	0.9	0.50	DIAL	usage<br />
053:113898037	6802941	rbarbrow	editorial.usatoday.com	"US,Beverly Hills,CA"	2/7/2006 17:31	2/7/2006 17:31	470	0.9	0.50	DIAL	usage<br />
054:113461388	6802941	bkeveney	editorial.usatoday.com	"US,Beverly Hills,CA"	2/7/2006 23:34	2/7/2006 23:34	20253	0.9	0.50	DIAL	usage<br />
051:117142732	6802941	rbarbrow	editorial.usatoday.com	"US,Beverly Hills,CA"	2/12/2006 0:30	2/12/2006 0:30	13480	0.9	0.50	DIAL	usage<br />
055:13716868	6802941	bkeveney	editorial.usatoday.com	"US,Beverly Hills,CA"	2/12/2006 4:30	2/12/2006 4:30	13498	0.9	0.50	DIAL	usage<br />
052:113234620	6802941	rbarbrow	editorial.usatoday.com	"US,Beverly Hills,CA"	2/12/2006 9:47	2/12/2006 9:47	18520	0.9	0.50	DIAL	usage<br />
051:117156396	6802941	bkeveney	editorial.usatoday.com	"US,Beverly Hills,CA"	2/12/2006 12:28	2/12/2006 12:28	3567	0.9	0.50	DIAL	usage<br />
051:117172183	6802941	rbarbrow	editorial.usatoday.com	"US,Beverly Hills,CA"	2/12/2006 21:17	2/12/2006 21:17	5035	0.9	0.50	DIAL	usage<br />


Baiscly its not adding up right (this is just example text to show the point that it wont add like numbers or something ive tried walking threw it and i just dont see where tis screwing up

-- modified at 22:15 Wednesday 19th April, 2006
GeneralRe: help my with the logic of this Pin
Guffa19-Apr-06 12:34
Guffa19-Apr-06 12:34 
GeneralRe: help my with the logic of this Pin
crash89319-Apr-06 16:18
crash89319-Apr-06 16:18 
AnswerRe: help my with the logic of this Pin
Guffa19-Apr-06 19:03
Guffa19-Apr-06 19:03 
GeneralRe: help my with the logic of this Pin
crash89321-Apr-06 13:51
crash89321-Apr-06 13:51 
Question.net web page display Pin
_tasleem19-Apr-06 10:01
_tasleem19-Apr-06 10:01 
AnswerRe: .net web page display Pin
Yuvi Panda20-Apr-06 2:29
Yuvi Panda20-Apr-06 2:29 
QuestionCircumventing the Late Binding prohibition with Option Strict On Pin
AhClem19-Apr-06 9:37
AhClem19-Apr-06 9:37 
QuestionGenerics, Reflexion Pin
Bergerrudi19-Apr-06 8:58
Bergerrudi19-Apr-06 8:58 
AnswerRe: Generics, Reflexion Pin
Guffa19-Apr-06 9:46
Guffa19-Apr-06 9:46 
GeneralRe: Generics, Reflexion Pin
Bergerrudi19-Apr-06 11:40
Bergerrudi19-Apr-06 11:40 
AnswerRe: Generics, Reflexion Pin
Guffa19-Apr-06 12:13
Guffa19-Apr-06 12:13 
GeneralRe: Generics, Reflexion Pin
Bergerrudi19-Apr-06 12:34
Bergerrudi19-Apr-06 12:34 
AnswerRe: Generics, Reflexion Pin
Guffa19-Apr-06 12:39
Guffa19-Apr-06 12:39 
GeneralRe: Generics, Reflexion Pin
Bergerrudi19-Apr-06 13:00
Bergerrudi19-Apr-06 13:00 
Question.sendwait("08052") Pin
Mr kilany19-Apr-06 8:08
Mr kilany19-Apr-06 8:08 
AnswerRe: .sendwait("08052") Pin
Mr kilany22-Apr-06 3:36
Mr kilany22-Apr-06 3:36 
QuestionVB.NET/XML HELP URGENT Pin
samerali19-Apr-06 8:05
samerali19-Apr-06 8:05 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.