From f36b591bd19905b75aaff45601af09f3710336d1 Mon Sep 17 00:00:00 2001 From: Developer01 Date: Thu, 3 Apr 2025 18:13:47 +0200 Subject: [PATCH] MS --- Global_Indexer/frmIndex.vb | 25 +++++++++++-------------- 1 file changed, 11 insertions(+), 14 deletions(-) diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb index fd252bb..bb63903 100644 --- a/Global_Indexer/frmIndex.vb +++ b/Global_Indexer/frmIndex.vb @@ -858,7 +858,7 @@ Public Class frmIndex Dim oSplitArray = Split(oIndexValue, ClassConstants.VECTORSEPARATOR) Dim oListofString As New List(Of String) - If oSplitArray.Count = 0 Then + If oSplitArray.Length = 0 Then oListofString.Add(oIndexValue) Else For Each oStr In oSplitArray @@ -866,20 +866,17 @@ Public Class frmIndex Next End If - If oSplitArray.Length <= 1 Then - indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, oIndexName, oIndexValue, CURR_DOKART_OBJECTTYPE) - Else - For Each oStr In oSplitArray - oListofString.Add(oStr) - Next - If oOverwrite = False And oExistingItems.Count > 0 Then - oListofString = oExistingItems.Concat(oListofString).ToList() - End If - If oPreventMultipleValues = True Then - oListofString = oListofString.Distinct().ToList() - End If - indexierung_erfolgreich = WINDREAM.SetFileIndexLoS(CURRENT_NEWFILENAME, oIndexName, oListofString, CURR_DOKART_OBJECTTYPE) + 'If oSplitArray.Length <= 1 Then + ' indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, oIndexName, oIndexValue, CURR_DOKART_OBJECTTYPE) + 'Else + If oOverwrite = False And oExistingItems.Count > 0 Then + oListofString = oExistingItems.Concat(oListofString).ToList() End If + If oPreventMultipleValues = True Then + oListofString = oListofString.Distinct().ToList() + End If + indexierung_erfolgreich = WINDREAM.SetFileIndexLoS(CURRENT_NEWFILENAME, oIndexName, oListofString, CURR_DOKART_OBJECTTYPE) + 'End If Else indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, oIndexName, oIndexValue, CURR_DOKART_OBJECTTYPE)