1: 2: 3: 4: 5: 6: 7: 8: 9:
Затемните I как интежер Затемните currentRow как шнур Using myreader как новое FileIO.TextFieldParser («c:\temp\adam.txt ") Пока не myreader.EndOfData currentRow = myreader.ReadLine () iий = I + 1 Закончитесь пока Закончитесь Using