Ron wrote:
Yes I can provide a portion of my textfile. The textfile that we use
is always less than 2MB, after it gets that big we usually archive it
into a database.
a sample of the file:
Part number descriptions sorted by type and time built
========================================
AU-22453 Thermal paster AU-22468 Thermal paster control AU-22490
Thermal trial packs AU-22628 Control unit plates AU-22615 Paste dust
AU-226221503 NOX Connector
so what I want to do is just count the AU because I know anyhting that
has an AU will be a part. All I want is to count and display the
number of current parts in the file. I would love to read the file
in, display it in grey text in a label and highlight all the AU in
say Green and then also display the count of the AU's. But having
just a message box with the count of parts will be just fine.
thanks for any help
As a Label cannot have multi-coloured text, you will need to use a
RichTextBox. Add one to your Form, then add the following code to a
Button Click event (watch for line wrapping) -
RichTextBox1.Text =
My.Computer.FileSystem.ReadAllText("c:\cmasterpart s.txt")
Dim iStartPosition, iEndPosition, iPartNumberCounter As Integer
Do
iStartPosition = InStr(iStartPosition + 1, RichTextBox1.Text, "AU-")
If iStartPosition 0 Then
iEndPosition = InStr(iStartPosition, RichTextBox1.Text, " ")
RichTextBox1.Select(iStartPosition - 1, iEndPosition - iStartPosition)
iStartPosition = iEndPosition
RichTextBox1.SelectionColor = Color.Green
iPartNumberCounter += 1
End If
Loop Until iStartPosition = 0
MsgBox(String.Format("Number of Product Codes = {0}", iPartNumberCounter))
This should be sufficient to get you started.
Basically, it reads the entire Text File into the RichTextBox. It then
enters the Do...Loop looking for "AU-". When found, it then finds the
end of the AU- block, selects the range and changes the colour to Green.
It also counts each occurrence it finds and, when completed, displays a
MsgBox showing the counted value.
If a Part Number occurs at the very end of a line then it will look into
the following line for the End of the Part Number. There would be a
number of ways to fix this, but I've got to leave something for you to do!
It hope this helps.
ShaneO
There are 10 kinds of people - Those who understand Binary and those who
don't.