Говнокод: по колено в коде.

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5703)
2. C++ (2740)
3. Куча (2339)
4. JavaScript (2030)
5. C# (1930)
6. Java (1503)
7. Си (1103)
8. Pascal (649)
9. Python (585)
10. 1C (536)
11. SQL (434)
12. ActionScript (294)
13. Objective C (204)
14. bash (200)
15. Perl (196)
16. Assembler (148)
17. Ruby (144)
18. VisualBasic (140)
19. Lua (51)
20. Go (32)
21. Swift (29)
22. Haskell (28)
23. Kotlin (15)

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

   Всего: 7

2. Си / Говнокод #18185

   +130

   1. 001
   2. 002
   3. 003
   4. 004
   5. 005
   6. 006
   7. 007
   8. 008
   9. 009
   10. 010
   11. 011
   12. 012
   13. 013
   14. 014
   15. 015
   16. 016
   17. 017
   18. 018
   19. 019
   20. 020
   21. 021
   22. 022
   23. 023
   24. 024
   25. 025
   26. 026
   27. 027
   28. 028
   29. 029
   30. 030
   31. 031
   32. 032
   33. 033
   34. 034
   35. 035
   36. 036
   37. 037
   38. 038
   39. 039
   40. 040
   41. 041
   42. 042
   43. 043
   44. 044
   45. 045
   46. 046
   47. 047
   48. 048
   49. 049
   50. 050
   51. 051
   52. 052
   53. 053
   54. 054
   55. 055
   56. 056
   57. 057
   58. 058
   59. 059
   60. 060
   61. 061
   62. 062
   63. 063
   64. 064
   65. 065
   66. 066
   67. 067
   68. 068
   69. 069
   70. 070
   71. 071
   72. 072
   73. 073
   74. 074
   75. 075
   76. 076
   77. 077
   78. 078
   79. 079
   80. 080
   81. 081
   82. 082
   83. 083
   84. 084
   85. 085
   86. 086
   87. 087
   88. 088
   89. 089
   90. 090
   91. 091
   92. 092
   93. 093
   94. 094
   95. 095
   96. 096
   97. 097
   98. 098
   99. 099
   100. 100

   #include <stdio.h>
   #include <stdlib.h>
   #include <fcntl.h>
   #include <stat.h>
   #include <conio.h>
   #include <io.h>
   #include <dos.h>
   #include <time.h>
   
   unsigned char kod_key;
   int DIAG_F,P,R,o,u,i,i2,i3,j=0,j1,j2,i1,KPR,PNSKV,KOLS,KOLS_S,KOLS_P,KS=0,KOLT,KOLT_S,KOLT_P,MAXTM,MAXTM_S,MAXTM_P;
   int F_k=0,F_PrR=0,F_N_Sv=0,K_dov,K_raz,PROZ,PROZ1,NS,NS_S,NS_P,NT_S,NT_P,NT;
   long POZ,POZ1,KOLM;
   float SDAT,x=0.0,v,v1,v2,DP=1.0,KK,KDAT=1.0,MS_P,MSO,MSO_P,MSO_S,MS, DS,DS_S,DS_P,MINMS,MINMS_S,MINMS_P,MAXMS,MAXMS_S,MAXMS_P,PM,PM_S,PM_P,MS_TEK;
   
   unsigned int k=0,k1=0,k2=0;
   float min,max,m[10],w2, w,w1;
   clock_t t1,t2,t3,t4,t5,tc_MIN,tc_MSO;
   
   time_t l1,l2;
   
   struct date d;
   struct time t,t_MIN,t_MSO;
   int F1,F2;
   union REGS rg;
   
   
   //...........................
   
   void sign()
   {
   i3++;
   x=x+(0.00001*i3);
   /*x=x+0.00244;*/
   v=x;
   v=(v+5)/0.00244;
   v1=v/256;
   v2=(int)v%256;
   outportb(BASE_5710+12,v2);
   outportb(BASE_5710+13,v1);
   }
   
   
   //...........................
   
      K_dov=0;
   kod_key=0;
   
   d1:
   while(!kod_key)
   {
   _AH=3;
   _AL=1;
   _DX=1;
   geninterrupt(0x17);
   kod_key=_AH;
   opros();
   if(MS_TEK>=2*PM)
   break;
   }
   if(kod_key)
   {
       switch(kod_key)
   
      {
      case 5:
      K_dov=1;
     goto kon_d;
      break;
   
      default:
      kod_key=0;
      goto d1;
      break;
   
   }
    }
   
   if(R==1)
   {
   R=0;
   NT++;
   }
   
   //...........................
   
   if(kod_key)
   {
       switch(kod_key)
   
      {
      case 5:
      K_dov=1;
     goto kon_d;
      break;
      default:
      kod_key=0;
      break;
   }
     }

   Код из реального коммерческого проекта. Все переменные объявлены глобально. Весь код в 2100 строк находится в одном файле. Комментариев нет. Внятных имён нет. Форматирования нет. Магические коэффициенты и флаги непонятных состояний повсюду. Бесконечное самоповторение. В наличии 7 функций, 2 из которых - это 85% всего кода проекта. Переходы по goto на 500 строчек в любом направлении.

   vr8h, 16 Мая 2015

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

