دانلود نرم افزار و ترفند درکاربر حرفه ای

لینک هارو برین دریفت کنین و نظر هم بدین !

http://www.csharp.persiangig.com/document/Alghorithm.zip

http://www.csharp.persiangig.com/document/Algorithm2.zip

http://techmix.persiangig.com/Compress[1].pdf

اینا همه به زبان فارسی هستند و خیلی هم ساده موضوع رو مطرح کردند و کار کردند خیلی مفیدن  !!!!!

اما قسمت بعدی هم دوتا سورس مامانی تو دل برو دات نت {سی شارپ و وی بی} برای ااین الگو هاست امیدوارم مفید باشه

اولی الگوی انکد کردن با(( آر لی ای)) هست که به زبان سی شارپ و توسط من نوشته شده :

private string looped;//Dim looped() As String (Char Hayeh Tekrary!!!)
            private string sh;

public string RLE(string str)
      { 
         sh=null;
         looped=str[0].ToString();
         int len=str.Length;//Dim len As Integer=Len(str2)
         char lastchr;//Dim lastchr As String
         try
         {
            for(int b=1;b!=str.Length;b++)//For b=1 To Len(str2(i)
            {
               lastchr=str[b-1];
               if(lastchr==str[b])
               {
                  looped=looped+str[b];
               }
               else if(lastchr!=str[b])
               {
                  looped+="|";
                  looped=looped+str[b];
               }
            }//End For
            string[]after=looped.Split("|".ToCharArray());
            for(int i=0;i!=after.Length;i++)
            {
               sh+=after[i].Length.ToString()+after[i].Substring(0,1);
            }
            //sh=sh.Replace("|","");
         }
         catch(System.Exception ea)
         {
            MessageBox.Show(ea.Message);
         }
         return sh;
      }

الگوی بعدی هم الگوی ددیکد کردن این الگوریته که به زبان وی بی دات نت و توسط دوست عزیزم امیر نوشته شده  :

Public Function RLD(ByVal TxtInput As String) As String
        Dim nextB, newB, Tekrar, outT As String
        Dim i, d As Integer
        i = 1
        Do Until i > Len(TxtInput)
            nextB = Mid(TxtInput, i + 1, 1)
            newB = Mid(TxtInput, i, 1)
            If IsNumeric(newB) And IsNumeric(nextB) = False Then
                For d = 1 To newB
                    Tekrar = Tekrar & nextB
                Next
            Else
                If Len(Tekrar) > 0 Then
                    outT = outT & Tekrar
                    Tekrar = ""
                Else
                    outT = outT & newB
                End If

            End If
            i = i + 1
        Loop
        Return outT
    End Function

خب امیدوارم مفید واقع شده باشه !!! آقا نظر یادتون نره ها !!!!