Birçok dilde bir nesnenin yinelenebilir olup olmadığını kontrol etmek mümkündür, bunu VBA için nasıl yapabilirim?Değerin yinelenebilir olup olmadığını kontrol edin vba
Function isIterable(obj As Variant) As Boolean
On Error Resume Next
Dim iterator As Variant
For Each iterator In obj
Exit For
Next
isIterable = Err.Number = 0
End Function
Ama bir yerleşik veya daha iyi bir yaklaşım olmadığını merak:
Deneyebilirim?
yerleşik bir işleve var mı: sayılı
daha iyi bir yaklaşım var mı?:
ben böyle yapardı:
Function isIterable(obj As Variant) As Boolean
On Error GoTo isIterable_Error
Dim iterator As Variant
For Each iterator In obj
isIterable = True
Exit Function
Next
isIterable_Error:
End Function
aynı satırda iki kez = koyarak biraz fazla olduğu için.
Neden "Hata Goto 0", bir işlevden çıkarken otomatik değil mi? Ayrıca, bir satırı yükseltmemek yine de bu satırı atlatamaz mı? Ben de senin yaklaşımı olduğunu da daha iyi olduğunu '' Err.Number' – Greedo
@Greedo - 'Hata On GoTo 0' bir çağrı (ve hata için kullandığım MZTools, işlevinde yerleşik bir işlevi içermez taşıma). Gerçekten de, onsuz da çalışır. Ve bir hatayı yükseltmek onu atlardı, evet. Aslına bakarsanız, bu hatta her durumda ulaşılamaz :) – Vityata
'=' iki kez çok fazla yazmaktan çekinmeyin. Bir hata döndüren _is hatası olarak düşünmeyi daha kolay buluyorum? Bu cevabı bir değişkene yerleştirin. DOĞRUYU YANLIŞ ve Görünmez olarak görünür hale getirmek için _Boolean = Not Boolean_ ile aynı düşünce. –
Ben Vityata en işlevi daha iyi olduğunu düşünüyorum, ama yok sadece alternatif olarak: sizin fonksiyon dizileri desteklemekle birlikte, diziler bir `For` döngü ile iterated gerektiğini
Function isIterable(obj As Object) As Boolean
On Error Resume Next
isIterable = TypeName(CallByName(obj, "_NewEnum", VbGet)) = "Unknown"
If Not isIterable Then isIterable = TypeName(CallByName(obj, "_NewEnum", VbMethod)) = "Unknown"
End Function
bir şey bu (bu OP'in kodu yapar) işlemek değil bir şey dizilerdir - bir 'Variant' parametre ve sopa almak 'IsArray (obj) Sonra isIterable = True: En üstte Fonksiyondan Çık 've gitmekte fayda var. Ayrıca özel koleksiyon sınıfları '_NewEnum' üyesine sahip olamazdı (bir alt çizgi öneki bir VBA tanımlayıcısında yasa dışıdır). Bir 'NewEnum 'özellik getterini (' VB_UserMemId = -4 'üye özniteliği kadar önemli olduğundan emin değilim), bu yüzden bir üye adı için' 'NewEnum'' kullanıp kullanamayacağımı kontrol ediyorum… ama% 100 değil güvenilir. Bunu gerçekten yapmanın tek yolu, bazı yansıma API'larıyla olur. –
'_' e.g. 'MsgBox TypeName (aCollection. [_ NewEnum]) –
@AlexK. Evet, özel koleksiyonlar kendi koleksiyonlarının numaralandırıcısını böyle çağırıyor ... diyorum ki özel bir koleksiyon çok iyi bir 'Kamu Mülkiyeti Get NextItem() IUnknown' üye özniteliğiyle 'NextItem.VB_UserMemId = -4 Ve orada, işlev yanlış bir negatif olacaktır. IOW, belirli bir öznitelik değeri için bir üyenin sorgulanmasını sağlayan bir yansıma API'sı kullanmanın kısa yolu, OP'in sahip olduğu en iyi çözümdür. –
Not değil, bir' Her 'için (önemli performans nedenleriyle). Çağıran kod, bu varyantı yerine "IsArray" ile test etmelidir. –
Ancak, yinelenebilirliği test etmek için listedeki ilk öğeyi yinelediğinden (şimdi bir kelime!), O kadar da önemli değil, Mat'sMug. – FreeMan
@FreeMan değil * bu * işlevi - ama eğer bir kod bir "For Her" döngüsü ile yinelenip yinelenemeyeceğini bulmak için bu işlevi çağırıyorsa ve işlev bir dizi alır ve "evet sorun yok" diyorsa, o zaman Çağıran kodun, her ne olursa olsun "objesi" için bir "Her" döngüsüne dalılacağını varsaymak makul görünmektedir. Ve eğer bu bir dizi ise, o zaman kanlı verimsiz. –