1. Куча / Говнокод #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) RSS

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