16/06/10 12:56:13.36 XH6ZNw6vm
ワイはこれ
文字列 = "あいうえおかきくけこ"
置換したい = "か"
置換される = "ん"
置換場所 = 6
MsgBox( "置換前：<#CR>" + 文字列 + "<#CR>置換後：<#CR>" +_
ReplaceX(文字列, 置換したい, 置換される, 置換場所) +_
)
Function ReplaceX(Paris, Permute, Target, Pos, Force = 0)
Dim CharBox[0] = Length(Paris)
Ifb CharBox[0] < Pos; Result = Paris; Exit; EndIf
For i = 1 to CharBox[0] + 1
CharBox[R