按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
even slightly； you must instantiate a new object； which would be the case if we used the = and
± operators。 The StringBuilder type is like String； except the referenced text can be modified。
In the Process（） implementation； the Do While loop calls the method Peek（）； which reads；
but does not remove； a character value from the stream。 If there is nothing more to read； a …1
value is returned。 Otherwise； data is available； and the method ReadLine（） can be called。
ReadLine（） will read a buffer of characters until a newline or return character is encountered。
Having read a line of text； it is split into the individual fields using the Split（） method。 The split
characters are the space and tab character （ControlChars。Tab）。
When the Split（） method returns； the individual fields are assigned to the array splitUpText。
Those array elements are iterated and appended to the StringBuilder variable retval； but each
element is surrounded by a set of brackets。 The brackets provide a set of boundaries that you
can inspect to see what data has been found。 I include the brackets purely for debugging purposes。
Because I am trying to reformat the stream； I append a newline character （ControlChars。NewLine） to
the variable retval。
When all of the lines of text and fields within the lines of text are iterated； a string represen
tation of the StringBuilder instance is returned using the ToString（） method。 Running the
code shows how many fields each line of text has and how you should format the text file。 This
gives you an understanding of how the file is structured。
The following is sample output from the lotto。txt file。
…………………………………………………………Page 287……………………………………………………………
CH A PT E R 1 0 ■ L E A R N I N G A B O U T P E R S IS T E N CE 265
（2000。01。15）（6）（10）（25）（26）（38）（42）（20）
（2000。01。19）（2）（16）（18）（23）（32）（43）（26）
（2000。01。22）（4）（5）（6）（24）（34）（38）（9）
（2000。01。26）（3）（20）（22）（24）（34）（39）（9）
（2000。01。29）（7）（12）（13）（34）（38）（39）（28）
（2000。02。02）（1）（18）（22）（28）（35）（43）（32）
（2000。02。05）（4）（13）（15）（31）（32）（45）（37）
（2000。02。09）（1）（29）（31）（34）（39）（41）（25）
。。。
（2006…12…27）（11）（13）（17）（21）（24）（26）（38）（578199）（735993）（）（）
（2006…12…30）（3）（13）（22）（30）（35）（41）（34）（142968）（472679）（）
（）
（）
（）
（2007…01…03）（5）（24）（37）（39）（41）（44）（9）（049802）（133875）（）（）
（2007…01…06）（3）（7）（23）（27）（30）（32）（38）（687442）（874814）（）（）
（2007…01…10）（7）（9）（13）（23）（35）（37）（25）（039498）（648301）（）（）
（2007…01…13）（3）（17）（22）（37）（39）（43）（34）（968842）（162860）（）（）
（2007…01…17）（12）（16）（27）（33）（37）（41）（24）（663824）（765917）（）（）
The sample output shows that we have the following items to fix：
o There are empty lines of text where no data has been defined。
o Some lines of text have empty fields at the end。
o Some fields have an incorrect date format。
o Some dates have duplicates； which need to be removed。
o Some lines of text have too many fields。 We need to figure out which fields we want to
keep and which we can discard。
■Note When processing streams and cleaning them up； it is important to take the stream apart first and
see what you are up against。 Do not make assumptions until you have looked at the individual pieces of data。
Then you will be able to determine the steps you need to undertake to fix the stream。
Fixing the Stream
The final solution uses the same code used to parse the lines of text and individual fields； as
follows （note； however； that we need the individual lines if the date format is correct； so we
store each one in the lineOfText variable）：
…………………………………………………………Page 288……………………………………………………………
266 CH AP T E R 1 0 ■ L E A R N I N G A B OU T P E R S IS TE N CE
Public Class LottoTicketProcessor ： Implements IProcessor
Private _dates As IList（Of String） = New List（Of String）（）
。 。 。
Public Function Process（ByVal input As String） As String
Implements IProcessor。Process
Dim reader As TextReader = New StringReader（input）
Dim retval As StringBuilder = New StringBuilder（）
Do While reader。Peek（） …1
Dim lineOfText As String = reader。ReadLine（）
Dim splitUpText As String（） =
lineOfText。Split（New Char（） ｛〃 〃c； ControlChars。Tab｝）
If _dates。Contains（splitUpText（0）） Then
Continue Do
End If
If splitUpText（0）。Length = 0 Then
Continue Do
End If
If splitUpText（0）。Contains（〃…〃） Then
Dim dateSplit As String（） = splitUpText（0）。Split（New Char（） ｛〃…〃c｝）
Dim newDate As String =
dateSplit（0） & 〃。〃 & dateSplit（1） & 〃。〃 & dateSplit（2）
If _dates。Contains（newDate） Then
Continue Do
End If
_dates。Add（newDate）
retval。Append（newDate）
For c1 As Integer = 0 To 7
retval。Append（〃 〃 & splitUpText（c1））
Next
Else
_dates。Add（splitUpText（0））
retval。Append（lineOfText）
End If
retval。Append（ControlChars。NewLine）
Loop
Return retval。ToString（）
End Func