HIlfe bei Script

Du hättest in diesem Thread Thementabelle bearbeiten das Skript noch einmal entsprechend der unteren Version aktualisieren sollen, dann bräuchtest du jetzt nur noch statt "mod 2", "mod 10" zu schreiben. Also so:

TheView=av.getactivedoc
TheContourTheme=TheView.getactivethemes.get(0)
theFTab = TheContourTheme.getFtab

theBitmap = theFTab.GetSelection
theBitmap.ClearAll

theFTab.Query("[Contour] mod 10 = 0",theBitmap,#VTAB_SELTYPE_NEW)

theFTab.UpdateSelection


Ansonsten täte es glaub ich dieses hier:


TheView=av.getactivedoc
TheContourTheme=TheView.getactivethemes.get(0)

theFTab = TheContourTheme.getFtab

theBitmap = theFTab.GetSelection
theBitmap.ClearAll

thecontourfield = theFTab.findfield("Contour")

Number.SetDefFormat("d")

for each rec in theFTab
theVal = theFTab.ReturnValue(thecontourfield,rec)
if (((theVal/2).AsString.Right(1) = "0") or ((theVal/2).AsString.Right(1) = "5")) then
theBitmap.Set(rec)
end
end

theFTab.UpdateSelection
Number.SetDefFormat("")

...

Hallo Nicola,

die Zeile:

If ((theVal/2).AsStringRight(1) = "0") then

muesste wohl heissen:

If ((theVal/10).Truncate * 10 = theVal) then

Jedoch fehlt noch der Befehl zum Loeschen scheint mir. Dein Skript selektiert meines Erachtens die betreffenden Datensaetze. Dito muesste die Zeile:

theBitmap.Set(rec)

lauten:

theFTab.RemoveRecord (rec)

Klappt's?

Uwe

Ja, das ist das Gleiche. Ich würde aber wegen ihrer Kürze und Flexibilität die Skript-Version hinter dem Also so: in meiner obigen Antwort vorziehen...

Aber: Wie's gefällt...