1. Список говнокодов пользователя d_dev

    Всего: 5

  2. Куча / Говнокод #9236

    +127

    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
    resid := "ANeNaidenVidShortNameNA";
    defval := "(Не найден вид '(ShortNameNA)')";
    nenay:=@DbLookup("":"NoCache";"":"ResDB.nsf";"(Res)";lng+resid;2);
    nenay:=@If(@IsError(nenay);defval;nenay);
    
    key:=@Name([Abbreviate]; @UserName);
    
    serv:=@GetProfileField("CommonDBProfile"; "StructServer"; @ServerName);
    db:=@GetProfileField("CommonDBProfile"; "StructDB"; @ServerName);
    
    @If (serv="" | db=""; @Do(
    @Prompt([Ok];osh; vstr);
    @Return(vstr)
    ); "");
    
    StructServer1:=@DbLookup("":"NoCache"; serv:db; "(NAShortNamePost)"; key; "StructServer" ) ;
    StructDB1:=@DbLookup("":"NoCache"; serv:db; "(NAShortNamePost)"; key; "StructDB" ) ;
    
    @If(StructDB1 = ""; @Do(@Prompt([Ok]; vnim; vstr); @Return("")); @Success);
    a := @Trim(@PickList([Custom];StructServer1 :StructDB1; "(ShortNameNA)";sel; sel1; 5));
    @If(@IsError(a); @Do(@Prompt([Ok]; osh; nenay); @Return("")); @Success);
    @If(a = ""; @Do(@Prompt([Ok]; vnim; vneob); @Return("")); @Success);
    
    FIELD NamesAlias:=  @Middle(a; "$"; "#");
    FIELD IndDepart := @Explode(@Implode(@Trim(@Left(a;"*"));";");";");
    FIELD Depart := @Middle(a; "*"; "$");
    FIELD Empl :=  @Middle(a; "$"; "#");
    
    FIELD EmplNotesAdr:= @Explode(@Implode(@Trim(@Middle(a; "#"; "%"));";");";");
    FIELD Replacer := @Trim(@Middle(a; "%"; "?"));
    
    FIELD ReplacerNotesAdr := @Explode(@Implode(@Trim(@Middle(a; "?"; "+"));";");";");
    
    FIELD ServerName:=@Explode(@Implode(@Trim(@Right(a;"+"));";");";");
    REM {FIELD CtrlDate:=@Adjust(@Today;0;1;0;0;0;0 )};
    FIELD a3:=@Date(@Today);
    
    FIELD a6:=@Middle(a; "$"; "#")+"<< >> " ;
    
    FIELD IndDepart:=IndDepart ;
    FIELD Depart:=Depart;
    FIELD Replacer :=@Unique(Replacer );
    FIELD ReplacerNotesAdr:=@Unique(@Name([Abbreviate];  ReplacerNotesAdr));
    FIELD ServerName:=@Unique(@Name([Abbreviate];ServerName));
    @Command([RunAgent];"(CheckWall)");
    @Command([RefreshFrame];"Document")

    документооборот епта

    d_dev, 27 Января 2012

    Комментарии (5)
  3. Pascal / Говнокод #8367

    +100

    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
    {Podschet dlini}
    Reset(f1);
    kol:=0;
    while not eof(f1) do begin
    readln(f1,l);
    For i1:=1 to length(l) do if (l[i]='a')or(l[i]='A') or (l[i]='b')or(l[i]='B')
    or(l[i]='c')or(l[i]='C')or(l[i]=' ')or(l[i]='d')or(l[i]='D')
    or(l[i]='e')or (l[i]='E') or(l[i]='f') or(l[i]='F')
    or (l[i]='g')or (l[i]='G') or (l[i]='h')or(l[i]='H')
    or(l[i]='i')or(l[i]='I')or(l[i]='J')or(l[i]='j')
    or(l[i]='k')or(l[i]='K')or(l[i]='l')or(l[i]='L')
    or (l[i]='m')or (l[i]='M')or(l[i]='n')or(l[i]='N')
    or (l[i]='o')or(l[i]='O')or(l[i]='p')or(l[i]='P')
    or(l[i]='q')or(l[i]='Q')or (l[i]='r')or (l[i]='R')
    or(l[i]='S')or(l[i]='s')or(l[i]='t')or(l[i]='T')
    or(l[i]='v')or(l[i]='V') or(l[i]='w')or(l[i]='W')
    or(l[i]='u')or(l[i]='U')or(l[i]='x')or(l[i]='X')
    or(l[i]='y')or(l[i]='Y')or (l[i]='z')or(l[i]='Z') then
    kol:=kol+1;
    end;
    WriteLn('kol=',kol);

    Необходимо создать текстовый файл, содержащий исходную программу, а также подсчитать длину созданного файла.
    http://ithappens.ru/story/7652

    d_dev, 31 Октября 2011

    Комментарии (4)
  4. Pascal / Говнокод #8213

    +103

    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
    procedure tform1.cek_setting;
    begin
     { RUTIN CEK FILE CONFIG }
      { Cek File Buzz.cfg }
     status := '';
     ceklagu('C:\Windows\buzz.cfg');
     status := cek_lagu;
     if status = 'sukses' then
     begin
      listbox2.Items.LoadFromFile('C:\Windows\buzz.cfg');
      load_setting;
      save_setting;
     end else
     begin
      default_setting;
      load_setting;
      save_setting;
     end;
      { Cek File Buzz.dat }
     status := '';
     ceklagu('C:\Windows\buzz.dat');
     status := cek_lagu;
     if status = 'sukses' then
     begin
      listbox3.Items.LoadFromFile('C:\Windows\buzz.dat');
      convert_files;
     end else
      listbox3.Items.SaveToFile('c:\Windows\buzz.dat');
     { Cek File Buzz.sld }
     status := '';
     ceklagu('C:\Windows\buzz.sld');
     status := cek_lagu;
     if status = 'sukses' then
     begin
      listbox4.Items.LoadFromFile('C:\Windows\buzz.sld');
     end else
      listbox4.Items.SaveToFile('C:\Windows\buzz.sld');
    end;

    https://github.com/achri/Buzzwave/blob/master/Unit1.pas
    Там такого завались, achriнеть можно.

    d_dev, 17 Октября 2011

    Комментарии (25)
  5. Куча / Говнокод #8162

    +141

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    %%%sum_middle_by_formula_div_formula###$$$"""" + @if(Ispoln="" & @Text(a3)!="" &
     @Text(CtrlDate)!="";(CtrlDate-a3)/86400;Ispoln="" & @Text(a3)!="" &
     @Text(CtrlDate)="";(@Now-a3)/86400;Ispoln="" & @Text(DateDoc)!="" &
     @Text(CtrlDate)!="";(CtrlDate-DateDoc)/86400;Ispoln="" & @Text(DateDoc)!="" &
     @Text(CtrlDate)="";(@Now-DateDoc)/86400;Ispoln="1" & @Text(a3)!="" &
     @Text(a10)!="";(a10-a3)/86400;Ispoln="1" & @Text(a3)!="" &
     @Text(a10)="";(@Now-a3)/86400;Ispoln="1" & @Text(DateDoc)!="" &
     @Text(a10)!="";(a10-DateDoc)/86400;Ispoln="1" & @Text(DateDoc)!="" &
     @Text(a10)="";(@Now-DateDoc)/86400;(@Now-@Created)/86400) + """"~~~"1"&&&
     %%%resultsbyselectedcolumns###"ИТОГО"$$$@Text(kolvo) + "~~~" + "-" + "~~~" + 
     "-" + "~~~" + "-" + "~~~" + @Text(ispor) + "~~~" + @Text(ispolz) + "~~~" + 
     @Text(vsego) + "~~~" + "-"&&&

    Мало того что Lotus Notes сам по себе говно по сути и содержанию, так вот некоторые умельцы умудряются возвести это говно в степень так, что оно начинает глаза резать...
    ЗЫ. Это шаблон скрипта используемого в модуле отчетов. Там такого тонны...
    ЗЫЗЫ. Если автор этого узнал свое творение, пожалуйста убейся, быстро, решительно, я зае***ся это разгребать.

    d_dev, 11 Октября 2011

    Комментарии (3)
  6. Pascal / Говнокод #8141

    +89

    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
    unit uIsPalindrome; 
      
    interface
      
    function IsPalindrome(const aString: string): Boolean; 
      
    implementation
      
    uses
           Spring.Collections 
         , {$IF CompilerVersion >= 230}System.{$IFEND}SysUtils 
         ; 
      
    function CleanString(const aString: string): string; 
    var
      C: char; 
    begin
      // Remove all non-alpha chars and make all lower case 
      // Spaces don't matter, so let's count only letters 
      Result := ''; 
      for C in LowerCase(aString) do
      begin
        if CharInSet(C, ['a'..'z', 'A'..'Z']) then
        begin
          Result := Result + C; 
        end; 
      end; 
    end; 
      
    function IsPalindrome(const aString: string): Boolean; 
    var
      Stack: IStack<Char>; 
      C: Char; 
      NoSpaces: string; 
      Temp: string; 
    begin
      NoSpaces :=  CleanString(aString); 
      
      Stack := TCollections.CreateStack<Char>; 
      for C in NoSpaces do
      begin
        Stack.Push(C); 
      end; 
      Temp := ''; 
      repeat
        Temp := Temp + Stack.Pop; 
      until Stack.Count = 0; 
      Result := Temp = NoSpaces; 
    end; 
      
    end.

    true java style...

    d_dev, 10 Октября 2011

    Комментарии (31)