Reading a Text File

[kronecker@yahoo.co.uk]

I am trying to delete multiple lines in a text file using the
following

Private Sub Read_TextFile()
Dim objReader As StreamReader
Dim strfull, strContents, strContentsold, strContentsnew As
String
objReader = New StreamReader("C :\answer.txt")
'Clear the Text Box1
TextBox1.Clear( )


strContentsold = ""
strContentsnew = ""
strContents = ""
strfull = ""


Do While Not objReader.EndOf Stream


strContentsold = strContentsnew
strContentsnew = objReader.ReadL ine

If strContentsnew = strContentsold Then
strContents = ""
Else
strContents = strContentsnew
End If

strfull += strContents


Loop

TextBox1.Text = strfull

objReader.Close ()
End Sub

The text will be stored in TextBox1.

However, it appears not to work! I was wondering if anybody had any
ideas. Here is tan original text file as an example

I assume that you wanted to know whether I can tell you about Wales.
I assume that you wanted to know whether I can tell you about Wales.
whether I can tell you about Wales
Wales is an administrative division in the UK.
Wales
an administrative division
the UK
Source: START KB
Source:
Go back to the START dialog window.
Go back to the START dialog window.
Go back to the START dialog window.

[BobRoyAce]

Re: Reading a Text File

However, it appears not to work!

What output did you get?

[kronecker@yahoo.co.uk]

Re: Reading a Text File

On Aug 11, 3:22 pm, BobRoyAce <b...@omegasoft wareinc.comwrot e:

However, it appears not to work!

>
What output did you get?

Same as the input!

[Cor Ligthert[MVP]]

Re: Reading a Text File

Hi,

It did work fine for me, however, the code is a little bit very old fashion
(vb6) style. Be aware that everything in Net is an object, while telling
that something is a string is not done anymore.

