AppStd/ToolCollection
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2017-07-27 12:37:57 +02:00
parent 688f53a74a
commit e54d8ce325
5 changed files with 90 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.vs/ProjectSettings.json Normal file
View File

@ -0,0 +1,3 @@
{
"CurrentProjectSetting": null
}

7
.vs/VSWorkspaceState.json Normal file
View File

@ -0,0 +1,7 @@
{
"ExpandedNodes": [
""
],
"SelectedNode": "\\ToolCollection.sln",
"PreviewInSolutionExplorer": false
}

BIN
.vs/slnx.sqlite Normal file
View File

Binary file not shown.

60
ToolCollection/ClassNIProfile.vb
View File

@ -37,6 +37,7 @@
End Try End Try
End Function End Function
Public Shared Sub LoadFromXmlFile() Public Shared Sub LoadFromXmlFile()
Try
Dim i As Integer = 0 Dim i As Integer = 0
Dim xml As Xml.XmlDocument Dim xml As Xml.XmlDocument
@ -45,6 +46,7 @@
If xmlConfigFile Is Nothing Then Exit Sub If xmlConfigFile Is Nothing Then Exit Sub
If Not xmlConfigFile = "" Then If Not xmlConfigFile = "" Then
If System.IO.File.Exists(xmlConfigFile) Then
xml = New Xml.XmlDocument() xml = New Xml.XmlDocument()
xml.Load(xmlConfigFile) xml.Load(xmlConfigFile)
'MsgBox(xmlConfigFile) 'MsgBox(xmlConfigFile)
@ -61,8 +63,8 @@
For Each xmlProfil As Xml.XmlNode In xmlNodes For Each xmlProfil As Xml.XmlNode In xmlNodes
' prüfen ob ein Profilname angegeben wurde ' prüfen ob ein Profilname angegeben wurde
If xmlProfil.Attributes("profilname") IsNot Nothing And xmlProfil.Attributes("dokumenttyp") IsNot Nothing And _ If xmlProfil.Attributes("profilname") IsNot Nothing And xmlProfil.Attributes("dokumenttyp") IsNot Nothing And
xmlProfil.Attributes("windreamsuche") IsNot Nothing And xmlProfil.Attributes("dbArt") IsNot Nothing And _ xmlProfil.Attributes("windreamsuche") IsNot Nothing And xmlProfil.Attributes("dbArt") IsNot Nothing And
xmlProfil.Attributes("dataSource") IsNot Nothing Then xmlProfil.Attributes("dataSource") IsNot Nothing Then
' ein Element an Items anhängen ' ein Element an Items anhängen
@ -95,30 +97,30 @@
'delete , dbArt , dataSource , userId , _ 'delete , dbArt , dataSource , userId , _
'password , initialCatalog , SQLAnweisung , windreamIndex , checkIndexSQL , indexValidation , _ 'password , initialCatalog , SQLAnweisung , windreamIndex , checkIndexSQL , indexValidation , _
'finalerIndex , aktiv , mrDAIndex , mrKDIndex 'finalerIndex , aktiv , mrDAIndex , mrKDIndex
ClassNIProfile._profiles(i) = New ClassNIProfil(xmlProfil.Attributes("profilname").Value, xmlProfil.Attributes("dokumenttyp").Value, xmlProfil.Attributes("windreamsuche").Value, _ ClassNIProfile._profiles(i) = New ClassNIProfil(xmlProfil.Attributes("profilname").Value, xmlProfil.Attributes("dokumenttyp").Value, xmlProfil.Attributes("windreamsuche").Value,
xmlProfil.Attributes("ni_art").Value, xmlProfil.Attributes("xml_end").Value, xmlProfil.Attributes("folder").Value, _ xmlProfil.Attributes("ni_art").Value, xmlProfil.Attributes("xml_end").Value, xmlProfil.Attributes("folder").Value,
xmlProfil.Attributes("delete").Value, xmlProfil.Attributes("dbArt").Value, xmlProfil.Attributes("dataSource").Value, _ xmlProfil.Attributes("delete").Value, xmlProfil.Attributes("dbArt").Value, xmlProfil.Attributes("dataSource").Value,
userId, _ userId,
password, _ password,
initialCatalog, _ initialCatalog,
xmlProfil.Attributes("sqlanweisung").Value, _ xmlProfil.Attributes("sqlanweisung").Value,
xmlProfil.Attributes("windreamIndex").Value, _ xmlProfil.Attributes("windreamIndex").Value,
xmlProfil.Attributes("checkIndexSQL").Value, _ xmlProfil.Attributes("checkIndexSQL").Value,
xmlProfil.Attributes("indexValidation").Value, _ xmlProfil.Attributes("indexValidation").Value,
xmlProfil.Attributes("indexFehler").Value, _ xmlProfil.Attributes("indexFehler").Value,
xmlProfil.Attributes("finalerIndex").Value, _ xmlProfil.Attributes("finalerIndex").Value,
xmlProfil.Attributes("aktiv").Value, _ xmlProfil.Attributes("aktiv").Value,
xmlProfil.Attributes("mr_DAIndex").Value, _ xmlProfil.Attributes("mr_DAIndex").Value,
xmlProfil.Attributes("mr_KDIndex").Value, _ xmlProfil.Attributes("mr_KDIndex").Value,
xmlProfil.Attributes("move2Folder").Value, _ xmlProfil.Attributes("move2Folder").Value,
xmlProfil.Attributes("intervall").Value, _ xmlProfil.Attributes("intervall").Value,
xmlProfil.Attributes("lastrun").Value, _ xmlProfil.Attributes("lastrun").Value,
xmlProfil.Attributes("NB_AD").Value, _ xmlProfil.Attributes("NB_AD").Value,
xmlProfil.Attributes("getordneridx").Value, _ xmlProfil.Attributes("getordneridx").Value,
xmlProfil.Attributes("ordnerType").Value, _ xmlProfil.Attributes("ordnerType").Value,
xmlProfil.Attributes("ordnerType_eb").Value, _ xmlProfil.Attributes("ordnerType_eb").Value,
xmlProfil.Attributes("crfolderindex").Value, _ xmlProfil.Attributes("crfolderindex").Value,
xmlProfil.Attributes("crfolder_folder").Value, _ xmlProfil.Attributes("crfolder_folder").Value,
xmlProfil.Attributes("crfolder_move").Value) xmlProfil.Attributes("crfolder_move").Value)
' Zähler für Profile erhöhen ' Zähler für Profile erhöhen
i += 1 i += 1
@ -127,6 +129,12 @@
Next Next
End If End If
End If End If
End If
Catch ex As Exception
End Try
End Sub End Sub
' erstellt ein neues Profil ' erstellt ein neues Profil

3
ToolCollection/frmNIHauptseite.vb
View File

@ -1529,6 +1529,7 @@ Public Class frmNIHauptseite
Private Function Volltext_indexer(_dokument As WMObject, fulltext As String) Private Function Volltext_indexer(_dokument As WMObject, fulltext As String)
Try Try
' MsgBox(fulltext) ' MsgBox(fulltext)
Dim namedoc = _dokument.aName
fulltext = fulltext.Replace(vbCrLf, "") fulltext = fulltext.Replace(vbCrLf, "")
Dim ign_whitespace As Boolean = False Dim ign_whitespace As Boolean = False
Dim IndexArray As String() Dim IndexArray As String()
@ -1685,7 +1686,7 @@ Public Class frmNIHauptseite
'Erfolgreich = Me._windreamNI.RunIndexing_Vektor(_dokument, IndexArray, ErgebnisArray) 'Erfolgreich = Me._windreamNI.RunIndexing_Vektor(_dokument, IndexArray, ErgebnisArray)
Else Else
Logger("## Fehler in Volltext_indexer-Run Indexing Vektor - Erfolgreich = False", False, True) Logger("## Fehler in Volltext_indexer- Erfolgreich = False", False, True)
End If End If
Next Next