This commit is contained in:
2024-01-04 09:56:23 +01:00
9 changed files with 84 additions and 41 deletions

View File

@@ -104,7 +104,7 @@ Public Class cTimasAPI
Dim saldoAsDouble = CDbl(saldo)
saldoAsDouble = Math.Round(saldoAsDouble / 3600, 2)
Dim infoBuilder As New StringBuilder
infoBuilder.Append("Vortag ")
'infoBuilder.Append("Vortag ")
infoBuilder.Append(saldoAsDouble)
infoBuilder.Append(" h")
info = infoBuilder.ToString()

View File

@@ -160,7 +160,7 @@ Public Class cProgramFunctions
Dim line As String = ""
For Each column As DataColumn In dt.Columns
'Add the Data rows.
line += ";" & row(column.ColumnName).ToString().Replace(";", ",")
line += ";" & row(column.ColumnName).ToString().Replace(";", ",").Replace(vbNewLine, "").Replace(vbCr, "").Replace(vbLf, "").Replace(vbCrLf, "").Replace(System.Environment.NewLine, " ")
Next
'Add new line
txt += line.Substring(1) & vbCrLf