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

    −130.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
    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
    40. 40
    41. 41
    42. 42
    43. 43
    Public Overrides Sub OnViewInitialized()
            Dim userId As String = _guard.GetCurrentUserId()

            BindGroups()
            Bind()
            DoHackyStuff()
        End Sub

        Private Function GetUrls() As Dictionary(Of String, String)

            Dim dic As New Dictionary(Of String, String)
            For Each assembly In AppDomain.CurrentDomain.GetAssemblies()
                For Each type In assembly.GetTypes.Where(Function(q) q.FullName.EndsWith("Url"))
                    Dim url = CType(_container.GetByType(type), IUrl).Page
                    Dim name = type.FullName.Split(".".ToCharArray)

                    dic.Add(url, name.Reverse.First + ", " + name.Reverse.Skip(1).First)
                Next
            Next
            Return dic

        End Function

        Private Sub DoHackyStuff()

            Dim siteMap = _container.Get(Of ISiteMapGenerator)().GetSiteMap()
            Dim urls = GetUrls()

            Dim sb As New StringBuilder
            For Each top In siteMap.Nodes

                sb.AppendLine(String.Format("<top display-name=""{0}"" id=""{1}"">", top.Name, urls(top.Url)))
                For Each group In top.Nodes
                    sb.AppendLine(String.Format("<group display-name=""{0}"">", group.Name))
                    For Each item1 In group.Nodes
                        sb.AppendLine(String.Format("<item display-name=""{0}"" id=""{1}""/>", item1.Name, urls(item1.Url)))
                    Next
                    sb.Append("</group>")
                Next
                sb.Append("</top>")
            Next

        End Sub

    Быстро пытался сгенерить xml-ку по ран-тайм структуре.

    Запостил: Valera, 24 Августа 2009

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

    • ava guest 30.08.2009 16:14 # 0

      Imorts System.Xml вам поможет
      Ответить

    • ava guest 24.11.2009 19:47 # 0

      если встретится
      group.Name="""блабла"""
      - будет вам подарок.
      Ответить

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