3. C++ / Говнокод #18184

   +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
   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

   void __fastcall TForm1::BitBtn1Click(TObject *Sender)
   {
   BitBtn1->Enabled=false;
   
   String KolDaysInMonth=MonthDays[IsLeapYear(Edit1->Text.ToInt())][ComboBox1->ItemIndex];//кол-во дней в месяце выбранного года
   String TimeOT="cast('"+String(ComboBox1->ItemIndex+1)+".01."+Edit1->Text+" 00:00:00' as datetime)";
   String TimeDO="cast('"+String(ComboBox1->ItemIndex+1)+"."+KolDaysInMonth+"."+Edit1->Text+" 23:59:59' as datetime)";
   String BTWOTDO="BETWEEN "+TimeOT+" and "+TimeDO;
   AnsiString NomZav="";
   AnsiString NomPar="";
   
   //заявки
   ADOQuery1->Close();                                                                //and nomzav NOT IN (select distinct nomzav from ochzav.dbf where deleted=0 and nomopr IN (select distinct nomoprl from kompar.dbf where deleted=0 and nompar IN (select distinct nompar from kompar.dbf where deleted=0 and datzaob NOT "+BTWOTDO+")))
   ADOQuery1->SQL->Clear();                                                                    //and nomzav NOT IN (select distinct nomzav from ochzav.dbf where deleted=0 and dakote NOT "+BTWOTDO+")
   ADOQuery1->SQL->Add("select distinct nomzav from ochzav.dbf where deleted=0             and dakote "+BTWOTDO+" and nomzav NOT IN (select distinct nomzav from ochzav.dbf where deleted=0 and dakote>"+TimeDO+")              and nomzav NOT IN (select distinct nomzav from ochzav.dbf where deleted=0 and nomopr IN (select distinct nomoprl from kompar.dbf where deleted=0 and datzaob IS NULL))                 and nomzav NOT IN (select distinct nomzav from ochzav.dbf where deleted=0 and nomopr IN (select distinct nomoprl from kompar.dbf where deleted=0 and nompar IN (select distinct nompar from kompar.dbf where deleted=0 and nomoprl IN (select distinct nomopr from ochzav.dbf where deleted=0 and dakote IS NULL))))");
   ADOQuery1->Open();
   if (!ADOQuery1->Eof) {//если что то нашлось
   while (!ADOQuery1->Eof) {
   NomZav=NomZav+"'"+ADOQuery1->FieldByName("nomzav")->AsString.Trim()+"',";
   ADOQuery1->Next();
   }
   NomZav=NomZav.Delete(NomZav.Length(),1);//обрезаем запятую на конце
   
   //партии
   ADOQuery1->Close();
   ADOQuery1->SQL->Clear();                                                            //and nompar NOT IN (select distinct nompar from kompar.dbf where deleted=0 and datzaob NOT "+BTWOTDO+")
   ADOQuery1->SQL->Add("select distinct nompar from kompar.dbf where deleted=0                      and nompar IN (select distinct nompar from kompar.dbf where deleted=0 and nomoprl IN (select distinct nomopr from ochzav.dbf where deleted=0 and nomzav IN ("+NomZav+")))");
   ADOQuery1->Open();
   if (!ADOQuery1->Eof) {//если что то нашлось
   while (!ADOQuery1->Eof) {
   NomPar=NomPar+"'"+ADOQuery1->FieldByName("nompar")->AsString.Trim()+"',";
   ADOQuery1->Next();
   }
   NomPar=NomPar.Delete(NomPar.Length(),1);//обрезаем запятую на конце
   
   }
   }
   
   
   if (NomZav.Trim().Length()==0||NomPar.Trim().Length()==0) {
   ShowMessage("Не найденно завершённых заявок и партий за "+ComboBox1->Text+" "+Edit1->Text+" года");
   BitBtn1->Enabled=true;
   Abort();
   }
   
   if (Application->MessageBoxA(AnsiString("Вы действительно хотите удалить все завершённые заявки и партии за "+ComboBox1->Text+" "+Edit1->Text+" года?\n\n"
   "Завершённые заявки: "+NomZav+"\nЗавершённые партии: "+NomPar).c_str(),"Удаление завершённых заявок и партий",MB_YESNO)==IDYES) {
   
   //удаление партий из ochpar.dbf
   ADOQuery1->Close();
   ADOQuery1->SQL->Clear();
   ADOQuery1->SQL->Add("update ochpar.dbf set deleted=1 where deleted=0 and nompar IN ("+NomPar+")");
   ADOQuery1->ExecSQL();
   
   //удаление партий из kompar.dbf
   ADOQuery1->Close();
   ADOQuery1->SQL->Clear();
   ADOQuery1->SQL->Add("update kompar.dbf set deleted=1 where deleted=0 and nompar IN ("+NomPar+")");
   ADOQuery1->ExecSQL();
   
   //удаление заявок из ochzav.dbf
   ADOQuery1->Close();
   ADOQuery1->SQL->Clear();
   ADOQuery1->SQL->Add("update ochzav.dbf set deleted=1 where deleted=0 and nomzav IN ("+NomZav+")");
   ADOQuery1->ExecSQL();
   
   ShowMessage("Удаление партий и заявок за "+ComboBox1->Text+" "+Edit1->Text+" года завершено успешно");
   }
   
   BitBtn1->Enabled=true;
   }

   vr8h, 16 Мая 2015

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