In the case of appending strings is the stringbuilder more suitable because
that as you append to a string everytime a longer new string is created. (Be
also aware that using the + as a string connecter can give in some cases not
wanted results, use the real connection character & for that, that tells
more direct that it is about string then to prefix everything with str.

I changed your code a little bit.

\\\
Private Sub Read_TextFile()
Dim Reader As IO.StreamReader
Dim ContentsOld, ContentsNew As String
Dim Contents As New System.Text.Str ingBuilder
Reader = New IO.StreamReader ("C:\test\answe r.txt")
TextBox1.Clear( )
ContentsOld = ""
ContentsNew = ""
Do While Not Reader.EndOfStr eam
ContentsOld = ContentsNew
ContentsNew = Reader.ReadLine
If ContentsNew <ContentsOld Then
ContentsOld = ContentsNew
Contents.Append (ContentsNew)
End If
Loop
TextBox1.Text = Contents.ToStri ng
Reader.Close()
End Sub
///

Cor

<kronecker@yaho o.co.ukschreef in bericht
news:581577d3-a2d5-4792-a2eb-ad4f30e81d93@w3 9g2000prb.googl egroups.com...

>I am trying to delete multiple lines in a text file using the
following
>
Private Sub Read_TextFile()
Dim objReader As StreamReader
Dim strfull, strContents, strContentsold, strContentsnew As
String
objReader = New StreamReader("C :\answer.txt")
'Clear the Text Box1
TextBox1.Clear( )
>
>
strContentsold = ""
strContentsnew = ""
strContents = ""
strfull = ""
>
>
Do While Not objReader.EndOf Stream
>
>
strContentsold = strContentsnew
strContentsnew = objReader.ReadL ine
>
If strContentsnew = strContentsold Then
strContents = ""
Else
strContents = strContentsnew
End If
>
strfull += strContents
>
>
Loop
>
TextBox1.Text = strfull
>
objReader.Close ()
End Sub
>
The text will be stored in TextBox1.
>
However, it appears not to work! I was wondering if anybody had any
ideas. Here is tan original text file as an example
>
I assume that you wanted to know whether I can tell you about Wales.
I assume that you wanted to know whether I can tell you about Wales.
whether I can tell you about Wales
Wales is an administrative division in the UK.
Wales
an administrative division
the UK
Source: START KB
Source:
Go back to the START dialog window.
Go back to the START dialog window.
Go back to the START dialog window.

[falderals@yahoo.co.uk]

Re: Reading a Text File

On Aug 11, 4:45 pm, "Cor Ligthert[MVP]" <notmyfirstn... @planet.nl>
wrote:

Hi,
>
It did work fine for me, however, the code is a little bit very old fashion
(vb6) style. Be aware that everything in Net is an object, while telling
that something is a string is not done anymore.
>
In the case of appending strings is the stringbuilder more suitable because
that as you append to a string everytime a longer new string is created. (Be
also aware that using the + as a string connecter can give in some cases not
wanted results, use the real connection character & for that, that tells
more direct that it is about string then to prefix everything with str.
>
I changed your code a little bit.
>
\\\
Private Sub Read_TextFile()
Dim Reader As IO.StreamReader
Dim ContentsOld, ContentsNew As String
Dim Contents As New System.Text.Str ingBuilder
Reader = New IO.StreamReader ("C:\test\answe r.txt")
TextBox1.Clear( )
ContentsOld = ""
ContentsNew = ""
Do While Not Reader.EndOfStr eam
ContentsOld = ContentsNew
ContentsNew = Reader.ReadLine
If ContentsNew <ContentsOld Then
ContentsOld = ContentsNew
Contents.Append (ContentsNew)
End If
Loop
TextBox1.Text = Contents.ToStri ng
Reader.Close()
End Sub
///
>
Cor
>
<kronec...@yaho o.co.ukschreef in berichtnews:581 577d3-a2d5-4792-a2eb-ad4f30e81d93@w3 9g2000prb.googl egroups.com...
>

I am trying to delete multiple lines in a text file using the
following

>

Private Sub Read_TextFile()
Dim objReader As StreamReader
Dim strfull, strContents, strContentsold, strContentsnew As
String
objReader = New StreamReader("C :\answer.txt")
'Clear the Text Box1
TextBox1.Clear( )

>

strContentsold = ""
strContentsnew = ""
strContents = ""
strfull = ""

>

Do While Not objReader.EndOf Stream

>

strContentsold = strContentsnew
strContentsnew = objReader.ReadL ine

>

If strContentsnew = strContentsold Then
strContents = ""
Else
strContents = strContentsnew
End If

>

strfull += strContents

>

Loop

>

TextBox1.Text = strfull

>

objReader.Close ()
End Sub

>

The text will be stored in TextBox1.

>

However, it appears not to work! I was wondering if anybody had any
ideas. Here is tan original text file as an example

>

I assume that you wanted to know whether I can tell you about Wales.
I assume that you wanted to know whether I can tell you about Wales.
whether I can tell you about Wales
Wales is an administrative division in the UK.
Wales
an administrative division
the UK
Source: START KB
Source:
Go back to the START dialog window.
Go back to the START dialog window.
Go back to the START dialog window.

You know that's a great help. What if there were un-ascii characters
in the file for some reason that are not visible?Then two lines
may look similar but differ. How to delete them then!?

K.

[Cor Ligthert [MVP]]

Re: Reading a Text File

If it was my problems then I would do it with this code (a, b, c are not
your fieldnames)

Dim a As String = "1234"
Dim b As New System.Text.Str ingBuilder
For Each c As Char In a
If AscW(c) 30 AndAlso AscW(c) < 128 Then
b.Append(c)
End If
Next

Where in this case you should evaluate which charactercode you will use
(I have without checking taken 30 and 128)

Don't ask yourself if this is quick enough, this is more then 100000 times
quicker then one pixel move of a textbox on screen.

Cor



<falderals@yaho o.co.ukschreef in bericht
news:b7a34a01-2fea-40d6-969b-a63a272331a7@i2 4g2000prf.googl egroups.com...

On Aug 11, 4:45 pm, "Cor Ligthert[MVP]" <notmyfirstn... @planet.nl>
wrote:

>Hi,
>>
>It did work fine for me, however, the code is a little bit very old
>fashion
>(vb6) style. Be aware that everything in Net is an object, while telling
>that something is a string is not done anymore.
>>
>In the case of appending strings is the stringbuilder more suitable
>because
>that as you append to a string everytime a longer new string is created.
>(Be
>also aware that using the + as a string connecter can give in some cases
>not
>wanted results, use the real connection character & for that, that tells
>more direct that it is about string then to prefix everything with str.
>>
>I changed your code a little bit.
>>
>\\\
>Private Sub Read_TextFile()
> Dim Reader As IO.StreamReader
> Dim ContentsOld, ContentsNew As String
> Dim Contents As New System.Text.Str ingBuilder
> Reader = New IO.StreamReader ("C:\test\answe r.txt")
> TextBox1.Clear( )
> ContentsOld = ""
> ContentsNew = ""
> Do While Not Reader.EndOfStr eam
> ContentsOld = ContentsNew
> ContentsNew = Reader.ReadLine
> If ContentsNew <ContentsOld Then
> ContentsOld = ContentsNew
> Contents.Append (ContentsNew)
> End If
> Loop
> TextBox1.Text = Contents.ToStri ng
> Reader.Close()
>End Sub
>///
>>
>Cor
>>
><kronec...@yah oo.co.ukschreef in
>berichtnews:58 1577d3-a2d5-4792-a2eb-ad4f30e81d93@w3 9g2000prb.googl egroups.com...
>>

>I am trying to delete multiple lines in a text file using the
following

>>

Private Sub Read_TextFile()
Dim objReader As StreamReader
Dim strfull, strContents, strContentsold, strContentsnew As
String
objReader = New StreamReader("C :\answer.txt")
'Clear the Text Box1
TextBox1.Clear( )

>>

strContentsold = ""
strContentsnew = ""
strContents = ""
strfull = ""

>>

Do While Not objReader.EndOf Stream

>>

strContentsold = strContentsnew
strContentsnew = objReader.ReadL ine

>>

If strContentsnew = strContentsold Then
strContents = ""
Else
strContents = strContentsnew
End If

>>

strfull += strContents

>>

Loop

>>

TextBox1.Text = strfull

>>

objReader.Close ()
End Sub

>>

The text will be stored in TextBox1.

>>

However, it appears not to work! I was wondering if anybody had any
ideas. Here is tan original text file as an example

>>

I assume that you wanted to know whether I can tell you about Wales.
I assume that you wanted to know whether I can tell you about Wales.
whether I can tell you about Wales
Wales is an administrative division in the UK.
Wales
an administrative division
the UK
Source: START KB
Source:
Go back to the START dialog window.
Go back to the START dialog window.
Go back to the START dialog window.

>
You know that's a great help. What if there were un-ascii characters
in the file for some reason that are not visible?Then two lines
may look similar but differ. How to delete them then!?
>
K.

[Stephany Young]

Re: Reading a Text File

So you are starting with:

I assume that you wanted to know whether I can tell you about Wales.
I assume that you wanted to know whether I can tell you about Wales.
whether I can tell you about Wales
Wales is an administrative division in the UK.
Wales
an administrative division
the UK
Source: START KB
Source:
Go back to the START dialog window.
Go back to the START dialog window.
Go back to the START dialog window.

and you want to end up with:

I assume that you wanted to know whether I can tell you about Wales.
whether I can tell you about Wales
Wales is an administrative division in the UK.
Wales
an administrative division
the UK
Source: START KB
Source:
Go back to the START dialog window.

or, do you want to end up with:

I assume that you wanted to know whether I can tell you about Wales.
Wales is an administrative division in the UK.
Source: START KB
Go back to the START dialog window.

If it is the former then it is a simple as:

' Get the content of the file into a List(Of String).
Dim _list = New List(Of String)(File.Re adAllLines("C:\ answer.txt"))

' Read the list from the bottom up but do not process the first line.
For _i = _list.count - 1 To 1 Step - 1
' If the line above (_i - 1) the line of interest (_i) is the equivalent
value then remove the line of interest.
If _list(_i - 1) = _List(_i) Then _list.RemoveAt( _i)
Next

' Join the lines together NewLines and put the result in the textbox.
TextBox1.Text = String.Join(Env ironment.Newlin e, _list.ToArray() )

If it is the latter, then the solution is more complex because you need to
consider parts of lines rather than whole lines. To do this you need to read
from the top down and when you remove a line you need to start a new pass
over the whole list.

' Get the content of the file into a List(Of String).
Dim _list = New List(Of String)(File.Re adAllLines("C:\ answer.txt"))

Dim _removal = True

While _removal
_removals = False
' Read the list from the top down starting from line 2.
For _i = 1 To _list.Count - 1
' If the line above (_i - 1) the line of interest (_i) contains the
value of interest then remove the line of interest and start a new pass.
If _list(_i - 1).Contains(_Li st(_i)) Then
_list.RemoveAt( _i)
_removal = True
Next
End While

' Join the lines together NewLines and put the result in the textbox.
TextBox1.Text = String.Join(Env ironment.Newlin e, _list.ToArray() )

The first pass will remove the second occurrence of:
I assume that you wanted to know whether I can tell you about Wales.

The second pass will remove:
whether I can tell you about Wales

The third pass will remove:
Wales

The fourth pass will remove:
an administrative division

The fifth pass will remove:
the UK


The sixth pass will remove:
Source:

The seventh pass will remove the second occurrence of:
Go back to the START dialog window.

The eighth pass will remove the second occurrence of:
Go back to the START dialog window.



<kronecker@yaho o.co.ukwrote in message
news:581577d3-a2d5-4792-a2eb-ad4f30e81d93@w3 9g2000prb.googl egroups.com...

>I am trying to delete multiple lines in a text file using the
following
>
Private Sub Read_TextFile()
Dim objReader As StreamReader
Dim strfull, strContents, strContentsold, strContentsnew As
String
objReader = New StreamReader("C :\answer.txt")
'Clear the Text Box1
TextBox1.Clear( )
>
>
strContentsold = ""
strContentsnew = ""
strContents = ""
strfull = ""
>
>
Do While Not objReader.EndOf Stream
>
>
strContentsold = strContentsnew
strContentsnew = objReader.ReadL ine
>
If strContentsnew = strContentsold Then
strContents = ""
Else
strContents = strContentsnew
End If
>
strfull += strContents
>
>
Loop
>
TextBox1.Text = strfull
>
objReader.Close ()
End Sub
>
The text will be stored in TextBox1.
>
However, it appears not to work! I was wondering if anybody had any
ideas. Here is tan original text file as an example
>
I assume that you wanted to know whether I can tell you about Wales.
I assume that you wanted to know whether I can tell you about Wales.
whether I can tell you about Wales
Wales is an administrative division in the UK.
Wales
an administrative division
the UK
Source: START KB
Source:
Go back to the START dialog window.
Go back to the START dialog window.
Go back to the START dialog window.

[falderals@yahoo.co.uk]

Re: Reading a Text File

On Aug 11, 6:47 pm, "Stephany Young" <noone@localhos twrote:

So you are starting with:
>
I assume that you wanted to know whether I can tell you about Wales.
I assume that you wanted to know whether I can tell you about Wales.
whether I can tell you about Wales
Wales is an administrative division in the UK.
Wales
an administrative division
the UK
Source: START KB
Source:
Go back to the START dialog window.
Go back to the START dialog window.
Go back to the START dialog window.
>
and you want to end up with:
>
I assume that you wanted to know whether I can tell you about Wales.
whether I can tell you about Wales
Wales is an administrative division in the UK.
Wales
an administrative division
the UK
Source: START KB
Source:
Go back to the START dialog window.
>
or, do you want to end up with:
>
I assume that you wanted to know whether I can tell you about Wales.
Wales is an administrative division in the UK.
Source: START KB
Go back to the START dialog window.
>
If it is the former then it is a simple as:
>
' Get the content of the file into a List(Of String).
Dim _list = New List(Of String)(File.Re adAllLines("C:\ answer.txt"))
>
' Read the list from the bottom up but do not process the first line.
For _i = _list.count - 1 To 1 Step - 1
' If the line above (_i - 1) the line of interest (_i) is the equivalent
value then remove the line of interest.
If _list(_i - 1) = _List(_i) Then _list.RemoveAt( _i)
Next
>
' Join the lines together NewLines and put the result in the textbox.
TextBox1.Text = String.Join(Env ironment.Newlin e, _list.ToArray() )
>
If it is the latter, then the solution is more complex because you need to
consider parts of lines rather than whole lines. To do this you need to read
from the top down and when you remove a line you need to start a new pass
over the whole list.
>
' Get the content of the file into a List(Of String).
Dim _list = New List(Of String)(File.Re adAllLines("C:\ answer.txt"))
>
Dim _removal = True
>
While _removal
_removals = False
' Read the list from the top down starting from line 2.
For _i = 1 To _list.Count - 1
' If the line above (_i - 1) the line of interest (_i) contains the
value of interest then remove the line of interest and start a new pass.
If _list(_i - 1).Contains(_Li st(_i)) Then
_list.RemoveAt( _i)
_removal = True
Next
End While
>
' Join the lines together NewLines and put the result in the textbox.
TextBox1.Text = String.Join(Env ironment.Newlin e, _list.ToArray() )
>
The first pass will remove the second occurrence of:
I assume that you wanted to know whether I can tell you about Wales.
>
The second pass will remove:
whether I can tell you about Wales
>
The third pass will remove:
Wales
>
The fourth pass will remove:
an administrative division
>
The fifth pass will remove:
the UK
>
The sixth pass will remove:
Source:
>
The seventh pass will remove the second occurrence of:
Go back to the START dialog window.
>
The eighth pass will remove the second occurrence of:
Go back to the START dialog window.
>
<kronec...@yaho o.co.ukwrote in message
>
news:581577d3-a2d5-4792-a2eb-ad4f30e81d93@w3 9g2000prb.googl egroups.com...
>

I am trying to delete multiple lines in a text file using the
following

>

Private Sub Read_TextFile()
Dim objReader As StreamReader
Dim strfull, strContents, strContentsold, strContentsnew As
String
objReader = New StreamReader("C :\answer.txt")
'Clear the Text Box1
TextBox1.Clear( )

>

strContentsold = ""
strContentsnew = ""
strContents = ""
strfull = ""

>

Do While Not objReader.EndOf Stream

>

strContentsold = strContentsnew
strContentsnew = objReader.ReadL ine

>

If strContentsnew = strContentsold Then
strContents = ""
Else
strContents = strContentsnew
End If

>

strfull += strContents

>

Loop

>

TextBox1.Text = strfull

>

objReader.Close ()
End Sub

>

The text will be stored in TextBox1.

>

However, it appears not to work! I was wondering if anybody had any
ideas. Here is tan original text file as an example

>

I assume that you wanted to know whether I can tell you about Wales.
I assume that you wanted to know whether I can tell you about Wales.
whether I can tell you about Wales
Wales is an administrative division in the UK.
Wales
an administrative division
the UK
Source: START KB
Source:
Go back to the START dialog window.
Go back to the START dialog window.
Go back to the START dialog window.

That's smart Stephany..what are doing for lunch tomorrow?

K.

[kronecker@yahoo.co.uk]

Re: Reading a Text File

On Aug 11, 6:47 pm, "Stephany Young" <noone@localhos twrote:

>
If it is the latter, then the solution is more complex because you need to
consider parts of lines rather than whole lines. To do this you need to read
from the top down and when you remove a line you need to start a new pass
over the whole list.
>
' Get the content of the file into a List(Of String).
Dim _list = New List(Of String)(File.Re adAllLines("C:\ answer.txt"))
>
Dim _removal = True
>
While _removal
_removals = False
' Read the list from the top down starting from line 2.
For _i = 1 To _list.Count - 1
' If the line above (_i - 1) the line of interest (_i) contains the
value of interest then remove the line of interest and start a new pass.
If _list(_i - 1).Contains(_Li st(_i)) Then
_list.RemoveAt( _i)
_removal = True
Next
End While
>
' Join the lines together NewLines and put the result in the textbox.
TextBox1.Text = String.Join(Env ironment.Newlin e, _list.ToArray() )
>
The first pass will remove the second occurrence of:
I assume that you wanted to know whether I can tell you about Wales.
>
The second pass will remove:
whether I can tell you about Wales
>
The third pass will remove:
Wales
>
The fourth pass will remove:
an administrative division
>
The fifth pass will remove:
the UK
>
The sixth pass will remove:
Source:
>
The seventh pass will remove the second occurrence of:
Go back to the START dialog window.
>
The eighth pass will remove the second occurrence of:
Go back to the START dialog window.
>

I get an error for this last method:

Index was out of range. Must be non-negative and less than the size of
the collection. Parameter name: index

pointing to this line here

If _list(_i - 1).Contains(_li st(_i)) Then

I can't see how it can be out of range since you have the index

For _i = 1 To _list.Count - 1

which makes sense.


K.

[Stephany Young]

Re: Reading a Text File

The test inside the For ... Next loop should read:

If _list(_i - 1).Contains(_Li st(_i)) Then
_list.RemoveAt( _i)
_removal = True
Exit For
Next

Otherwise the index out of range exception will certainly rear it's ugly
head.


<kronecker@yaho o.co.ukwrote in message
news:39285d83-741b-48e5-b150-da460bb6f3b4@t1 g2000pra.google groups.com...

On Aug 11, 6:47 pm, "Stephany Young" <noone@localhos twrote:

>>
>If it is the latter, then the solution is more complex because you need
>to
>consider parts of lines rather than whole lines. To do this you need to
>read
>from the top down and when you remove a line you need to start a new pass
>over the whole list.
>>
> ' Get the content of the file into a List(Of String).
> Dim _list = New List(Of String)(File.Re adAllLines("C:\ answer.txt"))
>>
> Dim _removal = True
>>
> While _removal
> _removals = False
> ' Read the list from the top down starting from line 2.
> For _i = 1 To _list.Count - 1
> ' If the line above (_i - 1) the line of interest (_i) contains the
>value of interest then remove the line of interest and start a new pass.
> If _list(_i - 1).Contains(_Li st(_i)) Then
> _list.RemoveAt( _i)
> _removal = True
> Next
> End While
>>
> ' Join the lines together NewLines and put the result in the textbox.
> TextBox1.Text = String.Join(Env ironment.Newlin e, _list.ToArray() )
>>
>The first pass will remove the second occurrence of:
> I assume that you wanted to know whether I can tell you about Wales.
>>
>The second pass will remove:
> whether I can tell you about Wales
>>
>The third pass will remove:
> Wales
>>
>The fourth pass will remove:
> an administrative division
>>
>The fifth pass will remove:
> the UK
>>
>The sixth pass will remove:
> Source:
>>
>The seventh pass will remove the second occurrence of:
> Go back to the START dialog window.
>>
>The eighth pass will remove the second occurrence of:
> Go back to the START dialog window.
>>

I get an error for this last method:
>
Index was out of range. Must be non-negative and less than the size of
the collection. Parameter name: index
>
pointing to this line here
>
If _list(_i - 1).Contains(_li st(_i)) Then
>
I can't see how it can be out of range since you have the index
>
For _i = 1 To _list.Count - 1
>
which makes sense.
>
>
K.
>
>
>

[kronecker@yahoo.co.uk]

Re: Reading a Text File

On Aug 11, 8:17 pm, "Stephany Young" <noone@localhos twrote:

The test inside the For ... Next loop should read:
>
If _list(_i - 1).Contains(_Li st(_i)) Then
_list.RemoveAt( _i)
_removal = True
Exit For
Next
>
Otherwise the index out of range exception will certainly rear it's ugly
head.
>
<kronec...@yaho o.co.ukwrote in message
>
news:39285d83-741b-48e5-b150-da460bb6f3b4@t1 g2000pra.google groups.com...
>

On Aug 11, 6:47 pm, "Stephany Young" <noone@localhos twrote:

>

If it is the latter, then the solution is more complex because you need
to
consider parts of lines rather than whole lines. To do this you need to
read
from the top down and when you remove a line you need to start a new pass
over the whole list.

>

' Get the content of the file into a List(Of String).
Dim _list = New List(Of String)(File.Re adAllLines("C:\ answer.txt"))

>

Dim _removal = True

>

While _removal
_removals = False
' Read the list from the top down starting from line 2.
For _i = 1 To _list.Count - 1
' If the line above (_i - 1) the line of interest (_i) contains the
value of interest then remove the line of interest and start a new pass.
If _list(_i - 1).Contains(_Li st(_i)) Then
_list.RemoveAt( _i)
_removal = True
Next
End While

>

' Join the lines together NewLines and put the result in the textbox.
TextBox1.Text = String.Join(Env ironment.Newlin e, _list.ToArray() )

>

The first pass will remove the second occurrence of:
I assume that you wanted to know whether I can tell you about Wales.

>

The second pass will remove:
whether I can tell you about Wales

>

The third pass will remove:
Wales

>

The fourth pass will remove:
an administrative division

>

The fifth pass will remove:
the UK

>

The sixth pass will remove:
Source:

>

The seventh pass will remove the second occurrence of:
Go back to the START dialog window.

>

The eighth pass will remove the second occurrence of:
Go back to the START dialog window.

>

I get an error for this last method:

>

Index was out of range. Must be non-negative and less than the size of
the collection. Parameter name: index

>

pointing to this line here

>

If _list(_i - 1).Contains(_li st(_i)) Then

>

I can't see how it can be out of range since you have the index

>

For _i = 1 To _list.Count - 1

>

which makes sense.

>

K.

It's working on that example but now I have a harder one!


slightly smaller than Oregon
Population:
60,776,238 (July 2007 est.)
Population:
60,776,238 (July 2007 est.)
Population:
60,776,238 (July 2007 est.)
Population:
60,776,238 (July 2007 est.)
Population:
Population:
files like this one above. There can be up to 3 lines repeated.

K.

[Stephany Young]

Re: Reading a Text File

All I can suggest for that one is for you to study up on Regular
Expressions.

It's working on that example but now I have a harder one!
>
>
slightly smaller than Oregon
Population:
60,776,238 (July 2007 est.)
Population:
60,776,238 (July 2007 est.)
Population:
60,776,238 (July 2007 est.)
Population:
60,776,238 (July 2007 est.)
Population:
Population:
files like this one above. There can be up to 3 lines repeated.
>
K.

<kronecker@yaho o.co.ukwrote in message
news:72fc4051-0f5a-450d-9ac3-b54fe0907118@u6 g2000prc.google groups.com...

On Aug 11, 8:17 pm, "Stephany Young" <noone@localhos twrote:

>The test inside the For ... Next loop should read:
>>
> If _list(_i - 1).Contains(_Li st(_i)) Then
> _list.RemoveAt( _i)
> _removal = True
> Exit For
> Next
>>
>Otherwise the index out of range exception will certainly rear it's ugly
>head.
>>
><kronec...@yah oo.co.ukwrote in message
>>
>news:39285d8 3-741b-48e5-b150-da460bb6f3b4@t1 g2000pra.google groups.com...
>>

On Aug 11, 6:47 pm, "Stephany Young" <noone@localhos twrote:

>>

>If it is the latter, then the solution is more complex because you
>need
>to
>consider parts of lines rather than whole lines. To do this you need
>to
>read
>from the top down and when you remove a line you need to start a new
>pass
>over the whole list.

>>

> ' Get the content of the file into a List(Of String).
> Dim _list = New List(Of String)(File.Re adAllLines("C:\ answer.txt"))

>>

> Dim _removal = True

>>

> While _removal
> _removals = False
> ' Read the list from the top down starting from line 2.
> For _i = 1 To _list.Count - 1
> ' If the line above (_i - 1) the line of interest (_i) contains
>the
>value of interest then remove the line of interest and start a new
>pass.
> If _list(_i - 1).Contains(_Li st(_i)) Then
> _list.RemoveAt( _i)
> _removal = True
> Next
> End While

>>

> ' Join the lines together NewLines and put the result in the
>textbox.
> TextBox1.Text = String.Join(Env ironment.Newlin e, _list.ToArray() )

>>

>The first pass will remove the second occurrence of:
> I assume that you wanted to know whether I can tell you about Wales.

>>

>The second pass will remove:
> whether I can tell you about Wales

>>

>The third pass will remove:
> Wales

>>

>The fourth pass will remove:
> an administrative division

>>

>The fifth pass will remove:
> the UK

>>

>The sixth pass will remove:
> Source:

>>

>The seventh pass will remove the second occurrence of:
> Go back to the START dialog window.

>>

>The eighth pass will remove the second occurrence of:
> Go back to the START dialog window.

>>

I get an error for this last method:

>>

Index was out of range. Must be non-negative and less than the size of
the collection. Parameter name: index

>>

pointing to this line here

>>

If _list(_i - 1).Contains(_li st(_i)) Then

>>

I can't see how it can be out of range since you have the index

>>

For _i = 1 To _list.Count - 1

>>

which makes sense.

>>

K.

>

[Rory Becker]

Re: Reading a Text File

Hello kronecker@yahoo .co.uk,

Not to nitpick too much, but is it not simpler to prevent the files from
being created in this haphazard fashion in the first place?

--
Rory

[kronecker@yahoo.co.uk]

Re: Reading a Text File

On Aug 11, 11:43 pm, Rory Becker <rorybec...@new sgroup.nospamwr ote:

Hello kronec...@yahoo .co.uk,
>
Not to nitpick too much, but is it not simpler to prevent the files from
being created in this haphazard fashion in the first place?
>
--
Rory

I am looking into this too.

K.