İzlenecek yol: Visual Basic'te Dinamik Nesneler Oluşturma ve Kullanma

Dinamik nesneler, derleme zamanında değil, çalışma zamanında özellikler ve yöntemler gibi üyeleri kullanıma sunar. Bu, statik bir tür veya biçimle eşleşmeyen yapılarla çalışacak nesneler oluşturmanıza olanak tanır. Örneğin, geçerli HTML işaretleme öğelerinin ve özniteliklerinin herhangi bir bileşimini içerebilen HTML Belge Nesne Modeli'ne (DOM) başvurmak için dinamik bir nesne kullanabilirsiniz. Her HTML belgesi benzersiz olduğundan, belirli bir HTML belgesinin üyeleri çalışma zamanında belirlenir. HTML öğesinin özniteliğine başvurmak için kullanılan yaygın bir yöntem, özniteliğin adını öğesinin GetProperty yöntemine geçirmektir. HTML elemanının id niteliğine başvurmak için önce <div> elemanına bir referans alır, ardından divElement.GetProperty("id") kullanırsınız. Dinamik bir nesne kullanıyorsanız özniteliğine id olarak divElement.idbaşvurabilirsiniz.

Dinamik nesneler ayrıca IronPython ve IronRuby gibi dinamik dillere kolay erişim sağlar. Çalışma zamanında yorumlanan dinamik betiklere başvurmak için dinamik bir nesne kullanabilirsiniz.