4. C++ / Говнокод #18183

   +141

   1. 001
   2. 002
   3. 003
   4. 004
   5. 005
   6. 006
   7. 007
   8. 008
   9. 009
   10. 010
   11. 011
   12. 012
   13. 013
   14. 014
   15. 015
   16. 016
   17. 017
   18. 018
   19. 019
   20. 020
   21. 021
   22. 022
   23. 023
   24. 024
   25. 025
   26. 026
   27. 027
   28. 028
   29. 029
   30. 030
   31. 031
   32. 032
   33. 033
   34. 034
   35. 035
   36. 036
   37. 037
   38. 038
   39. 039
   40. 040
   41. 041
   42. 042
   43. 043
   44. 044
   45. 045
   46. 046
   47. 047
   48. 048
   49. 049
   50. 050
   51. 051
   52. 052
   53. 053
   54. 054
   55. 055
   56. 056
   57. 057
   58. 058
   59. 059
   60. 060
   61. 061
   62. 062
   63. 063
   64. 064
   65. 065
   66. 066
   67. 067
   68. 068
   69. 069
   70. 070
   71. 071
   72. 072
   73. 073
   74. 074
   75. 075
   76. 076
   77. 077
   78. 078
   79. 079
   80. 080
   81. 081
   82. 082
   83. 083
   84. 084
   85. 085
   86. 086
   87. 087
   88. 088
   89. 089
   90. 090
   91. 091
   92. 092
   93. 093
   94. 094
   95. 095
   96. 096
   97. 097
   98. 098
   99. 099
   100. 100

   AnsiString SQLAdderFictDel(TADOQuery * QueryForTry,/*для неотображаемых операций*/
   TADOQuery * QueryForOpen,/*для отображаемых операций*/ AnsiString TableName,/*имя таблицы*/ AnsiString Deleted,/*имя поля "признак удаления"*/
   AnsiString AutoInc,/*автоинкримент(уникальное в представлении СУБД)*/ AnsiString SQL_TestOnUnique,/*уникальные поля в представлении пользователя(одно или несколько, если таковых нет, то им будет являться автоинкримент(уникальное в представлении СУБД("and id = "+id_который_под_курсором)))*/
   AnsiString SQL_Insert_Fields,/*имена полей, в которые надо внести значения*/ AnsiString SQL_Insert_Values,/*вносимые значения*/
   AnsiString SQL_Update_Str,/*имена полей и вносимые значения*/ AnsiString CursorRec,/*значение уникального поля под курсором("0", если ToUpdating == false)*/ AnsiString Order,/*упорядочивание*/ 
   bool ToUpdating,/*true, если используется для update*/ bool CursorToAddUpdRec,/*true, если нужно поместить курсор на добавленную запись(только если уникальное поле(в представлении СУБД) - автоинкримент)*/ bool ReturnRealFutureID)/*true, если нужно вернуть значение ID, которое будет добавлено в следующий раз*/
   {
   	AnsiString ValToLocate,/*значение уникального поля будущей записи*/ DP;/*формирование значения уникального поля(либо первое попавшееся удалённое, либо под курсором)*/
   	if (CursorToAddUpdRec==true&&ToUpdating==false)//ПОИСК ЗНАЧЕНИЯ УНИКАЛЬНОГО ПОЛЯ БУДУЩЕЙ ЗАПИСИ 
   	{
   		QueryForTry->Close();
   		QueryForTry->SQL->Clear();
   		QueryForTry->SQL->Add("select "+AutoInc+" from "+TableName+" where "+Deleted+" = 1 order by "+AutoInc+" asc");//отображаем то, что получилось
   		QueryForTry->Open();
   		if (QueryForTry->Eof) 
   		{
   			QueryForTry->Close();
   			QueryForTry->SQL->Clear();
   			QueryForTry->SQL->Add("select max("+AutoInc+") from "+TableName+" where "+Deleted+" = 0");//отображаем то, что получилось
   			QueryForTry->Open();
   			ValToLocate=QueryForTry->Fields[0][0]->AsString.ToIntDef(0)+1;
   		}
   		else ValToLocate=QueryForTry->Fields[0][0]->AsString.ToInt();
   	}
   	else if (CursorToAddUpdRec==true&&ToUpdating==true) ValToLocate=CursorRec;
   	if (ToUpdating) 
   	{//удаление выделенного поля
   		QueryForTry->Close();
   		QueryForTry->SQL->Clear();
   		QueryForTry->SQL->Add("update "+TableName+" set deleted = 1 where "+AutoInc+" = "+CursorRec);
   		QueryForTry->ExecSQL();
   	}
   	QueryForTry->Close();
   	QueryForTry->SQL->Clear();
   	QueryForTry->SQL->Add("select distinct "+Deleted+" from "+TableName+" where "+Deleted+" = 0 "+SQL_TestOnUnique);//проверка на уникальность(есть ли запись со значениями соответствующих полей?)
   	QueryForTry->Open();
   	if (!QueryForTry->Eof) 
   	{//если тест на уникальность провален(такая запись уже есть)
   		if (ToUpdating) 
   		{//восстановление поля, удалённого при выделении
   			QueryForTry->Close();
   			QueryForTry->SQL->Clear();
   			QueryForTry->SQL->Add("update "+TableName+" set deleted = 0 where "+AutoInc+" = "+CursorRec);
   			QueryForTry->ExecSQL();
   		}
   		MessageDlg("Такая запись уже существует!",mtWarning,TMsgDlgButtons()<<mbOK,0);
   		return ".FAIL.";
   	}
   	else 
   	{//проверяются поля с фильтром удаления("удалённые")
   		QueryForTry->Close();
   		QueryForTry->SQL->Clear();
   		QueryForTry->SQL->Add("select distinct "+AutoInc+" from "+TableName+" where "+Deleted+" = 1");//выбрать поля в которых есть признак отсутствия информации(удалённые) и соответствующее им уникальное поле
   		QueryForTry->Open();
   		if (!QueryForTry->Eof) 
   		{//если есть поля с фильтром удаления("удалённые")
   			if (ToUpdating) DP=CursorRec;//для обновления выбирается запись с тем же самым уникальным полем
   			else DP=QueryForTry->Fields[0][0]->AsString;//для добавления выбирается первая попавшаяся запись с признаком удаления	
   			QueryForTry->Close();
   			QueryForTry->SQL->Clear();
   			QueryForTry->SQL->Add("update "+TableName+" set "+Deleted+" = 0, "+SQL_Update_Str+" where "+AutoInc+" = "+DP);//отменить удаление для поля, присвоить ему значения
   			QueryForTry->ExecSQL();
   		}
   		else 
   		{//если нет полей с фильтром удаления, то вставляем как в обычном SQL
   			QueryForTry->Close();
   			QueryForTry->SQL->Clear();
   			QueryForTry->SQL->Add("insert into "+TableName+" ("+SQL_Insert_Fields+","+Deleted+") values("+SQL_Insert_Values+",0)");//SQL вставка
   			QueryForTry->ExecSQL();
   		}
   		QueryForOpen->Close();//отображение и сортировка
   		QueryForOpen->SQL->Clear();
   		QueryForOpen->SQL->Add("select * from "+TableName+" where "+Deleted+" = 0 "+Order);//отображаем то, что получилось
   		QueryForOpen->Open();
   		if (CursorToAddUpdRec) 
   		{//установка курсора на добавленное значение
   			TLocateOptions Options;
   			Options<<loCaseInsensitive<<loPartialKey;
   			QueryForOpen->Locate(AutoInc,ValToLocate,Options);
   		}
   		if (ReturnRealFutureID)//ПОИСК ЗНАЧЕНИЯ УНИКАЛЬНОГО ПОЛЯ БУДУЩЕЙ ЗАПИСИ 
   		{
   			QueryForTry->Close();
   			QueryForTry->SQL->Clear();
   			QueryForTry->SQL->Add("select "+AutoInc+" from "+TableName+" where "+Deleted+" = 1 order by "+AutoInc+" asc");//отображаем то, что получилось
   			QueryForTry->Open();
   			if (QueryForTry->Eof) 
   			{
   				QueryForTry->Close();
   				QueryForTry->SQL->Clear();
   				QueryForTry->SQL->Add("select max("+AutoInc+") from "+TableName+" where "+Deleted+" = 0");//отображаем то, что получилось
   				QueryForTry->Open();
   				ValToLocate=QueryForTry->Fields[0][0]->AsString.ToIntDef(0)+1;
   			}
   			else ValToLocate=QueryForTry->Fields[0][0]->AsString.ToInt();
   		}
   		else if (ReturnRealFutureID==false&&CursorToAddUpdRec==false) return ".WIN.";         
   		return ValToLocate;
   	}
   }

   vr8h, 16 Мая 2015

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

