Judgementus
posted this
24 April 2020
Thanks for the reply.
I've looked through the methods and taking parts that I think will work but script does not work
"2020-04-24 11:58:01:415 | Detailed | Script engine finished, result: -1983
2020-04-24 11:58:01:423 | Error | The server threw an exception. (Exception from HRESULT: 0x80010105 (RPC_E_SERVERFAULT))"
My script below:
'The user need to define the metadata which part of the new filename that need to be cleaned before using
'uncomment the line below for the test, the result shoul be abcdefghilmnopqrstuvz
'variable = "blockquote"
Dim Target
Target = ".*\$*(\<\/|\<(blockquote)"
'In this example the metadata is a OCRZONE variable
variable = Metadata.Values("EMAILHTMLBODY")
Dim arrLines
arrLines = Split(variable, "\r\n")
Dim matchedValue
'Then you can iterate it like this
For Each strline in arrLines
match = GetFirstMatch(Target, strline)
If match <> "" Then
myString=variable
myString=Replace(myString,Target,"block1quote")
End If
NEXT
CALL Metadata.SetValues("PARTHTML",mystring)
I hoping to find the target row by row and then run the replace on the target.
I am self trained on VBS and would appreciate the help.