%REM
*********************************************
Library XPFUtils.LS2J
Created Feb 11, 2016 by Mikhail Cholokov/CRUINTERNET
Description: Comments for Library
%END REM
Option Public
Option Declare
Use "Files.LS2J"
Use "XWPFUtils"
%REM
*********************************************
Class XWPFUtils
Description: Comments for Class
%END REM
Class XWPFUtils As ErrorHandlerWJ
Private XWPFClass As Javaclass
Private XWPFobj As Javaobject
Sub New()
On Error GoTo ErrH
Set me.XWPFClass=jSession.Getclass({XWPFUtils})
Set me.XWPFobj=me.XWPFClass.Createobject()
Quit:
Exit Sub
ErrH:
Error Err, Me.RaiseError
End Sub
Sub Delete()
If Not me.XWPFobj Is Nothing Then Delete me.XWPFobj
End Sub
%REM
*--------------------------------------------
Function FindAndReplace
Description: Comments for Function
%END REM
Function FindAndReplace(arrFrom, arrTo, fFrom As String, fTo As String)As String
Dim routineName As String
routineName="FindAndReplace"
On Error GoTo ErrH
'your code here
Print {Replacing From String arrays...}
Call me.XWPFobj.replaceFromArray(arrFrom, arrTo, fFrom, fTo)
FindAndReplace=fTo
Quit:
Exit Function
ErrH:
Error Err, Chr(10) &{path From>}&fFrom &Chr(10) _
&{path To>}&fFrom &Chr(10) _
&RaiseError
Resume Quit
End Function
%REM
*--------------------------------------------
Function FindAndReplaceList
Description: Comments for Function
%END REM
Function FindAndReplaceList(lst List As String, fFrom As String, fTo As String) As String
Dim routineName As String
routineName="FindAndReplaceList"
On Error GoTo ErrH
'your code here
Print {Replacing From list...}
'Dim arrFrom() As String, arrTo() As String':arrFrom=Split({},{}):arrTo=Split({},{})
Dim cnt As Long
Call me.XWPFobj.clear()
ForAll m In lst
Call me.XWPFobj.add(ListTag(m),CStr(m))
End ForAll
' Dim arrFrom, arrTo
' arrFrom=me.XWPFobj.getStringArray(cnt)
' arrTo=me.XWPFobj.getStringArray(cnt)
' cnt=0
' ForAll m In lst
' arrFrom(cnt)=ListTag(m)
' arrTo(cnt)=CStr(m)
' cnt=cnt+1
' End ForAll
' FindAndReplaceList=FindAndReplace(arrFrom, arrTo, fFrom, fTo)
Call me.XWPFobj.replaceFromArray(fFrom, fTo)
FindAndReplaceList=fTo
Quit:
Exit Function
ErrH:
Error Err, Me.RaiseError
Resume Quit
End Function
End Class
да и мсдн по этому написано