5. C++ / Говнокод #18182

   +142

   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

   void __fastcall TForm1::Button1Click(TObject *Sender)
   {
       String Stroka, Str;
       int DlinnaStroki, Position, Schetchik, i , j , x;
   
       Stroka=Edit1->Text;
       DlinnaStroki = Stroka.Length();
       String SimvolRazdelitel=" ";
   
       //модификация строки для добавления последнего слова
       Stroka = Stroka + SimvolRazdelitel;
   
       //вычисляет количество пробелов в строке
       Schetchik = 1;
       for (x = 1; x < DlinnaStroki; x++)
       {
           if (Stroka[x] == *SimvolRazdelitel.c_str())
               Schetchik = Schetchik + 1;//количество разделительных символов
       }
   
       //разделяет строку по символу на слова
       for (j = 0; j < Schetchik; j++)
       {
           Position = Stroka.Pos(SimvolRazdelitel);//разделительный символ
           for (i = 1; i < Position; i++)
               Str = Str + Stroka[i];
           Stroka.Delete(1,Position);
           Memo1->Lines->Add(Str);//слово добавляется сюда
           Str = "";
       }
   }

   vr8h, 16 Мая 2015

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

6. C++ / Говнокод #18181

   +142

   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

   String notE(double exp)
   {
       if (exp < 0.0001 && exp > 0)//положительное число
       {
           exp += 0.0001;
           String str = exp;
   //        str.c_str()[1] = ',';//принудительный децимальный сепаратор
           str.c_str()[5] = '0';
           return str;
       }
       
       if (exp > -0.0001 && exp < 0)//отрицательное число
       {
           exp -= 0.0001;
           String str = exp;
   //        str.c_str()[2] = ',';//принудительный децимальный сепаратор
           str.c_str()[6] = '0';
           return str;
       }
   
       return exp;//большие числа, либо ноль
   }

   Принудительно отменяет научный формат

   vr8h, 16 Мая 2015

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

