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

    +107

    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
    function FindPathInPath(path1: string; path2: string): Boolean;
var
  lst: TStringlist;
  i, l: integer;
begin
  lst := TStringlist.Create;
  // ----------------------------------------------
  path1 := stringreplaceall(path1, '/', '\');
  path1 := stringreplaceall(path1, '\\', '\');
  // ----------------------------------------------
   path2 := stringreplaceall(path2, '\', '');
   path2 := stringreplaceall(path2, '/', '');
   path2 := stringreplaceall(path2, '"', '');
   path2 := stringreplaceall(path2, '<', '');
   path2 := stringreplaceall(path2, '>', '');
   path2 := stringreplaceall(path2, '?', '');
   path2 := stringreplaceall(path2, '|', '');
   path2 := stringreplaceall(path2, ':', '');
   path2 := stringreplaceall(path2, '*', '');
  // ----------------------------------------------
  for i := 2 to CountString(path1, '\') + 1 do
  begin
    lst.Add(StringField(path1, '\', i));
  end;
  for l := 0 to lst.Count - 1 do
  begin
    if lstrcmpi(pchar(lst[l]), pchar(path2)) = 0 then
    begin
      FindPathInPath := True;
      break;
  end;
  end;
  lst.Free;
  FindPathInPath := false;
  exit;
end;

    Функция для поиска названий подпапок в файловых путях.
    Трудно судить г..нокод ли это, но так как я все же использовал более изящное решение, то быть посему...

    Запостил: Stertor, 23 Июня 2013

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

    • ava Stertor 23.06.2013 14:45 # −2

      Ахахах)) кто мне минусов понаставил)
      Ответить

    • ava Stertor 23.06.2013 14:51 # −2

      минус - это значит, хороший код?
      Ответить

      • ava Abbath 23.06.2013 15:25 # +2

        Минус - это значит КГ\АМ
        Ответить

        • ava Stertor 23.06.2013 16:11 # −4

          Мне это ни о чем не говорит. Курить меньше надо, батенька.
          Ответить

      • ava Vindicar 24.06.2013 09:30 # +2

        Плюс - за смешное и/или сказочное говно.
        За что в таком случае минус, выведи сам.
        Ответить

        • ava bormand 24.06.2013 10:11 # +5 

          Если Говно И (Интересное Или Смешное) То
    Ставим("Плюс") 
Иначе
    Ставим("Минус")
КонецЕсли
          Если вспомним о де-Моргане, получим:
          Если Не Говно Или (Не Интересное И Не Смешное) То
    Ставим("Минус")
Иначе
    Ставим("Плюс")
КонецЕсли
          и все становится очевидным ;)
          Ответить

    • ava Lure Of Chaos 24.06.2013 08:59 # +1

      мне нравится избавление от спецсимволов
      а на линуксах в именах разрешены любые символы, кроме слеша
      Ответить

      • ava bormand 24.06.2013 10:09 # 0

        > а на линуксах в именах разрешены любые символы, кроме слеша
        И нолика.

        P.S. 
        touch \* # trollface.png
        Ответить

      • ava anonimb84a2f6fd141 24.06.2013 18:05 # 0

        На NTFS есть несколько неймспейсов, там разрешено почти все. Карманов так сказал.
        Ответить

    • ava Stertor 24.06.2013 20:04 # −4

      Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))[blink][size=20]Неоновая рекламах)))[/b]
      Ответить

    • ava Stertor 24.06.2013 20:04 # −4

      Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))
      Ответить

    • ava Stertor 24.06.2013 20:04 # −4

      Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))
      Ответить

    • ava Stertor 24.06.2013 20:04 # −4

      Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))
      Ответить

    • ava Stertor 24.06.2013 20:05 # −4

      Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))Неоновая рекламах)))
      Ответить

    • ava Stertor 24.06.2013 20:19 # −4

      Ололололо--ТрололололоОлолололо--Трололололо
      пилять, не фсе цвета поттершифаит
      Ответить

    • ava Stertor 26.06.2013 17:10 # −4

      Хочу предупредить всех, просматривающих форум: НЕ регистрируйтесь с Вашей основной почты!!!!
      Ответить

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