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

    Всего: 1

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

    +138

    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
    function StripLeadingComma(str)
  str = Ltrim(str)
  if len(str) > 0 then
    if Left(str,1) = "," then  str = Mid(str,2)
  end if
  if len(str) > 0 then
    if Left(str,1) = "," then  str = Mid(str,2)
  end if
  if len(str) > 0 then
    if Left(str,1) = "," then  str = Mid(str,2)
  end if
  if len(str) > 0 then
    if Left(str,1) = "," then  str = Mid(str,2)
  end if
  StripLeadingComma = str
end function

function StripTrailingComma(str)
  str = rtrim(str)
  if len(str) > 0 then
    if Right(str,1) = "," then  str = Left(str,len(str)-1)
  end if
  if len(str) > 0 then
    if Right(str,1) = "," then  str = Left(str,len(str)-1)
  end if
  if len(str) > 0 then
    if Right(str,1) = "," then  str = Left(str,len(str)-1)
  end if
  if len(str) > 0 then
    if Right(str,1) = "," then  str = Left(str,len(str)-1)
  end if
  if len(str) > 0 then
    if Right(str,1) = "," then  str = Left(str,len(str)-1)
  end if
  if len(str) > 0 then
    if Right(str,1) = "," then  str = Left(str,len(str)-1)
  end if
  StripTrailingComma = str
end function

    Классика жанра на production. ASP, VBScript.

    Seth, 08 Ноября 2010

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