Bir ara yapmıştım ev sistemi yazarken ama malasef kod elimde yok. esasında normalde kullandığımız tagleri fln kaydırırken yaptığımızdan farklı birşey değil sadece karmaşık geliyor. =) biraz vaktimi aldı ama yaptım ufak hatalar çok vakit öldürüyor ?)
aşağıda şu şekilde bir mantık izledim get_tags kısmında 10 rastgele rakamı diziyoruz. f_check_tags de ise 5 den büyük olan rakamları siliyoruz.
Kod:
[function get_Tags]
TAG.NUM = <r3>
for 10
tag.num .=,<R10>
endfor
sysmessage <tag.num>
[function f_check_tags]
sysmessage @1553,,1 <tag.num>
for a 1 <f_array_lenght <tag.num>>
if <f_array <tag.num>,<dlocal.a>> > 5
tag.num = <f_list_checked <local.a>>,<f_list_After_checked <local.a>>
f_check_Tags
return 1
endif
endfor
[function f_list_Checked]
for 0 (<args>-1)
local.return .=,<f_array <tag.num>,<local._for>>
endfor
return <strsub 1 <local.return>>
[function f_list_After_checked]
for <eval <args>+1> <f_array_lenght <tag.num>>
local.return .=,<f_array <tag.num>,<local._for>>
endfor
return <strsub 0 <local.return>>