J'utilise VBScript dans une base de données SIG en mode Collecteur pour vérifier la distance entre deux points de longitude et de latitude à l'aide de la fonction Trig. Le script pour trouver la distance parcourue sans aucun problème mais le script pour vérifier si l'O-D est valide avait une erreur de syntaxe. J'espère vraiment que vous pourriez m'aider avec ce problème.Valeur de condition VBScript de la colonne
Deux nouvelles colonnes actives ont été créées: Distance et VerifyDistance. La colonne de distance a été créée pour trouver la distance en utilisant la fonction Trig. Il a fonctionné avec succès mais peut avoir besoin d'améliorations dans sa structure désordonnée. VerifyDistance a utilisé les conditions IF et vérifié la valeur dans une autre colonne nommée "Valid O/D". Si la valeur est "OK", la valeur Distance sera retournée; sinon, il renverra une valeur de texte indiquant que "les points O-D ne sont pas valides" dans cette colonne.
Comme vous pouvez le voir, je suis novice en langage de programmation. Le VBScript peut être vu ci-dessous:
Function Distance
Distance = sqr((111.21*Record.Data("Work Y-coord") - 111.21*Record.Data("Home Y-coord"))^2 + (85.30*Record.Data("Work X-coord") - 85.30*Record.Data("Home X-coord"))^2)
End Function
Function VerifyDistance
If Record.Data("Valid O/D") = "OK"
VerifyDistance = Record.Data("Distance")
'document.write("Invalid O-D Points")
Else
VerifyDistance = "O-D Points are invalid."
End If
End Function
Merci beaucoup pour votre aide! Quelles variables de type dois-je affecter pour cette colonne? J'ai utilisé des doubles float pour la distance mais si les points O-D ne sont pas valides, le message ne s'affichera pas. –
@Wolter: Dans VBScript, vous ne pouvez pas définir un type avec une variable par rapport à VB ('dim myVariable' (en vbscript) vs' dim myNumber en Integer' (en Visual Basic)). – shahkalpesh
Merci quand même! –