Eingabe umwandeln / verifizieren

TS71M · 29. April 2016, 08:14

Hallo Leute,

Ich habe ein Datagridview mit mehreren Spalten und ein typisiertes Dataset dahinter. Funktioniert alles.
Die beiden Spalten "Start time' und 'end time' sind datetime spalten.
nun folgende zwei Aufgaben

Bei Eingabe einer neuen Zeit setzt er automatisch das Datum auf heute. Das bedeutet ich gebe 6:00 ein und in der db kommt 29/04/2016 06:00:00 ein.
Wie kann ich verhindern, dass er das Datum ändert; oder wie gebe ich das dazugehörige Datum vor?
es nervt 6:00 immer als sechs, Doppelpunkt, null, null eingeben zu müssen. Ich würde gerne es so machen, dass wenn der User nur eine ein- oder zweistellige Zahl eingibt, dass dies immer Stunden sind (also 14 => 14:00) und wenn mehr als zwei Stellen dann ist alles ab der 2. Stelle Minuten (1423 => 14:23).

Vielen Dank schon mal für alle Ratschläge und Hilestellungen.

RodFromGermany · 29. April 2016, 08:25

@TS71M
zu 1.:

VB.NET-Quellcode

Dim dt = DateTime.Now.Date
MessageBox.Show(dt.ToString)
Dim ts = New TimeSpan(11, 55, 33)
dt = dt.Add(ts)
MessageBox.Show(dt.ToString)

zu 2.: Sieh Dir mal das DataGridView.Validating-Event an.

ErfinderDesRades · 29. April 2016, 08:32

Im DGV_CellParsing - Event kann man beliebige Umwandlungs-Funktionen reinbasteln - Da kannst du auch hinbasteln, dass aus 12345 die Uhrzeit 12:34:05 wird.

TS71M schrieb:

wie gebe ich das dazugehörige Datum vor?

Die Frage ist: Was ist das "dazugehörige Datum"?
Soll der User das Datum nicht ändern können?
Aber ein Datum soll doch drinne stehen, oder?
Wie soll das Datum hineinkommen?

TS71M · 29. April 2016, 08:38

Im oberen Teil des Form gibt es einen DateTimePicker der das zugehörige Datum vorgeben soll. Dort wählt man den entsprechenden Tag/Datum aus und unten stehen dann die entsprechenden Anfangs- und Endzeiten.

ErfinderDesRades · 29. April 2016, 08:42

Fein - dann sind die Vorraussetzungen geklärt, und du kannst das DGV_CellParsing klarmachen.

TS71M · 29. April 2016, 21:15

Also ich hab da jetzt mal was zusammengebastelt, was zwar funzt, ich mir aber denke, dass dies wahrscheinlich viel einfacher ginge

VB.NET-Quellcode

Private Sub dgvTaskPlanning_CellParsing(sender As Object, e As DataGridViewCellParsingEventArgs) Handles dgvTaskPlanning.CellParsing
If e.RowIndex < 0 AndAlso e.RowIndex > dgvTaskPlanning.RowCount - 2 Then Return
If e.ColumnIndex <> dgvtbcStartTime.Index AndAlso e.ColumnIndex <> dgvtbcEndTime.Index Then Return
Try
Dim str As String = e.Value.ToString
Dim ts As New TimeSpan
Dim h, m As New Integer
Select Case IsDate(e.Value)
Case True
If CDate(e.Value).Date <> dtpGlobalDate.Value.Date Then
Dim d As Date = CDate(e.Value)
h = d.Hour
m = d.Minute
End If
Case False
Select Case str.Length
Case 0 To 2
If CInt(e.Value) > 24 Then : MessageBox.Show("No values greater than 23 for hours") : e.ParsingApplied = False : End If
h = CInt(e.Value)
m = 0
Case 3
h = CInt(str.Substring(0, 1))
m = CInt(str.Substring(1, 2))
If m > 59 Then : MessageBox.Show("No values greater than 59 for minutes") : e.ParsingApplied = False : End If
Case 4
h = CInt(str.Substring(0, 2))
m = CInt(str.Substring(2, 2))
Case Else
MessageBox.Show("No valid time. Please change.", "Enter Time")
e.ParsingApplied = False
End Select
End Select
ts = New TimeSpan(h, m, 0)
e.Value = dtpGlobalDate.Value.Date.Add(ts)
e.ParsingApplied = True
Catch ex As Exception
e.ParsingApplied = False
End Try
If Not e.ParsingApplied Then MessageBox.Show("Parsing not successful", "Enter Time")
End Sub

Vorschläge?

ErfinderDesRades · 29. April 2016, 23:00

jo, sehr gut!

meins ist bisserl knapper, aber auch weil meine Parse-Aktion sehr simpel ist:

VB.NET-Quellcode

Private Sub ItemDataGridView_CellParsing(sender As Object, e As DataGridViewCellParsingEventArgs) Handles ItemDataGridView.CellParsing
If e.ColumnIndex <> 1 Then Return
Try ' im Fehlerfall greift das Standard-Parsing, mit seiner Fehler-Meldung
Dim dt = CDate(ItemDataGridView(e.ColumnIndex, e.RowIndex).Value).Date
Dim s = e.Value.ToString
Dim numbs = {Integer.Parse(s.Substring(0, 2)), Integer.Parse(s.Substring(2))}
e.Value = dt + New TimeSpan(numbs(0), numbs(1), 0)
e.ParsingApplied = True
Catch ex As Exception
End Try
End Sub

