| 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 |
| Assignment Drop Boxes | |
|
|
|
|