Scripting - How to mark a document for Online Learning
How to mark a document for Online Learning by script?
Specific Online Learning was introduced in KTM 3.5. The user has to manually press a button in Validation to mark a document for Specific Online Learning. The following script allows it to perform this step automatically.
To improve this process and get rid of the script automatic training was added in 6.3: if this is enabled and a field is changed in Validation then the document will be marked automatically for training. Please try this first as it will also check if new documents are required!
Please note that the script code does not check if it really makes sense to train the current document.
To mark a document for either Generic or Specific Online Learning, a text file needs to be created with the same name as the XDocument, but with the extension ".oll". The content of the OLL file controls the detailed action for this document in the Knowledge Base Learning Server. To mark a document for Specific Online Learning, the Specific option needs to be set to 1.
Microsoft Scripting Runtime to the reference list first. The script event below runs in server, but it is also possible to move the script code to a different event, e.g.,
Private Sub Document_AfterProcess(pXDoc As CASCADELib.CscXDocument) '* Reference - Microsoft Scripting Runtime (1.0) '* Create an online learning (OL) file To go With the XDoc If (check_if_training_is_required(pXDoc)) Then ' your function to check, if training is required Dim XDocFilename As String Dim OllFilename As String Dim FDS As New FileSystemObject Dim TS As TextStream XDocFilename = pXDoc.FileName OllFilename = Left(XDocFilename, Len(XDocFilename) - 3) + "oll" Set TS = FDS.CreateTextFile(OllFilename, True, False) TS.WriteLine("NTUser=script_"+Environ("USERNAME")) TS.WriteLine("NTStation=script_"+Environ("COMPUTERNAME")) TS.WriteLine("Classification=0") TS.WriteLine("Extraction=0") TS.WriteLine("Specific=1") TS.WriteLine("Comment=") TS.Close End If End Sub
An alternative script in pure WinWrap Basic without external references:
Sub MarkDocumentForOnlineLearning(pXDoc As CASCADELib.CscXDocument,comment As String, _ classification As Boolean, extraction As Boolean, specific As Boolean) Dim OllFilename As String OllFilename = Left(pXDoc.FileName, Len(pXDoc.FileName) - 3) + "oll" Dim FileNum As Integer FileNum=FreeFile Open OllFilename For Output As #FileNum Print #FileNum, "NTUser=script_" & Environ("USERNAME") Print #FileNum, "NTStation=script_" & Environ("COMPUTERNAME") Print #FileNum, "Classification=" & Bool2String(classification) Print #FileNum, "Extraction=" & Bool2String(extraction) Print #FileNum, "Specific=" & Bool2String(specific) Print #FileNum, "Comment=" & comment Close #FileNum End Sub Private Function Bool2String(a As Boolean) As String Bool2String = "0" If a Then Bool2String = "1" End Function
Level of Complexity
|Kofax Transformation Module||all|
Add any references to other internal or external articles