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

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