Topic
Wert ungültig setzen
Page d'accueil ' Communauté ' Généralités ' Définir une valeur non valide
- Ce sujet contient 6 réponses, 2 participants et a été mis à jour pour la dernière fois par Marius Schmidt, le il y a 19 années et 4 mois.
-
AuteurMessages
-
12.01.2006 à 00:48 #34086Marius SchmidtParticipant
Ich möchte einen bestimmten Wert in allen Datensätzen eines Ordners ungültig setzen. Mit welcher Funktion erreiche ich dies? Wichtig ist mir dabei, dass ich diesen Schritt nicht separat für jeden einzelnen Datensatz durchführen muss, denn es sind weit über 60 Datensätze in dem Ordner.
12.01.2006 à 00:48 #34092Marius SchmidtParticipantIch möchte einen bestimmten Wert in allen Datensätzen eines Ordners ungültig setzen. Mit welcher Funktion erreiche ich dies? Wichtig ist mir dabei, dass ich diesen Schritt nicht separat für jeden einzelnen Datensatz durchführen muss, denn es sind weit über 60 Datensätze in dem Ordner.
12.01.2006 à 03:08 #34087Bernhard KantzParticipantThere is a property names “Object.Names” to obtain the names of objects in a folder. Optionally this property accepts “wildcard” characters to restrict the object to be addressed.
Once you have the list of object names, you can use the indirection operator $$ to access the objects.With The following example you get all datasets of the folder which includes the FPScript formula:
[code]
Dim names, i
names = ..Objects({“.*.dat”}).Names
For Each Row i in names Do
dim data = $names[i]$
data[10] = ?
End
[/code]See also “How can I access all objects in the root folder with FPScript?” in the FPScript forum
12.01.2006 à 20:57 #34088Marius SchmidtParticipantKann diese Anweisung auch in FlexPro 6.0 übertragen werden, bzw. wie würde sie dann lauten?
12.01.2006 à 21:12 #34089Bernhard KantzParticipantThat’s possible with [b]ObjectNames[/b].
[code]
Dim names, i
names = $.Path : “.FLD”$.ObjectNames({“.*.dat”})For Each Value i in names Do
dim data
data = $names[i]$
data[10] = ?
End
[/code]12.01.2006 à 21:55 #34090Marius SchmidtParticipantUnd wie erreiche ich nun, dass in allen Datensätzen z.B. der Wert “-3,40282e+038” ungültig gesetzt wird.
12.01.2006 à 23:11 #34091Bernhard KantzParticipantYou can search the index of a value with the FPScript function [b]SearchValue[/b]. With FPScript you cannot directly manipulate a data set. In this case you have to write a VBA macro. But the formula can return the new calculated values.
[code]
Dim data
data = dataset
data[SearchValue(data, -3.40282e+038)] = ?
data
[/code]
In FlexPro 7 a FPScript formula can return a list with the datasets. In FlexPro 6 you need a formula for each data set.
In this case it’s better to create a VBA macro with FlexPro Professional. With FlexPro Standard you cannot automate these steps.Do these steps:
1) Create the formula ‘ReplaceValue’ with the arguments data and value which replaces the value with ‘?’.
[code]
Arguments data, value
Dim dd
dd = data
dd[SearchValue(dd, value)] = ?
dd
[/code]
2) Write a macro which creates one formula for each dataset.
[code]
ReplaceValue(dataset, value)
[/code]
With VBA you can also convert (evaluate) these formulas into a dataset and delete the origin data sets. -
AuteurMessages
- Vous devez être connecté pour répondre à ce sujet.