Microsoft Visual Basic 6.0 normal ifadeleri nasıl kullanılır

Makale çevirileri Makale çevirileri
Makale numarası: 818802 - Bu makalenin geçerli olduğu ürünleri görün.
Hepsini aç | Hepsini kapa

Bu Sayfada

Özet

Bu adım adım makalede normal ifadeler oluşturma ve normal ifadeler dizelerin belirli bir desen eşleşip eşleşmediğini belirlemek için nasıl kullanılacağını açıklar. Normal ifadeler, basit ayrıştırma ve dizelerin belirli bir desene uyan izin verir. Microsoft VBScript düzenli ifadeleri 5.5 kitaplık içinde kullanılabilen nesneleri kullanırsanız, belirli bir desene göre bir dize karşılaştırma, başka bir dize bir dize deseni değiştirmek veya biçimlendirilmiş bir dize yalnızca bir bölümünü almak. Bu makale, birden çok örneği aynı desenin içeren bir dizeyi ayrıştırmak için bir desen oluşturmak açıklamaktadır.



Gereksinimler


Aşağıdaki listede önerilen donanım, yazılım, ağ altyapısı ve gereken hizmet paketleri önerilmektedir:
  • Microsoft Visual Basic 6.0
Bu makalede, aşağıdaki konularda bilgi sahibi olduğunuz varsayılmaktadır:
  • Visual Basic 6.0
  • Normal ifade sözdizimi


Normal ifadeleri kullanarak bir desen eşleştir



Visual Basic 6. 0'da, bir desen eşleşmesi için normal ifadeler RegExp nesnesini kullanır. Aşağıdaki özellikler RegExp tarafından sağlanır. Bu özellikler, desen RegExp örneğine geçirilen dizeleri ayarlayın:
  • Desen: normal ifade tanımlayan dize.
  • IgnoreCase: dizede normal ifade tüm olası eşleşmeleri karşı sınamalısınız olup olmadığını gösteren BIR Boole özelliği.
  • Genel: bir Boolean değeri ayarlar veya tüm arama dizesi tüm oluşumları olup bir desen eşleşmesi gerekir veya yalnızca ilk yinelemesi olup bir desen eşleşmesi gerekir gösteren bir Boole değeri döndürür.
RegExp bir dize, normal ifade, belirli bir desene eşleşip eşleşmediğini belirlemek için aşağıdaki yöntemleri sağlar:
  • Sınama: normal ifade başarıyla karşı dize eşlenmesi olup olmadığını gösteren bir Boole değeri döndürür.
  • Execute: her başarılı eşleşme Eşleştir nesnesi içeren bir MatchCollection nesnesi döndürür.
Normal ifade bir dize eşleştirmek için aşağıdaki adımları izleyin:
  1. Normal ifade RegExp <a1>Desen</a1> yöntemini kullanarak ayarlama nesne.
  2. Desenle incelemek için bu dizeyi edinin.
  3. RegExp nesne IgnoreCase özelli?inin true olarak ayarlayın.
  4. RegExp, <a1>Execute</a1> yöntemine bağımsız değişken olarak 2. adımda elde ettiğiniz dize geçirmek nesne.
  5. Dönüş değeri, Execute atama MatchCollection nesnesine bir yöntem.

    MatchCollection nesne eşleşen dizeleri hakkındaki bilgileri içerir.

NotSınama yöntemi, dize, belirli bir normal ifade eşleşip eşleşmediğini belirlemek için de kullanabilirsiniz.

Adım adım örnek

  1. Microsoft Visual Basic 6. 0'ı başlatın.
  2. Dosya menüsünde, Yeni Proje'yi tıklatın.
  3. Standart ExeNew Project</a0> iletişim kutusunda tıklatın ve sonra Tamam ' ı tıklatın.

    Varsayılan olarak, Form1 oluşturulur.
  4. Proje menüsünde Başvurular ' ı tıklatın.
  5. Çift Microsoft VBScript düzenli ifadeleri 5.5 ve sonra Tamam ' ı tıklatın.
  6. Araç kutusunda, KomutDüğmesi çift tıklatın.

    Varsayılan olarak, forma Command1 eklenir.
  7. Command1 kodunu açmak için çift pencere.
  8. Command1_Click olay işleyicisinde aşağıdaki kodu yapıştırın:
    MsgBox(TestRegExp("is.", "IS1 is2 IS3 is4"))
    Notis. desen bu örnekte, "IS1 is2 IS3 is4" dizesi karşı denetlenir. Özel (special) karakterin dönemin kullanabilirsiniz (.) bir ek karakter eşleşti ve arama deseni ile görüntülenen bir joker karakter olarak davranmasına. Arama deseni için iki nokta ekleyin, iki ek karakter görürsünüz. Tüm dönemleri kullanmazsanız, yalnızca arama deseni görebilirsiniz.
  9. Sonra Command1_click olay işleyicisinin aşağıdaki işlevi ekler:
    Function TestRegExp(myPattern As String, myString As String)
       'Create objects.
       Dim objRegExp As RegExp
       Dim objMatch As Match
       Dim colMatches   As MatchCollection
       Dim RetStr As String
       
       ' Create a regular expression object.
       Set objRegExp = New RegExp
    
       'Set the pattern by using the Pattern property.
       objRegExp.Pattern = myPattern
    
       ' Set Case Insensitivity.
       objRegExp.IgnoreCase = True
    
       'Set global applicability.
       objRegExp.Global = True
    
       'Test whether the String can be compared.
       If (objRegExp.Test(myString) = True) Then
    
       'Get the matches.
        Set colMatches = objRegExp.Execute(myString)   ' Execute search.
    
        For Each objMatch In colMatches   ' Iterate Matches collection.
          RetStr = RetStr & "Match found at position "
          RetStr = RetStr & objMatch.FirstIndex & ". Match Value is '"
          RetStr = RetStr & objMatch.Value & "'." & vbCrLf
        Next
       Else
        RetStr = "String Matching Failed"
       End If
       TestRegExp = RetStr
    End Function
  10. Çalıştır) menüsünde, uygulamayı çalıştırmak için Başlat ' ı tıklatın.
  11. Command1</a1> seçeneğini tıklatın.

    IS1 is2 IS3 is4 dizesinde , tüm oluşumları döndüren BIR ileti kutusu görüntülenir.

Referanslar

Daha fazla bilgi için aşağıdaki MSDN Web sitelerini ziyaret edin:
http://msdn2.microsoft.com/en-us/library/6wzad2b2.aspx

Özellikler

Makale numarası: 818802 - Last Review: 26 Kasım 2007 Pazartesi - Gözden geçirme: 3.1
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 6.0 Learning Edition
  • Microsoft Visual Basic 6.0 Professional Edition
Anahtar Kelimeler: 
kbmt kbprogramming kbstring kbhowtomaster KB818802 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:818802

Geri Bildirim Ver

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com