7. Си / Говнокод #18177

   +124

   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

   void UPStr(char *str)
   {
       while (*str)
       {
           switch (*str)
           {
               case 'а': *str = 'А'; break;
               case 'б': *str = 'Б'; break;
               case 'в': *str = 'В'; break;
               case 'г': *str = 'Г'; break;
               case 'д': *str = 'Д'; break;
               case 'е': *str = 'Е'; break;
               case 'ё': *str = 'Ё'; break;
               case 'ж': *str = 'Ж'; break;
               case 'з': *str = 'З'; break;
               case 'и': *str = 'И'; break;
               case 'й': *str = 'Й'; break;
               case 'к': *str = 'К'; break;
               case 'л': *str = 'Л'; break;
               case 'м': *str = 'М'; break;
               case 'н': *str = 'Н'; break;
               case 'о': *str = 'О'; break;
               case 'п': *str = 'П'; break;
               case 'р': *str = 'Р'; break;
               case 'с': *str = 'С'; break;
               case 'т': *str = 'Т'; break;
               case 'у': *str = 'У'; break;
               case 'ф': *str = 'Ф'; break;
               case 'х': *str = 'Х'; break;
               case 'ц': *str = 'Ц'; break;
               case 'ч': *str = 'Ч'; break;
               case 'ш': *str = 'Ш'; break;
               case 'щ': *str = 'Щ'; break;
               case 'ъ': *str = 'Ъ'; break;
               case 'ы': *str = 'Ы'; break;
               case 'ь': *str = 'Ь'; break;
               case 'э': *str = 'Э'; break;
               case 'ю': *str = 'Ю'; break;
               case 'я': *str = 'Я'; break;
   
               case 'a': *str = 'A'; break;
               case 'b': *str = 'B'; break;
               case 'c': *str = 'C'; break;
               case 'd': *str = 'D'; break;
               case 'e': *str = 'E'; break;
               case 'f': *str = 'F'; break;
               case 'g': *str = 'G'; break;
               case 'h': *str = 'H'; break;
               case 'i': *str = 'I'; break;
               case 'j': *str = 'J'; break;
               case 'k': *str = 'K'; break;
               case 'l': *str = 'L'; break;
               case 'm': *str = 'M'; break;
               case 'n': *str = 'N'; break;
               case 'o': *str = 'O'; break;
               case 'p': *str = 'P'; break;
               case 'q': *str = 'Q'; break;
               case 'r': *str = 'R'; break;
               case 's': *str = 'S'; break;
               case 't': *str = 'T'; break;
               case 'u': *str = 'U'; break;
               case 'v': *str = 'V'; break;
               case 'w': *str = 'W'; break;
               case 'x': *str = 'X'; break;
               case 'y': *str = 'Y'; break;
               case 'z': *str = 'Z'; break;
           }
           ++str;
       }
   }

   vr8h, 15 Мая 2015

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

