lotus-notes - 检查数字字段 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))