检查数字字段 lotusscript

Question

我在名为“fin_Paiement”的表单上有一个字段。我想要做的是：字段值只接受数字和点，并用点替换任何其他字符。我用替换函数为字母值做了它，但它不起作用。我试过这个：

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim db As NotesDatabase
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
doc.fin_Paiement = Replace(doc.fin_Paiement_Montant(0), "*[a-z,A-Z]*", ".")

我将感谢您的帮助！谢谢

Answer 1

创建一个将所有非数字更改为点的函数

Function ToDigitsAndDots(orig As String) As String
    Dim i As Integer
    Dim char As String
    For i=1 To Len(orig)
        char = Mid(orig, i, 1)
        If Not char Like "#" Then char = "."
        JustDigitsAndDots = JustDigitsAndDots & char
    Next
End Function

并将您的代码行更改为

doc.fin_Paiement = ToDigitsAndDots(doc.fin_Paiement_Montant(0))