1. 1C / Говнокод #9847

    −136

    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
    function iofam(val a)
    var fio[3];
    fio[1]=""; fio[2]=""; fio[3]="";
    a=trimall(a);
    while strcountoccur(a,"  ")>0 do
      a=strreplace(a,"  "," ");
    enddo;
    i=1;
    while (strcountoccur(a," ")>0) and (i<=2) do
      fio[i]=left(a,find(a," ")-1);
      a=right(a,strlen(a)-1-strlen(fio[i]));
      i=i+1;
    enddo;
    fio[i]=a;
    return (left(fio[2],1)+"."+left(fio[3],1)+". "+fio[1]);
    endfunction

    Запостил: int1789, 03 Апреля 2012

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

    • > iofam
      Явно что-то с вводом-выводом.
      Ответить
    • А где здесь 1С?
      Ответить
      • Це 1С
        1С поддерживает код на латинице
        Ответить
        • Это не 1С
          Ответить
          • поясните мысль (с)
            Ответить
            • Пардон, возможно это 7.7 - не разглядел сразу.
              Ответить
              • В семёрке массивов нет. Инфа 100%
                Ответить
                • опять кто-то пионєра наебал...
                  (есть массивы в 7.7)
                  Ответить
                  • у нуралиевцев бугурт, сбегаются
                    Ответить
                  • Ты продолжаешь выходить на связь мудило?
                    Ответить
                  • Хотел отредактировать комментарий, но что-то прослоупочил.
                    Ладно, признаю, в этот раз я полуёбок, поскольку неправ. Но, на мой вкус, какой-то ценности эти массивы собой не представляют.
                    Ответить
                    • пионэр сраный, снова ты обосрался. и даже дважды: массивы представляют в 77 интерес - при использовании её в качестве OLE-сервера. и позволяют в таких случаях сделать то, чего иными способами добиться весьма проблематично.
                      тебе не надоело позориться?.. хотя, о чем я спрашиваю, ты, похоже, долбоёб неисправимый..
                      Ответить
                      • О, великий гуру, я имел смелость признать свою ошибку, допущенную из-за лени и уже поел говна в прямом эфире, может быть ты наконец смилостивишься?
                        Только вот как до тебя не доходит тот факт, что этот русский пасцаль предназначен для такого славянского подчеловеского быдла типа тебя? Не?

                        Кроме того, я тебе, омичу, уже который раз пишу.Я не говноэсник. Говноэс - для подчеловеков. По мере надобности я консультирую знакомых и вынужден разбираться в высерах "гуру" типа тебя, которые в кривой системе вызубрили наизусть все костыли, а вот думать не научились. И там, где сложность линейная, они умудряются вводить квадратичную влёгкую, потому что быдло типа тебя заморачивается какими-то несущественными костылями, а не алгоритмами. Если система разрабатывалась дебилами для дебилов, а эксплуатируется мартышками, то это вполне нормальная ситуация.
                        Само собой, поскольку я не говноэсник, я не сталкиваюсь с подобной атмтой и иногда ошибаюсь, но это исключительно из-за того, что сама система еретична и багомерзка.
                        Ответить
                        • 1Срач!
                          Ответить
                        • изначально ты полез с менторским видом говорить глупость. затем вынужден был ошибку признать. ничего удивительного и героичного.
                          встроенный язвк не только в русютранскрипцию имеет, но и аргл, так что ты и тут продолжаешь обсираться. причины предпочтения русской транскрипции - есть разные, и среди них попадаются вполне логичные. срать кирпичами из-за аляповатости транскрипции, распостраняя баттхерт на все, что вообще связано с одинэсиной - в принципе, чисто по-человечески, понятно, хотя по сути и глупо, но то таке, лирика.
                          уж не буду повторяться о том, какие бедные те, кого ты лезешь "консультировать" имея такого уровня познания в сочетании с таким гонором и тупостью.
                          среди одинэсников всякое попадается, для своей ниши одинэс подходит гораздо лучше других инструментов (это я тебе как кодер начиная с 80-х прошлого века говорю, особенно пристально занимавшийся именно задачами автоматизации учетных и управленческих задач с лохматого социализма), и все там решается достаточно "линейно" и оптимально при наличии масла в голове (а на что не хватает штатного функционала - прекрасно дописывается на том, что лучше подходит, и штатно пристегивается - например, в семерке уже давно практически стандартом де-факто стаол ООМ - 1с++). так что не надо пиздеть не зная. причины твоей попоболи в принципе уважительны, но обсираешься ты слишком активно и вонюче.
                          Ответить
        • Минутку... То есть в 1с возможно написание Если ... То, и также If ... EndIf, и это будет равнохуйственно в любой кодировке, так что ли?
          Ответить
          • Да.
            Ответить
            • ах, ну да, он же "предварительно компилируемый"...
              ну хоть куда ни шло...ебать бу люсю...
              Ответить
          • Ну так там походу дефайны прописаны, которые чудесным образом превращают его в бейсик.
            Который потом можно смело собрать честно спижженым омериканским комиплером.
            Ответить
            • Альтернативный синтаксис.... дефайн (КакБы, Ленин)... Ленин ... КонецЛенин СдохниСволочь() ...
              вот значит, на чём собран православный "Азъ"
              Ответить
    • Функция сокращения полного ФИО на фамилию с инициалами. Где говнокод? Где 1С?
      Ответить
      • Это 7.7?
        Ответить
        • Это 7.7.
          Начальство стращает скорым переходом на 8ку. Вот и приходится вникать как оно работает, так как скоро придется переписывать.
          Ответить
          • переписывать в данном случае - это ужасно. лучше уж писать заново.
            Ответить
    • Модуль ОбщегоНазначения.
      Функция ФамилияИнициалыФизЛица(Объект = "", Фамилия = " ", Имя = " ", Отчество = " ") Экспорт

      Функция ИнициалыФизЛицаФамилия(Объект = "", Фамилия = " ", Имя = " ", Отчество = " ") Экспорт
      Ответить
    • показать все, что скрытоvanished
      Ответить

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