向字符串中的所有数字添加小数点的最佳vbscript代码是什么？

范例

G76 I0.4779 J270 K7 C90

X20 Y30

如果一个数字以I J K C X Y开头，但它没有小数点，则添加小数点。 上面的示例应该如下所示：

G76 I0.4779 J270 K7。C90

X20。Y30

此代码的目的是转换旧Fanuc OPC控制器的CNC代码

Set RegEx = New RegExp
RegEx.Global = True
RegEx.Pattern = "([IJKCXY]\d+)([^\.]|$)"
newVar = RegEx.Replace (oldString, "$1.$2")

其中，oldString是原始字符串，newVar是添加了小数的字符串。
t Loach仍然不起作用

function convert(str)
    Set RegEx = New RegExp
    RegEx.Global = True
    RegEx.Pattern = "([IJKCXY]\d*\.?\d*)"
    Set Matches = regEx.Execute(str)

    For Each Match in Matches
        if instr(Match.value, ".") = 0 then
            str = Replace(str, Match.value, Match.value & ".")
        end if
    Next
    convert = str
end function

韦恩斯的作品，但也提出了一个。每次发生IJKCXY之后

如果instr（Match.value，“.”）为0，则我进行了更改

如果instr（Match.value，“.”=0，len（Match.value）>1，则