Geç bağlama kullanarak dinamik bir nesneye başvurursunuz. Geç bağlanmış nesnenin türünü Object olarak belirtirsiniz. Daha fazla bilgi için bkz. [Erken ve Geç Bağlama.

Ad alanında sınıfları System.Dynamic kullanarak özel dinamik nesneler oluşturabilirsiniz. Örneğin, bir ExpandoObject oluşturabilir ve çalışma zamanında bu nesnenin üyelerini belirtebilirsiniz. Kendi türünüzü, DynamicObject sınıfını devralan olacak şekilde de oluşturabilirsiniz. Daha sonra, çalışma zamanı dinamik işlevselliği sağlamak için sınıfın DynamicObject üyelerini geçersiz kılabilirsiniz.

Bu makale iki bağımsız rehberi içerir.

• Metin dosyasının içeriğini bir nesnenin özellikleri olarak dinamik olarak kullanıma sunan özel bir nesne oluşturun.

• Kütüphane kullanan bir IronPython proje oluşturun.

Bunlardan birini veya ikisini birden yapabilirsiniz ve her ikisini de yaparsanız, siparişin bir önemi yoktur.

Önkoşullar

• .NET masaüstü geliştirme iş yükünün yüklü olduğu Visual Studio 2019 sürüm 16.9 veya sonraki bir sürüm. Bu iş yükünü seçtiğinizde .NET 5 SDK'sı otomatik olarak yüklenir.

Not

Bilgisayarınız, aşağıdaki yönergelerde yer alan Visual Studio kullanıcı arabirimi öğelerinden bazıları için farklı adlar veya konumlar gösterebilir. Sahip olduğunuz Visual Studio sürümü ve kullandığınız ayarlar bu öğeleri belirler. Daha fazla bilgi için bkz. IDE’yi kişiselleştirme.

• İkinci kılavuz için .NET için IronPython'u yükleyin. En son sürümü edinmek için İndirme sayfasına gidin.

Özel Dinamik Nesne Oluşturma

İlk izlenecek yol, bir metin dosyasının içeriğini arayan özel bir dinamik nesne tanımlar. Dinamik özellik, aranacak metni belirtir. Örneğin, çağıran kod belirtiyorsa dynamicFile.Sample, dinamik sınıf dosyadan "Örnek" ile başlayan tüm satırları içeren genel bir dize listesi döndürür. Arama, büyük-küçük harf farkı gözetmez. Dinamik sınıf, isteğe bağlı iki bağımsız değişkeni de destekler. İlk bağımsız değişken, dinamik sınıfın satırın başında, sonunda veya satırda herhangi bir yerde eşleşme araması gerektiğini belirten bir arama seçeneği numaralandırma değeridir. İkinci bağımsız değişken, dinamik sınıfın aramadan önce her satırdaki baştaki ve sondaki boşlukları kırpması gerektiğini belirtir. Örneğin, çağıran kod "dynamicFile.Sample(StringSearchOption.Contains)" belirtirse, dinamik sınıf bir satırda herhangi bir yerde "Sample" arar. Kodda dynamicFile.Sample(StringSearchOption.StartsWith, false) belirtilirse, dinamik sınıf her satırın başındaki "Örnek" ifadesini arar ve baştaki veya sondaki boşlukları kaldırmaz. Dinamik sınıfın varsayılan davranışı, her satırın başında bir eşleşme aramak ve baştaki ve sondaki boşlukları kaldırmaktır.

Özel dinamik sınıf oluşturmak için

1. Visual Studio'yu başlatın.

2. Yeni proje oluştur'u seçin.

3. Yeni proje oluştur iletişim kutusunda Visual Basic'i, Konsol Uygulaması'nı ve ardından İleri'yi seçin.

4. Yeni projenizi yapılandırın iletişim kutusunda Proje adıDynamicSamplegirin ve İleri'yi seçin.

5. Ek bilgi iletişim kutusunda Hedef Çerçeve için .NET 5.0 (Geçerli) öğesini ve ardından Oluştur'u seçin.

   Yeni proje oluşturulur.

6. Çözüm Gezgini'nde DynamicSample projesine sağ tıklayın ve Ekle>Sınıf seçin. Ad kutusuna ReadOnlyFile yazın ve Ekle'yi seçin.

   ReadOnlyFile sınıfını içeren yeni bir dosya eklenir.

7. ReadOnlyFile.cs veya ReadOnlyFile.vb dosyasının en üstüne, System.IO ve System.Dynamic ad alanlarını kullanmak için aşağıdaki kodu ekleyin.

   Imports System.IO
   Imports System.Dynamic
   

8. Özel dinamik nesne, arama ölçütlerini belirlemek için bir sabit listesi kullanır. sınıf deyiminden önce aşağıdaki sabit listesi tanımını ekleyin.

   Public Enum StringSearchOption
       StartsWith
       Contains
       EndsWith
   End Enum
   

9. Sınıf deyimini, DynamicObject sınıfını devralacak şekilde, aşağıdaki kod örneğinde gösterildiği gibi güncelleştirin.

   Public Class ReadOnlyFile
       Inherits DynamicObject
   

10. ReadOnlyFile sınıfına dosya yolu için özel bir alan tanımlamak ve ReadOnlyFile sınıfı için bir oluşturucu oluşturmak amacıyla aşağıdaki kodu ekleyin.

    ' Store the path to the file and the initial line count value.
    Private p_filePath As String
    
    ' Public constructor. Verify that file exists and store the path in 
    ' the private variable.
    Public Sub New(ByVal filePath As String)
        If Not File.Exists(filePath) Then
            Throw New Exception("File path does not exist.")
        End If
    
        p_filePath = filePath
    End Sub
    

11. GetPropertyValue sınıfına aşağıdaki ReadOnlyFile yöntemini ekleyin. GetPropertyValue yöntemi, giriş olarak arama ölçütlerini alır ve bu arama ölçütlerine uyan bir metin dosyasındaki satırları döndürür. ReadOnlyFile sınıfı tarafından sağlanan dinamik metotlar, ilgili sonuçlarını almak için GetPropertyValue yöntemini çağırır.

    Public Function GetPropertyValue(ByVal propertyName As String,
                                     Optional ByVal StringSearchOption As StringSearchOption = StringSearchOption.StartsWith,
                                     Optional ByVal trimSpaces As Boolean = True) As List(Of String)
    
        Dim sr As StreamReader = Nothing
        Dim results As New List(Of String)
        Dim line = ""
        Dim testLine = ""
    
        Try
            sr = New StreamReader(p_filePath)
    
            While Not sr.EndOfStream
                line = sr.ReadLine()
    
                ' Perform a case-insensitive search by using the specified search options.
                testLine = UCase(line)
                If trimSpaces Then testLine = Trim(testLine)
    
                Select Case StringSearchOption
                    Case StringSearchOption.StartsWith
                        If testLine.StartsWith(UCase(propertyName)) Then results.Add(line)
                    Case StringSearchOption.Contains
                        If testLine.Contains(UCase(propertyName)) Then results.Add(line)
                    Case StringSearchOption.EndsWith
                        If testLine.EndsWith(UCase(propertyName)) Then results.Add(line)
                End Select
            End While
        Catch
            ' Trap any exception that occurs in reading the file and return Nothing.
            results = Nothing
        Finally
            If sr IsNot Nothing Then sr.Close()
        End Try
    
        Return results
    End Function
    

12. GetPropertyValue yönteminden sonra, DynamicObject sınıfının TryGetMember yöntemini geçersiz kılmak için aşağıdaki kodu ekleyin. Bir TryGetMember dinamik sınıfın üyesi istendiğinde ve hiçbir bağımsız değişken belirtilmediğinde yöntemi çağrılır. Bağımsız binder değişken, başvuruda bulunan üye hakkında bilgi içerir ve result bağımsız değişken, belirtilen üye için döndürülen sonuda başvurur. TryGetMember yöntemi, istenen üye varsa true değerinde bir Boole değeri döndürür; aksi takdirde false döndürür.

    ' Implement the TryGetMember method of the DynamicObject class for dynamic member calls.
    Public Overrides Function TryGetMember(ByVal binder As GetMemberBinder,
                                           ByRef result As Object) As Boolean
        result = GetPropertyValue(binder.Name)
        Return If(result Is Nothing, False, True)
    End Function
    

13. TryGetMember yönteminden sonra, DynamicObject sınıfının TryInvokeMember yöntemini geçersiz kılmak amacıyla aşağıdaki kodu ekleyin. Bir TryInvokeMember dinamik sınıfın üyesi bağımsız değişkenlerle istendiğinde yöntemi çağrılır. Bağımsız binder değişken, başvuruda bulunan üye hakkında bilgi içerir ve result bağımsız değişken, belirtilen üye için döndürülen sonuda başvurur. args bağımsız değişkeni, üyeye geçirilen bağımsız değişkenlerin bir dizisini içerir. yöntemi, istenen üye varsa TryInvokeMember, true döndüren bir Boole değeri döndürür; aksi takdirde false döndürür.

    Yöntemin TryInvokeMember özel sürümü, ilk bağımsız değişkenin, önceki adımda tanımladığınız StringSearchOption sabit listesinden bir değer olmasını bekler. yöntemi, TryInvokeMember ikinci bağımsız değişkenin Boole değeri olmasını bekler. Bağımsız değişkenlerden biri veya her ikisi de geçerli değerlerse, belirtilen yönteme GetPropertyValue sonuçları almak için aktarılır.

    ' Implement the TryInvokeMember method of the DynamicObject class for 
    ' dynamic member calls that have arguments.
    Public Overrides Function TryInvokeMember(ByVal binder As InvokeMemberBinder,
                                              ByVal args() As Object,
                                              ByRef result As Object) As Boolean
    
        Dim StringSearchOption As StringSearchOption = StringSearchOption.StartsWith
        Dim trimSpaces = True
    
        Try
            If args.Length > 0 Then StringSearchOption = CType(args(0), StringSearchOption)
        Catch
            Throw New ArgumentException("StringSearchOption argument must be a StringSearchOption enum value.")
        End Try
    
        Try
            If args.Length > 1 Then trimSpaces = CType(args(1), Boolean)
        Catch
            Throw New ArgumentException("trimSpaces argument must be a Boolean value.")
        End Try
    
        result = GetPropertyValue(binder.Name, StringSearchOption, trimSpaces)
    
        Return If(result Is Nothing, False, True)
    End Function
    

14. Dosyayı kaydedip kapatın

Örnek metin dosyası oluşturmak için

1. Çözüm Gezgini'nde DynamicSample projesine sağ tıklayın ve Ekle>Yeni Öğe seçin. Yüklü Şablonlar bölmesinde Genel'i ve ardından Metin Dosyası şablonunu seçin. Ad kutusunda varsayılan TextFile1.txt adını bırakın ve Ekle'ye tıklayın. Projeye yeni bir metin dosyası eklenir.

2. Aşağıdaki metni TextFile1.txt dosyasına kopyalayın.

   List of customers and suppliers
   
   Supplier: Lucerne Publishing (https://www.lucernepublishing.com/)
   Customer: Preston, Chris
   Customer: Hines, Patrick
   Customer: Cameron, Maria
   Supplier: Graphic Design Institute (https://www.graphicdesigninstitute.com/)
   Supplier: Fabrikam, Inc. (https://www.fabrikam.com/)
   Customer: Seubert, Roxanne
   Supplier: Proseware, Inc. (http://www.proseware.com/)
   Customer: Adolphi, Stephan
   Customer: Koch, Paul
   

3. Dosyayı kaydedip kapatın

Özel dinamik nesnesini kullanan örnek bir uygulama oluşturmak için

1. Çözüm Gezgini'da Program.vb dosyasına çift tıklayın.

2. TextFile1.txt dosyasının Main sınıfının bir örneğini ReadOnlyFile oluşturmak için yordama aşağıdaki kodu ekleyin. Kod, dinamik üyeleri çağırmak ve "Customer" dizesini içeren metin satırlarını almak için geç bağlama kullanır.

   Dim rFile As Object = New ReadOnlyFile("..\..\..\TextFile1.txt")
   For Each line In rFile.Customer
       Console.WriteLine(line)
   Next
   Console.WriteLine("----------------------------")
   For Each line In rFile.Customer(StringSearchOption.Contains, True)
       Console.WriteLine(line)
   Next
   

3. Dosyayı kaydedin ve uygulamayı derlemek ve çalıştırmak için Ctrl + +F5 tuşlarına basın.

Dinamik dil kitaplığı çağırma

Aşağıdaki kılavuz, IronPython dinamik dilinde yazılmış bir kitaplığa erişen bir proje oluşturur.

Özel dinamik sınıf oluşturmak için

1. Visual Studio'da DosyaYeni Proje'yi>> seçin.

2. Yeni proje oluştur iletişim kutusunda Visual Basic'i, Konsol Uygulaması'nı ve ardından İleri'yi seçin.

3. Yeni projenizi yapılandırın iletişim kutusunda Proje adıDynamicIronPythonSamplegirin ve İleri'yi seçin.

4. Ek bilgi iletişim kutusunda Hedef Çerçeve için .NET 5.0 (Geçerli) öğesini ve ardından Oluştur'u seçin.

   Yeni proje oluşturulur.

5. IronPython NuGet paketini yükleyin.

6. Program.vb dosyasını düzenleyin.

7. Dosyanın en üstüne IronPython kitaplıklarından Microsoft.Scripting.Hosting ve IronPython.Hosting ad alanlarının yanı sıra System.Linq ad alanını içeri aktarmak için aşağıdaki kodu ekleyin.

   Imports Microsoft.Scripting.Hosting
   Imports IronPython.Hosting
   Imports System.Linq
   

8. Main yöntemine aşağıdaki kodu ekleyerek IronPython kitaplıklarını barındıracak yeni Microsoft.Scripting.Hosting.ScriptRuntime bir nesne oluşturun. ScriptRuntime nesnesi IronPython kitaplık modülünü random.py yükler.

   ' Set the current directory to the IronPython libraries.
   System.IO.Directory.SetCurrentDirectory(
       Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) &
          "\IronPython 2.7\Lib")
   
   ' Create an instance of the random.py IronPython library.
   Console.WriteLine("Loading random.py")
   Dim py = Python.CreateRuntime()
   Dim random As Object = py.UseFile("random.py")
   Console.WriteLine("random.py loaded.")
   

9. random.py modülünü yüklemek için koddan sonra aşağıdaki kodu ekleyerek bir tamsayı dizisi oluşturun. Dizi, dizideki shuffle değerleri rastgele sıralayan random.py modülünün yöntemine geçirilir.

   ' Initialize an enumerable set of integers.
   Dim items = Enumerable.Range(1, 7).ToArray()
   
   ' Randomly shuffle the array of integers by using IronPython.
   For i = 0 To 4
       random.shuffle(items)
       For Each item In items
           Console.WriteLine(item)
       Next
       Console.WriteLine("-------------------")
   Next
   

10. Dosyayı kaydedin ve uygulamayı derlemek ve çalıştırmak için Ctrl + +F5 tuşlarına basın.

Ayrıca bkz.

• System.Dynamic
• System.Dynamic.DynamicObject
• Dinamik Arabirimleri Uygulama (Microsoft TechNet'ten indirilebilir PDF)