8. C++ / Говнокод #18169

   +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
   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

   #include <stdio.h>
   #include <dstring.h>
   #include <iostream>
   #include <fstream>
   #include <sysmac.h>
   #include <System.hpp>
   
   class ImpFromTxt
   {
   	AnsiString S1; //переменная для выбранного текста из файла
   	AnsiString buf; //буферная переменная для записи необходимых слов
   
   
   	public:
   
   	AnsiString Import(const char* Aftr, int Chislo=0, ...)
   	{                                               //^число слов после которых необходимо вычленить слова
   //	using namespace std;
   
   			size_t count=0; //Число символов в файле
   			char S; //для подсчета символов
   			const char* word_before = "Точка: "; //слово, после которого необходимо выделить слово
   			/*Просто считаем число символов*/
   			ifstream f(Aftr);
   			while (!f.eof())
   			{
   				f.get(S);
   				count++;
   			}
   			f.close();
   
   			/*Добавляем текст в переменную*/
   
   			char *S2=new char [count]; //Выделяем память по определенному числу символов
   			for (int i=0;i<count;i++) S2[i]=NULL; //Очищаем строку от хлама
   				ifstream f2(Aftr);  //создаем поток для работы с файлом
   				 int i=0; //куроср на текущий символ (как номер буквы в слове)
   
   				 while (!f2.eof()) //Проходим ао файлу
   				 {
   					 f2.get(S2[i]); //Записываем симыол за символом
   					 i++; //передвинули курсор для записи следующего символа
   				 }
            
   				f2.close(); //закончили работу с файлом
   				S1 = S2;
   //				cout<<S2<<endl; //Теперь переменная char[] содержит текст из файла
   
   		  	delete []S2; //освобождаем память
   			/**************************************/
   			switch (Chislo)  //цикл для выбора количества видов слов
   			{                //слова будут собираться в буферной переменной
   							 //для возвращения в основную программу
   
                   case 2:
   						break;
   				case 1:	{   // TX;
   							 while (S1.Pos(word_before))
   							  {
   									char buf1[100]= " ";
   									int j=0;
   									i=(S1.Pos(word_before)) ? (S1.Pos(word_before)+strlen(word_before)) : 0;
   									int M = S1.Pos(word_before); //индекс первой буквы Т в первом нахождении слова Точка
   									int L = S1.Length(); //длинна всего текста
   
   									if (i)
   									while (S1[i] != '\n')
   									{
   										buf1[j]=S1[i];
   										j++;
   										i++;
   									}
   									buf1[strlen(buf1)] = '\r';
   									buf1[strlen(buf1)] = '\n';
   									buf += buf1;
   								   //buf = buf.Insert((S1.SubString(S1.Pos("Точка:")+8,5)),(S1.Pos("Точка:")+8));
   									S1 = S1.SubString(S1.Pos(word_before)+strlen(buf1)-1+strlen(word_before),S1.Length()-(S1.Pos(word_before)+strlen(word_before)+strlen(buf1)-2));
   								   //-1 и -2 в этом присваивании поставлены для компенсации добавленных лишних символов \r \n
   									L = S1.Length();
   							  }
   						}
   						break;
   
   				case 3:
   						break;
   
   				default:
                   ;
   			}
   
   			return buf;
   	}
   };

   Класс парсит текстовый файл вида
   Точка: Инфа 1
   Точка: Инфа 2
   Точка: Инфа ...
   Точка: Инфа n
   доставая инфу, находящуюся после лексемы "Точка: ".
   
   Нет, код писался не специально, чтобы потешить кого-то на этом сайте. Это из реального рабочего проекта.

   vr8h, 14 Мая 2015

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