【StarSuite Basic/OpenOffice.org Basic】

【StarSuite Basic/Op ..

244:デフォルトの名無しさん
08/07/10 18:52:04
>>243
こうか？
Sub retest
Dim Re As Object
Re = CreateObject("VBScript.RegExp")

Re.Pattern = "A."
Re.Ignorecase = True
Re.Global = True
sResult = Re.Replace("abc", "12")

msgbox sResult
Re = nothing
End Sub

次ページ