Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
VFP.exe to different VFP.exe
Message
De
16/02/2021 17:08:22
 
 
À
16/02/2021 16:08:41
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01678195
Message ID:
01678297
Vues:
49
>Hi Marco,
>
>SWAG deems following small change more performant...
>
>regards
>thomas
>
>>
>>**************************************************************
>>* Marco Plaza, 2018,2021
>>* @nfoxDev
>>* https://github.com/nftools/wmiquery
>>**************************************************************
>>			If !Isnull(m.property.Value)
>>				For Each Item In m.property.Value
>>					nitem = m.nitem+1
>>					Dimension &thisarray(m.nitem)
>>
>>					If Vartype( m.item) = 'O'
>>						thisitem = Createobject(EMPTYORLINE)
>>						setproperties( m.item, m.thisitem )
>>						*** &thisarray(m.nitem) = m.thisitem
>> 						store m.thisitem to 'thisarray(m.nitem)'
>>					Else
>>						*** &thisarray(m.nitem) = m.item
>>						 store m.item to 'thisarray(m.nitem)'
>>					Endif
>>
>>				Endfor
>>
>>			Endif
>>
>>
Hello Thomas

There's no way to substitute the macro operator here.
( check the preceding lines for thisArray init procedure )
@nfoxdev
github.com/nfoxdev
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform