fix trailing separator for optional index

This commit is contained in:
Jonathan Jenne 2020-05-29 15:56:59 +02:00
parent bf45402819
commit 33cabaf35d

View File

@ -520,7 +520,14 @@ Public Class frmIndex
oNamenkonvention = oNamenkonvention.Replace(oElement.Value, oManValue)
NewFileString = oNamenkonvention
Dim oFilenameWithoutExtension = Path.GetFileNameWithoutExtension(oNamenkonvention)
Dim oExtension = Path.GetExtension(oNamenkonvention)
If oFilenameWithoutExtension.EndsWith("-") Or oFilenameWithoutExtension.EndsWith("_") Then
oFilenameWithoutExtension = oFilenameWithoutExtension.Substring(0, oFilenameWithoutExtension.Count - 1)
End If
NewFileString = oFilenameWithoutExtension & oExtension
sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString
AnzahlIndexe += 1
sql_history_Index_Values = sql_history_Index_Values & ", '" & oManValue.Replace("'", "''") & "'"