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 Function
Public Shared Sub LoadFromXmlFile()
Try
Dim i As Integer = 0
Dim xml As Xml.XmlDocument
@ -45,6 +46,7 @@
If xmlConfigFile Is Nothing Then Exit Sub
If Not xmlConfigFile = "" Then
If System.IO.File.Exists(xmlConfigFile) Then
xml = New Xml.XmlDocument()
xml.Load(xmlConfigFile)
'MsgBox(xmlConfigFile)
@ -61,8 +63,8 @@
For Each xmlProfil As Xml.XmlNode In xmlNodes
' prüfen ob ein Profilname angegeben wurde
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 _
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("dataSource") IsNot Nothing Then
' ein Element an Items anhängen
@ -95,30 +97,30 @@
'delete , dbArt , dataSource , userId , _
'password , initialCatalog , SQLAnweisung , windreamIndex , checkIndexSQL , indexValidation , _
'finalerIndex , aktiv , mrDAIndex , mrKDIndex
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("delete").Value, xmlProfil.Attributes("dbArt").Value, xmlProfil.Attributes("dataSource").Value, _
userId, _
password, _
initialCatalog, _
xmlProfil.Attributes("sqlanweisung").Value, _
xmlProfil.Attributes("windreamIndex").Value, _
xmlProfil.Attributes("checkIndexSQL").Value, _
xmlProfil.Attributes("indexValidation").Value, _
xmlProfil.Attributes("indexFehler").Value, _
xmlProfil.Attributes("finalerIndex").Value, _
xmlProfil.Attributes("aktiv").Value, _
xmlProfil.Attributes("mr_DAIndex").Value, _
xmlProfil.Attributes("mr_KDIndex").Value, _
xmlProfil.Attributes("move2Folder").Value, _
xmlProfil.Attributes("intervall").Value, _
xmlProfil.Attributes("lastrun").Value, _
xmlProfil.Attributes("NB_AD").Value, _
xmlProfil.Attributes("getordneridx").Value, _
xmlProfil.Attributes("ordnerType").Value, _
xmlProfil.Attributes("ordnerType_eb").Value, _
xmlProfil.Attributes("crfolderindex").Value, _
xmlProfil.Attributes("crfolder_folder").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("delete").Value, xmlProfil.Attributes("dbArt").Value, xmlProfil.Attributes("dataSource").Value,
userId,
password,
initialCatalog,
xmlProfil.Attributes("sqlanweisung").Value,
xmlProfil.Attributes("windreamIndex").Value,
xmlProfil.Attributes("checkIndexSQL").Value,
xmlProfil.Attributes("indexValidation").Value,
xmlProfil.Attributes("indexFehler").Value,
xmlProfil.Attributes("finalerIndex").Value,
xmlProfil.Attributes("aktiv").Value,
xmlProfil.Attributes("mr_DAIndex").Value,
xmlProfil.Attributes("mr_KDIndex").Value,
xmlProfil.Attributes("move2Folder").Value,
xmlProfil.Attributes("intervall").Value,
xmlProfil.Attributes("lastrun").Value,
xmlProfil.Attributes("NB_AD").Value,
xmlProfil.Attributes("getordneridx").Value,
xmlProfil.Attributes("ordnerType").Value,
xmlProfil.Attributes("ordnerType_eb").Value,
xmlProfil.Attributes("crfolderindex").Value,
xmlProfil.Attributes("crfolder_folder").Value,
xmlProfil.Attributes("crfolder_move").Value)
' Zähler für Profile erhöhen
i += 1
@ -127,6 +129,12 @@
Next
End If
End If
End If
Catch ex As Exception
End Try
End Sub
' 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)
Try
' MsgBox(fulltext)
Dim namedoc = _dokument.aName
fulltext = fulltext.Replace(vbCrLf, "")
Dim ign_whitespace As Boolean = False
Dim IndexArray As String()
@ -1685,7 +1686,7 @@ Public Class frmNIHauptseite
'Erfolgreich = Me._windreamNI.RunIndexing_Vektor(_dokument, IndexArray, ErgebnisArray)
Else
Logger("## Fehler in Volltext_indexer-Run Indexing Vektor - Erfolgreich = False", False, True)
Logger("## Fehler in Volltext_indexer- Erfolgreich = False", False, True)
End If
Next