Bir dizgenin başka bir dizgi içerip içermediğini kontrol edin

Question

Bir dizede bir "," (virgül) içerip içermediğini bulmak istiyorum. Char-by-char okuması dışında başka bir seçeneğimiz var mı? Eğer kullanabilirsiniz bir excel formülü ile virgül bulmanız gerekiyorsa

Answer 1

Eğer bulunamazsa

dönecektir pos içinde 15 dönecektir Instr fonksiyonunu

Dim pos As Integer 

pos = InStr("find the comma, in the string", ",") 

kullanın =FIND(",";A1) işlevi.

Bir dizenin büyük/küçük harf duyarsız konumunu bulmak için Instr kullanmak istiyorsanız, Instr üçüncü parametresini kullanın ve const vbTextCompare (ya da sadece 1 kalıp kalıpları için) verin. karşılaştırırsanız başlangıç ​​argümanı gereklidir belirtilir:

Dim posOf_A As Integer 

posOf_A = InStr(1, "find the comma, in the string", "A", vbTextCompare) 

size ben bağlantılı şartnamede belirtildiği gibi bu durumda başlangıç ​​pozisyonunu belirlemek zorunda 14.

Not değerini verecektir.

Answer 2

Orada da bir şey aynı tür yapar InStrRev işlevidir, fakat başlarına metnin sonundan aramaya başlar. @ Rene'nin cevap Başına

...

Dim pos As Integer 
pos = InStrRev("find the comma, in the string", ",") 

... hala poz 15 döner ancak ediyorum dize kelime gibi arama dizesi birden fazlasını varsa "", o zaman:

Dim pos As Integer 
pos = InStrRev("find the comma, in the string", "the") 

... yerine, pos için 20 dönecekti 6.

Answer 3

, ayrıca im olmasaydı alt dize mevcuttu, DOĞRU veya YANLIŞ döndü bir fonksiyon yazabiliriz Yapı Rene'nin yanıta

't:

Public Function Contains(strBaseString As String, strSearchTerm As String) As Boolean 
'Purpose: Returns TRUE if one string exists within another 
On Error GoTo ErrorMessage 
    Contains = InStr(strBaseString, strSearchTerm) 
Exit Function 
ErrorMessage: 
MsgBox "The database has generated an error. Please contact the database administrator, quoting the following error message: '" & Err.Description & "'", vbCritical, "Database Error" 
End 
End Function 

Answer 4

Ayrıca özel kelimeyi like kullanabilirsiniz: sizin için

Public Sub Search() 
    If "My Big String with, in the middle" Like "*,*" Then 
    Debug.Print ("Found ','") 
    End If 
End Sub