1. VisualBasic / Говнокод #1746

    −128.3

    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
    Select Case Microsoft.VisualBasic.Right(FileLBL.Text.Trim, 3)
                    Case "pdf"
                        IconIMG.ImageUrl = "~/img/pdf.bmp"
                    Case "doc"
                        IconIMG.ImageUrl = "~/img/word.bmp"
                    Case "xls", "csv"
                        IconIMG.ImageUrl = "~/img/excel.bmp"
                    Case "rpt"
                        IconIMG.ImageUrl = "~/img/crystal.bmp"
                    Case "txt"
                        IconIMG.ImageUrl = "~/img/text.bmp"
                    Case Else
                        IconIMG.ImageUrl = "~/img/blank.bmp"
                End Select

    Запостил: Valera, 02 Сентября 2009

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

    • ava guest 08.09.2009 13:35 # 0

      Напишите как надо было
      Ответить

      • ava guest 27.09.2009 00:28 # 0

        +1
        Ответить

      • ava TEEN 16.11.2010 17:43 # 0

        вот репу почесал...
        м.б. "~/img/" вынести вместе с ".bmp"?
        а так же можно было не FileLBL.Text.Trim, а FileLBL.Text.RTrim?
        пересмотрел раз пять
        И вообще почему бы не собирать сначала стринг, а после свитча выполнить: IconIMG.ImageUrl = "~/img/" & iconame & ".bmp"
        Ответить

    • ava guest 28.09.2009 09:50 # 0

      1. Т.к. это в вебе - потрудиться пережать .bmp в gif/png.
      2. Вынести в отдельный хелпер, ибо код применяется во многих местах.
      Ответить

    • ava DPNET 15.10.2011 02:31 # 0

      Файло поназывать за соответствующими разширениями
      IconIMG.ImageUrl = "~/img/" & FileLBL.Text.Trim.Substring(FileLBL.Text .Trim.Count-4).ToLowerInvariant & ".bmp
      Ответить

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