Обработка файловых данных.... - 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), ",") а уже при обработке каждую строку разбиваешь на элементы
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д