Halt Select Case True IsDate(e.Value), CDate und Kram sollteste rauswerfen.
Du kannst versuchen, direkt nach Timespan zu parsen, und wenn das nicht klappt, dann halt die verschiedenen Integers aus dem String elaborieren - da gibts viele Möglichkeiten.
Der Punkt ist eben, dass - wenn als Timespan nicht parseable, dass dann die Eingabe als Eingabe von Nummern zu lesen versucht wird, und aus den Nummern erzeugt man dann den Timespan.

Ich hab einfach vorausgesetzt, dass der User bis zu 4 Digits eintippt, aber man kann auch verschiedenste Trennzeichen berücksichtigen und hastenichjesehn.

Im Fehlerfall setze ich einfach ParsingApplied nicht, das hat zur Folge, dass das DGV zu parsen versucht, und dann kommt ja erwünschterweise der Standard-Fehler zum Zuge.

TS71M · 30. April 2016, 08:47

Super und danke.
Ich habe das Ganze nun nocht etwas verfeinert und in eine function eingebaut, da ich dies in anderen Forms auch noch nutzen möchte:

VB.NET-Quellcode

Public Shared Function ParseTimeEnter(val As Object, dptGlobal As DateTimePicker) As Date
Try
Dim dt = dptGlobal.Value.Date
Dim s = val.ToString
Dim numbs(1) As Integer
Select Case s.Length
Case 1
numbs = {Integer.Parse(s.Substring(0, 1)), 0}
Case 2
numbs = {Integer.Parse(s.Substring(0, 2)), 0}
Case 3
numbs = {Integer.Parse(s.Substring(0, 1)), Integer.Parse(s.Substring(1))}
Case 4
numbs = {Integer.Parse(s.Substring(0, 2)), Integer.Parse(s.Substring(2))}
Case Else
Return Nothing
End Select
Return dt + New TimeSpan(numbs(0), numbs(1), 0)
Catch ex As Exception
Return Nothing
End Try
End Function
End Class

und im Event:

VB.NET-Quellcode

If e.ColumnIndex <> dgvtbcStartTime.Index AndAlso e.ColumnIndex <> dgvtbcEndTime.Index Then Return
e.Value = clTask.ParseTimeEnter(e.Value, dtpGlobalDate)
e.ParsingApplied = If(e.Value Is Nothing, False, True)

Somit wandelt er alles bis 4 Stellen um:
5 => 5:00
17=> 17:00
537 => 5:37
1421=> 14:21
:thumbsup:

ErfinderDesRades · 30. April 2016, 10:34

Super - Wiederverwendbarkeit macht guten Code aus!

Die Methode sollte imo kein DateTimePicker-Argument verlangen, sondern einfach ein Date - ist flexibler.

Hmm - das 2. Arg kann sogar ganz weggelassen werden:

VB.NET-Quellcode

Private Sub ItemDataGridView_CellParsing(sender As Object, e As DataGridViewCellParsingEventArgs) Handles ItemDataGridView.CellParsing
If e.ColumnIndex <> 1 Then Return
Dim ts = TimeParseSpecial(e.Value.ToString)
If ts = TimeSpan.MinValue Then Return
e.Value = dtpGlobalDate.Value.Date + ts
If e.ParsingApplied = True Then
End Sub
''' <summary> returnt bei Fehlschlag Timespan.MinValue </summary>
Public Shared Function TimeParseSpecial(txt As String) As TimeSpan
Try
Dim numbs() As Integer
Select Case txt.Length
Case 1
numbs = {Integer.Parse(txt.Substring(0, 1)), 0}
Case 2
numbs = {Integer.Parse(txt.Substring(0, 2)), 0}
Case 3
numbs = {Integer.Parse(txt.Substring(0, 1)), Integer.Parse(txt.Substring(1))}
Case 4
numbs = {Integer.Parse(txt.Substring(0, 2)), Integer.Parse(txt.Substring(2))}
End Select
Return New TimeSpan(numbs(0), numbs(1), 0)
Catch ex As Exception
Return TimeSpan.MinValue
End Try
End Function

TS71M · 30. April 2016, 11:10

Hey super, wird immer kompakter.
Einen Einwand hätte ich aber noch

Bei Eingabe von Stunden grösser 24 würde der Timespan dann Tage enthalten. Addiert man diese zum Datum bekommt man einen anderen Tag und das darf nicht passieren.Deshalb habe ich noch folgendes hinzugefügt:

VB.NET-Quellcode

If numbs(0) >= 24 Then numbs(0) = 0

und im Event

VB.NET-Quellcode

e.ParsingApplied = If(ts = TimeSpan.MinValue, False, True)

Eingabe umwandeln / verifizieren

Eingabe umwandeln / verifizieren

VB.NET-Quellcode

TS71M schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

3 Benutzer haben hier geschrieben