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

    • Напишите как надо было
      Ответить
      • +1
        Ответить
      • вот репу почесал...
        м.б. "~/img/" вынести вместе с ".bmp"?
        а так же можно было не FileLBL.Text.Trim, а FileLBL.Text.RTrim?
        пересмотрел раз пять
        И вообще почему бы не собирать сначала стринг, а после свитча выполнить: IconIMG.ImageUrl = "~/img/" & iconame & ".bmp"
        Ответить
    • 1. Т.к. это в вебе - потрудиться пережать .bmp в gif/png.
      2. Вынести в отдельный хелпер, ибо код применяется во многих местах.
      Ответить
    • Файло поназывать за соответствующими разширениями
      IconIMG.ImageUrl = "~/img/" & FileLBL.Text.Trim.Substring(FileLBL.Text .Trim.Count-4).ToLowerInvariant & ".bmp
      Ответить

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