Обработка файловых данных.... - VB

Узнай цену своей работы

Формулировка задачи:

нужна небольшая помощь ...ни как доделать программу не получается.... нужно создать файл с предприятиями(код, название, планируемые затраты и реальные затраты) создала первую кнопку Private Sub Command1_Click() Dim Kod As Integer, Nazvanie As String, plnZat As Integer, realZat As Integer NameF = "D:\dan o predt.txt" Open NameF For Output As #1 F = 1 While F = 1 Kod = InputBox("Введите код") Nazvanie = InputBox("Введите название") plnZat = InputBox("Планируемые затраты на тех. перевооружение на каждый год пятилетия") realZat = InputBox("Реальные затраты за каждый год пятилетия") Write #1, Nom, Kod, Nazvanie, plnZat, realZat F = InputBox("Для продолжения ввода нажмите 1, иначе 0") Wend Close #1 MsgBox "Создание файла завершено" End Sub После чего он создал мне файл с данными на : D и мне нужно,чтобы программа выводила максимальные затраты за пять лет.Другими словами, создать формулу вычисления...(во второй кнопке) Я пробовала решить при помощи массива и чего то не получилось . Может если есть у кого то идеи подскажите?? Пожалуйста=)

Решение задачи: «Обработка файловых данных....»

textual
Листинг программы
Dim FL As String
Dim SOST AS String
Dim FIR()  AS String
FL = "D:\dan o predt.txt"
   Open FL For Binary As #1   'откpоем файл для чтения
      SOST = Input(FileLen(FL), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла
   Close #1   'закpыть файл
FIR = Split(SOST, vbNewLine) получаешь массив строк
S = Split(FIR(J), ",") а уже при обработке каждую строку разбиваешь на элементы

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.846 из 5
Похожие ответы