Никто не заставляет программистов писать только типичные приложения, другое дело, что не у всех хватает способностей и знаний, чтобы писать нетипичные.

Да, я вижу спор с тобой совершенно не имеет смысла. html, css, xml, xslt - это всё языки программирования?

это так, до кучи, чтобы важности большой себе придать?

Ещё скажи что когда ты запускаешь OE, ты программируешь электронную почту

Ага, где справедливость, если человек изучает годами тысячелетние достижения цивилизации, собранные по крупинкам, а потом приходит "программист html" и заявляет что они и на фиг не нужны?

Я понимаю, бизнес, корпорации, это всё конечно хорошо... для тебя. Но причём тут во первых программирование и при чём тут мы к твоим желаниям? Твоя любовь к корпорации впечатляет, однако меня больше впечатляет ярко выраженный индивидуализм, сведетельствующий о высоком уровне интеллекта.

Ты не программист, ты - промышленный рабочий. Рабочий у станка под названием MS .NET FW. А то что тебе хочется видеть себя программистом, это уже твои личные проблемы.

 Честно говоря не понимаю. Совершенно оторванное от контекста, высосаное из пальца зявление.

Кстати, обфускация этому куску кода не нужна - ты я могу тебе его дать, даже в таком виде, в котором он есть сейчас - никто не сможет декмпозировать алгоритм.

Imports Microsoft.VisualBasic
Imports System.Collections.Generic
Imports System.Xml, System.Xml.XPath

Public Class Articles
    Public Sub New(ByVal Categories As Categories, ByVal Period As Period)
        Me.Categories = Categories
        Me.Period = Period
    End Sub

    Public SubsCTP As New Dictionary(Of Subscriber, CategoriesTypePair)
    Public CTPArticleIDs As New Dictionary(Of CategoriesTypePair, Integer())
    Public ArticleIDs As New Generic.List(Of Integer)
    Public Articles As New Dictionary(Of Integer, rootService.Article)

    Public SubsArticles As New Dictionary(Of Subscriber, rootService.Article())

    Private NS As System.Xml.XmlNamespaceManager = Namespaces.Settings

    Private Categories As Categories
    Private Period As Period

    Public Sub Add(ByVal Subscriber As Subscriber)
        Dim CategoryList As New List(Of Integer)
        Dim Doc As New XPathDocument(New IO.StringReader(Subscriber.Settings))
        Dim Nav As XPathNavigator = Doc.CreateNavigator.SelectSingleNode("/Subscriber/Settings/Articles", NS)
        If Nav IsNot Nothing OrElse Nav.GetAttribute("allow", "".ToLower = "true" Then
            For Each ChildNav As XPathNavigator In Nav.Select("/categories/category"
                ProccessSettingsNode(ChildNav, CategoryList)
            Next
            Dim Arr(CategoryList.Count - 1) As Integer
            CategoryList.CopyTo(Arr)
            SubsCTP.Add(Subscriber, New CategoriesTypePair(Arr, Subscriber.WasSent))
        Else
            SubsCTP.Add(Subscriber, Nothing)
        End If
    End Sub

    Private Sub ProccessSettingsNode(ByVal Nav As XPathNavigator, ByVal List As List(Of Integer))
        If Nav.GetAttribute("allow", "".ToLower = "true" Then
            List.Add(CInt(Nav.GetAttribute("id", ""))
            If Nav.GetAttribute("expanded", "".ToLower = "true" Then
                For Each ChildNav As XPathNavigator In Nav.Select("category"
                    ProccessSettingsNode(ChildNav, List)
                Next
            Else
                AddCategory(Categories.List(CInt(Nav.GetAttribute("id", "")), List)
            End If
        End If
    End Sub

    Private Sub AddCategory(ByVal Category As Category, ByVal list As List(Of Integer))
        For Each Cat As Category In Category.ChildItems
            list.Add(Cat.ID)
            AddCategory(Cat, list)
        Next
    End Sub

    Public Sub LoadArticles()
        Dim LastDate As Nullable(Of Date) = Period.NextLaunch
        If LastDate.HasValue Then LastDate = LastDate.Value.AddDays(-Period.Period)
        Dim MaxCount As Integer = CInt(ConfigurationManager.AppSettings("MaxCount")
        Dim MinCount As Integer = CInt(ConfigurationManager.AppSettings("MinCount")


        For Each Pair As KeyValuePair(Of Subscriber, CategoriesTypePair) In SubsCTP
            If Not CTPArticleIDs.ContainsKey(Pair.Value) Then
                Dim Articles() As Integer
                If LastDate.HasValue OrElse Not Pair.Key.WasSent Then
                    Articles = Services.root.GetArticlesListByCount(MinCount, Pair.Value.Categories)
                Else
                    Articles = Services.root.GetArticlesListByDate(LastDate.Value, Pair.Value.Categories)
                End If
                For Each ID As Integer In Articles
                    If Not ArticleIDs.Contains(ID) Then ArticleIDs.Add(ID)
                Next
                CTPArticleIDs.Add(Pair.Value, Articles)
            End If
        Next

        Dim Arr(ArticleIDs.Count - 1) As Integer
        ArticleIDs.CopyTo(Arr)
        For Each Article As rootService.Article In Services.root.GetArticles(Arr)
            Articles.Add(Article.ID, Article)
        Next

        For Each pair As KeyValuePair(Of Subscriber, CategoriesTypePair) In SubsCTP
            Dim IDs() As Integer = CTPArticleIDs(pair.Value)
            Dim ArticleArr(IDs.GetUpperBound(0)) As rootService.Article
            For i As Integer = 0 To IDs.GetUpperBound(0)
                ArticleArr(i) = Articles(IDs(i))
            Next
            SubsArticles.Add(pair.Key, ArticleArr)
        Next

        SubsCTP = Nothing
        CTPArticleIDs = Nothing
        ArticleIDs = Nothing
        Articles = Nothing
    End Sub



    Private Class CategoriesTypePair
        Private m_Categories As Integer()
        Private m_WasSent As Boolean

        Public Sub New(ByVal Categories As Integer(), ByVal WasSent As Boolean)
            m_Categories = Categories
            m_WasSent = WasSent
        End Sub

        Public ReadOnly Property Categories() As Integer()
            Get
                Return m_Categories
            End Get
        End Property

        Public Property WasSent() As Boolean
            Get
                Return m_WasSent
            End Get
            Set(ByVal value As Boolean)
                m_WasSent = value
            End Set
        End Property

        Public Overrides Function Equals(ByVal obj As Object) As Boolean
            If TypeOf obj Is CategoriesTypePair Then
                Dim V As CategoriesTypePair = CType(obj, CategoriesTypePair)
                If m_WasSent = V.WasSent Then
                    If m_Categories.Length = m_Categories.Length Then
                        For i As Integer = 0 To m_Categories.GetUpperBound(0)
                            If System.Array.IndexOf(Of Integer)(m_Categories, V.m_Categories(i)) = -1 Then Return False
                            If System.Array.IndexOf(Of Integer)(V.m_Categories, m_Categories(i)) = -1 Then Return False
                        Next
                        Return True
                    End If
                End If
            End If
            Return False
        End Function
    End Class
End Class

А где здесь алгоритм-то? Простые сравнения, циклы, несложная задача. Давай что-нибудь посерьезнее.

А где здесь алгоритм-то?

CyRax, тоже хочется попробовать, но никто близко к этому не подпускает? Я-то здесь причем?