Opening up in RichTextBox2 ?
in [VB.NET]
|
From: Keith (Southend)G on 8 Jan 2010 12:10 On Jan 8, 4:29 pm, "Captain Jack" <CaptainJack1...(a)comcast.net> wrote: > "Keith (Southend)G" <keith_harr...(a)hotmail.com> wrote in message I get three errors on these three lines... For Counter As Integer = 3 To ItemList.Length - 1 1 NewLine &= " " & ItemList(Counter) 2 Dim NewLine As String = ItemList(2) 3 For Counter As Integer = 3 To ItemList.Length - 1 NewLine &= " " & ItemList(Counter) Next objWriter.WriteLine(NewLine) Next End If 1. Local variable 'NewLine' cannot be referred to before it is declared. 2. Variable 'NewLine' hides a variable in an enclosing block. 3. Variable 'NewLine' hides a variable in an enclosing block. Thanks for hanging with me here. Keith (Southend)
From: Captain Jack on 8 Jan 2010 12:30 "Keith (Southend)G" <keith_harris9(a)hotmail.com> wrote in message news:66573eb1-2bb2-4eff-8bc4-aadc14286692(a)a6g2000yqm.googlegroups.com... > Thanks for hanging with me here. No problem. :-) You've got the same block of code copied in twice, so there are several lines that are duplicated, and they shouldn't be. Those nine lines of code, as seen here: For Counter As Integer = 3 To ItemList.Length NewLine &= " " & ItemList(Counter) Dim NewLine As String = ItemList(2) For Counter As Integer = 3 To ItemList.Length - 1 NewLine &= " " & ItemList(Counter) Next objWriter.WriteLine(NewLine) Next End If Should be replaced with these: Dim NewLine As String = ItemList(2) For Counter As Integer = 3 To ItemList.Length - 1 NewLine &= " " & ItemList(Counter) Next objWriter.WriteLine(NewLine) End If That is, you want to delete (in the nine lines shown) the first two lines, and the second to last line. -- Jack
From: Keith (Southend)G on 8 Jan 2010 12:53 On Jan 8, 5:30 pm, "Captain Jack" <CaptainJack1...(a)comcast.net> wrote: > "Keith (Southend)G" <keith_harr...(a)hotmail.com> wrote in message > > news:66573eb1-2bb2-4eff-8bc4-aadc14286692(a)a6g2000yqm.googlegroups.com... > > > Thanks for hanging with me here. > > No problem. :-) > > You've got the same block of code copied in twice, so there are several > lines that are duplicated, and they shouldn't be. Those nine lines of code, > as seen here: > > For Counter As Integer = 3 To ItemList.Length > NewLine &= " " & ItemList(Counter) > Dim NewLine As String = ItemList(2) > For Counter As Integer = 3 To ItemList.Length - 1 > NewLine &= " " & ItemList(Counter) > Next > objWriter.WriteLine(NewLine) > Next > End If > > Should be replaced with these: > > Dim NewLine As String = ItemList(2) > For Counter As Integer = 3 To ItemList.Length - 1 > NewLine &= " " & ItemList(Counter) > Next > objWriter.WriteLine(NewLine) > End If > > That is, you want to delete (in the nine lines shown) the first two lines, > and the second to last line. > > -- > Jack We have output Jack :-) see.. http://www.southendweather.net/sorted.txt The results of the parsing are not right, but I expected that would need refining. Are, I can see whats it's picked up, the 30124, where I'm looking for the 88963 group... 200912301200 AAXX 30124 88963 31360 72510 10012 21026 30006 40022 58001 70272 85670 333 10014 21035 41000 56560 82708 85710 86360 90961 92417 93100 95000= Atm the files start with ALL the times 30124, 30094 etc at it's start. This is great Jack, I was gonna say I' feel I've achieved something, but I can't take the credit ;-) Keith (Southend) ps: My enthusiasm is high atm, given our current weather situation.
From: Keith (Southend)G on 8 Jan 2010 12:58 On Jan 8, 5:53 pm, "Keith (Southend)G" <keith_harr...(a)hotmail.com> wrote: > On Jan 8, 5:30 pm, "Captain Jack" <CaptainJack1...(a)comcast.net> wrote: > > > > > "Keith (Southend)G" <keith_harr...(a)hotmail.com> wrote in message > > >news:66573eb1-2bb2-4eff-8bc4-aadc14286692(a)a6g2000yqm.googlegroups.com... > > > > Thanks for hanging with me here. > > > No problem. :-) > > > You've got the same block of code copied in twice, so there are several > > lines that are duplicated, and they shouldn't be. Those nine lines of code, > > as seen here: > > > For Counter As Integer = 3 To ItemList.Length > > NewLine &= " " & ItemList(Counter) > > Dim NewLine As String = ItemList(2) > > For Counter As Integer = 3 To ItemList.Length - 1 > > NewLine &= " " & ItemList(Counter) > > Next > > objWriter.WriteLine(NewLine) > > Next > > End If > > > Should be replaced with these: > > > Dim NewLine As String = ItemList(2) > > For Counter As Integer = 3 To ItemList.Length - 1 > > NewLine &= " " & ItemList(Counter) > > Next > > objWriter.WriteLine(NewLine) > > End If > > > That is, you want to delete (in the nine lines shown) the first two lines, > > and the second to last line. > > > -- > > Jack > > We have output Jack :-) > > see..http://www.southendweather.net/sorted.txt > > The results of the parsing are not right, but I expected that would > need refining. > > Are, I can see whats it's picked up, the 30124, where I'm looking for > the 88963 group... > 200912301200 AAXX 30124 88963 31360 72510 10012 21026 30006 40022 > 58001 70272 85670 > 333 10014 21035 41000 56560 82708 85710 86360 > 90961 92417 93100 95000= > > Atm the files start with ALL the times 30124, 30094 etc at it's start. > > This is great Jack, I was gonna say I' feel I've achieved something, > but I can't take the credit ;-) > > Keith (Southend) > > ps: My enthusiasm is high atm, given our current weather situation. Ah, but actually, as it stands it's correct as I wouldn't know what time/date each line represents, the trick here would be to create a separate file for each date/time, but that's another ball game as we would be generating files with different file names that reflected the date/time. Time for some thought here. Thanks Keith(Southend)
From: Captain Jack on 8 Jan 2010 14:04
"Keith (Southend)G" <keith_harris9(a)hotmail.com> wrote in message news:524ab647-438f-422b-822a-08260827d171(a)u7g2000yqm.googlegroups.com... > We have output Jack :-) Excellent, I love it when a program comes together. :-D > This is great Jack, I was gonna say I' feel I've achieved something, > but I can't take the credit ;-) Nah, it's a team effort. -- Jack |