1. Pascal / Говнокод #17956

    +101

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    var
  Excel: OleVariant;
  Rows, Cols: integer;
  WorkSheet: OleVariant;
  DebugList: TStringList;
  I, j, CSeek: integer;
  R, ArrV: OleVariant;
  ObjData: TDataContainer;
  D: integer;
begin
 {$IFDEF DEBUG}
  DebugList := TStringList.Create;
 {$ENDIF}
  try
    Excel := CreateOleObject('Excel.Application');
    Excel.Visible := false;
    Excel.Workbooks.Open[DocPath, 0, True];
    WorkSheet := Excel.ActiveWorkbook.ActiveSheet;
    R := Excel.Intersect(WorkSheet.UsedRange,
      WorkSheet.UsedRange.Offset[14, 0]);
    ArrV := R.Value;
    Rows := VarArrayHighBound(ArrV, 1);
    Cols := VarArrayHighBound(ArrV, 2);
    {$IFDEF DEBUG}
    DebugList.Add(Format('Количество ячеек в таблице = %d', [(Rows) * Cols]));
    DebugList.Add(Format('Rows = %d, Cols = %d', [Rows, Cols]));
    {$ENDIF}
    CSeek := 0;
    D := 1;
    for I := 1 to Rows do
    begin
      if (CompareStr(Trim(VarToStr(ArrV[I, 1])), Trim('Итого')) = 0) then
        Break;
      if (CompareStr(Trim(VarToStr(ArrV[I, 1])),
        Trim('отдел')) = 0) or
        (CompareStr(Trim(VarToStr(ArrV[I, 1])), Trim('10.05')) = 0) or
        (CompareStr(Trim(VarToStr(ArrV[I, 1])), Trim('10.06')) = 0) or
        (CompareStr(Trim(VarToStr(ArrV[I, 1])), Trim('10.09')) = 0) then
      begin
        CSeek := I + 2;
        Continue;
      end;
      if CSeek > I then
        Continue;
      for j := 1 to Cols do
      begin
        case j of
          1:
            begin
              if VarToStr(ArrV[I, j]) <> '' then
              begin
                ObjData := TDataContainer.Create;
                ObjData.Name := ArrV[I, j];
              end;
            end;
          3:
            begin
              if VarToStr(ArrV[I, j]) <> '' then
                ObjData.InventoryNumber := GetInventoryNumber(ArrV[I, j]);
            end;
          10:
            begin
              if (D mod 2 <> 0) then
              begin
                if VarToStr(ArrV[I, j]) <> '' then
                  ObjData.DataCount := ArrV[I, j];
              end
              else
                ObjData.Cost := ArrV[I, j];
 
              if (ObjData <> nil) and (ObjData.DataCount > 0) then
              begin
                FData.Add(ObjData);
                DebugList.Add(ObjData.AsString);
              end;
            end;
        end;
        Inc(D);
      end;
    end;
    {$IFDEF DEBUG}
    DebugList.Add('Objects created: ' + IntToStr(FData.Count));
    D:=1;
    for ObjData in FData.Items.Values do
       D := D + ObjData.DataCount;
    DebugList.Add('Total objects count: ' + IntToStr(D));
    DebugList.SaveToFile('C:\ExcelDebug.txt');
    {$ENDIF}
  finally
    {$IFDEF DEBUG}
    DebugList.Free;
    {$ENDIF}
    Excel.Quit;
  end;
end;

    При разборе выхлопа из 1С в Excel - excel и формат выгрузки сделали всё, чтобы я люто наговнокодил-(

    Запостил: Cynicrus, 08 Апреля 2015

    Комментарии (4) RSS

    • ava guest 11.04.2015 19:25 # 0

      Нахуя создавать объект втихую? Открой вкладку Servers, там визуальный компонент есть.
      >>CompareStr(Trim(VarToStr(ArrV[I, 1])), Trim('10.05')) = 0) or
      (CompareStr(Trim(VarToStr(ArrV[I, 1])), Trim('10.06')) = 0) or
      (CompareStr(Trim(VarToStr(ArrV[I, 1])), Trim('10.09')) = 0) then

      я сомневаюсь, что компилятор настолько умный, чтобы оптимизировать это. Лучше пожертвовать памятью - юзать переменные+assert.
      Ответить

      • ava Cynicrus 12.04.2015 01:34 # −1

        Нафига мне визуальный компонент? А это говно да, оптимизировал-)
        Ответить

    • ava max-wiz 13.05.2015 13:17 # +1

      a) (D mod 2 <> 0) ? а чем функция Odd() не понравилась?
      b) Создание ObjData в цикле чудесно. Если в текущей строке 1-е поле пустое, а 3-е или 10-е заполнены - либо Access violation либо запишется в предыдущую копию объекта.
      c) на визуальном компоненте было бы понятнее и проще, imho
      Ответить

      • ava guest 16.06.2015 10:30 # 0

        a) согласен b) Так очевидно, что одна логическая строка, занимает 2 логических. c) А если приложение консольное?-)
        Ответить

    Добавить комментарий