CSS 341  Fundamentals of Programming Theory and Application

Function StoreTextDataToArray(ByRef inputTextStream, ByRef data())
ReDim data(kArraySizeIncrement)
Dim counter
counter = 0
Do While inputTextStream.AtEndOfStream <> TRUE
     If (counter > UBound(data)) Then
          ReDim Preserve data( UBound(data) + kArraySizeIncrement )

     End If
    data(counter) = inputTextStream.ReadLine
    If ( data(counter) <> "") Then
         counter = counter + 1
    End If
Loop
StoreTextDataToArray = counter
End
Function

 


General Course Information


Computing Information



UW Library Resources on Web.


Modified August 24, 2009
E-mail: jackels@u.washington.edu