Subversion Repositories aoocs

REM  *****  BASIC  *****

Sub Main(srcUrl as String, destUrl as String, search as String, replaceUrl as String, doClose as Boolean)
Dim Doc As Object
Dim SearchDesc As Object
Dim Str As String
Dim Found As Object
Dim aOptions() As Object

Doc = StarDesktop.loadComponentFromURL(srcUrl, "_blank", 0, aOptions)
SearchDesc = Doc.createSearchDescriptor


SearchDesc.SearchString = search

Found = Doc.findFirst(SearchDesc)

Found.insertDocumentFromURL( replaceUrl, aOptions )

Doc.storeAsURL(destUrl, aOptions)

if(doClose) then
Doc.close(True)
endif

End Sub