Чтение из файла.

[PAVEL_USER]

Подскажите пожалуйста...
Дан текстовый файл, в нем н-ное количество строк,
Каждая строка имеет числовое значение...
Как найти сумму всех значений строк?[/syntax][/syntax][/u][/code]

[Viper]

Ндя... а что-то уже пробовалось? Или знаний полный нуль а надо что-то делать? "шеф все пропало, гипс снимают, клиент уезжает"?

[PAVEL_USER]

Смысл в том, чтобы значение каждой строки присваивать какой либо переменной...а затем суммировать...[/syntax]

[Kovu]

Ну дык в чем проблема? Прошелся циклом по файлу суммируя переведенные в число строки из него.

[lister]

Типа того...

Код: Выделить всё

  Dim i As Integer
  Dim fn As Integer
  Dim strBuffer As String
  Dim vntArray As Variant
  Dim lngSumma As Long
 
 
  fn = FreeFile
  Open App.Path & "/filename.txt" For Binary Access Read As fn
    strBuffer = String(LOF(fn), vbNullChar)
    Get #fn, , strBuffer
  Close fn
 
  vntArray = Split(strBuffer, vbCrLf)
 
  If IsArray(vntArray) Then
    For i = LBound(vntArray) To UBound(vntArray)
      lngSumma = lngSumma + Val(vntArray(i))
     
    Next
   
  End If
 
  Debug.Print lngSumma

[|kerish|]

PAVEL_USER Получил и отскочил

[PAVEL_USER]

Мои благодарности, lister.