Монтаж, эксплуатация и ремонт технологического оборудования. Курсовое проектирование. Юнусов Г.С - 139 стр.

    CommonDialog1.FileName = FName
    CommonDialog1.DefaultExt = ExtName
    CommonDialog1.ShowOpen
    If CommonDialog1.FileName <> "" Then
      FlName = CommonDialog1.FileName
      Open FlName For Input As #1
      Input #1, StrR 'Titul
      If StrR <> Titul Then
        I = MsgBox("Файл создан не этой программой!", vbOK-
Only, "Ошибка")
        Reset
        CommonDialog1.FileName = ""
        Exit Sub
      End If
      For I = 1 To 4
        Input #1, StrR 'Название крана
        Input #1, StrR 'Число строк в таблице
        N = Val(StrR)
        For J = 1 To N
          Input #1, StrR 'Читаем число из таблицы
          If StrR = "0" Then StrR = ""
          MSFlexGrid1(I - 1).TextMatrix(J, 1) = StrR
        Next J
      Next I
      Reset
      CommonDialog1.FileName = ""
    End If
  End Sub
  Private Sub SaveData()
  ' Процедура сохранения данных в файле
    CommonDialog1.Filter = "Data files (*.dat)|*.dat"
    CommonDialog1.FileName = FName
    CommonDialog1.DefaultExt = ExtName
    CommonDialog1.ShowSave
    If CommonDialog1.FileName <> "" Then
      FlName = CommonDialog1.FileName
      Open FlName For Output As #1
      Write #1, Titul
      For I = 1 To 4
        If I = 1 Then StrR = "Данные для башеного крана"
                             138