vbscript - 文字列内のすべての数値に小数点以下の桁数を追加するのに最適なvbscriptコードは何ですか？

Question

例

G76 I0.4779 J270 K7 C90

X20 Y30

数値がIJKCXYで始まり、小数点がない場合は、小数点を追加します。上記の例は次のようになります。

G76 I0.4779J270K7。C90。

X20。Y30。

このコードの目的は、古いFanucOPCコントローラーのCNCコードを変換することです。

Answer 1

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

ここで、oldString は元の文字列で、newVar は小数が追加された文字列です。

Answer 2

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

Answer 3

tloach まだ答えが機能しない

ウェインズは機能しますが、. IJKCXY が発生するたびに

if instr(Match.value, ".") = 0 then を変更しました

if instr(Match.value, ".") = 0 and len(Match.value) > 1 のように