VB6 döngü optimizasyonu Her biri için - arama metinleri

[tiziano69]

Buongiorno, hoce seguente problema, debbo Analzare Soltanto le entita testo, per trovare alcuni testi che corrispondono ad una deterninata stringa, il codice qui quisotto, mi Analzate le entitüsü, vumente vuole molto tempo. mi aiutate ad ottzare cicaclo di pirinçrca in modo story che Analzidanto le entita testo.

grazie

objautocad = getobject (, "autocad.application")
objmodelspace = objautocad.activedocument.modelspace()

objmodelspace'deki her bir hedef için

Seçilmiş vaka Hedefi.objectname
"acdbmtext"
Eğer instr(ucase(objentity.textstring), ucase(bulma) sonra
b Findtext = true
pt = Hedeflik.insertionpoint
Hedeflik.highlight (gerçek)
Sonunda, eğer sona erirse

"acdbtext"
Eğer instr(ucase(objentity.textstring), ucase(bulma) sonra
b Findtext = true
pt = Hedeflik.insertionpoint
Hedeflik.highlight (gerçek)
Sonunda, eğer sona erirse
son seçim

Bir sonraki Hedef