Hallo zusammen,

Bei folgendem Problem finde ich als Neueinsteiger nicht die passende Syntax: In einer Inputbox soll ein Datum (Format tt.mm.jjjj) zwischen 1950 und 2050 eingegeben werden. Als Zeichen dürfen in dem zu prüfenden Eingabetext also nur Ziffern und Punkte vorkommen. Kann mir jemand helfen, wie ich das überprüfen kann. Ich stelle mir eine Schleife vor, in der die 10 Zeichen (bei mehr oder weniger Zeichen stimmt das Format eh nicht) darauf überprüft werden, ob sie zu den erlaubten Zeichen gehören.

Zum Beispiel: Wenn Zeichen(n) nicht in "0123456789." oder "0","1","2", ... dann DatumOK = false

Ich habe schon viel geblättert und gesucht, finde aber kein Beispiel für eine solche Abfrage. Die weiteren Prüfungen traue ich mir dann schon zu.

Danke für entsprechende Tipps oder Beispiele

MfG ViBaGelmo

REGEX

codeproject.com/kb/dotnet/regextutorial.aspx

viel spass einfach mal durchlesen

//Edit: kannst auch hier im Forum nach nem mini tutorial von regex suchen!!(find den link gerade nicht)

Hallo,

Regex ist natürlich eine Lösung, aber es geht noch viel einfacher, nämlich mit der "IsNumber" Funktion der Char Klasse
Siehe hier für ein Beispiel:
msdn.microsoft.com/de-de/libra…snumber%28v=VS.71%29.aspx

Ich würde gleich ein CDate-Objekt erstellen und ggf. eine Exception werfen.

Das setzt natürlich die richtige Schreibweise voraus, "10.5. 2010" ginge hier schon schief.

Dann zur Not mit .Split splitten

RodFromGermany schrieb:

und ggf. eine Exception werfen

Pfui aber auch , ein pöse Exception nimmt man hier doch wirklich nicht , lieber mit TryParse ermitteln ob das umgewandelt werden kann

Ich bin zwar selber noch neu auf diesem Gebiet, aber ich glaube das wäre in etwa so wie du es dir vorstellst. Eine Kombination aus einer for - Schleife der mid() und der instr() Funktion. Funktioiniert bei mir einwandfrei.





viel Erfolg

Hallo zusammen

Danke für die interessanten Tipps und Code-Beispiele. Die Funktion "InStr()" leistet ganz genau das, was ich gesucht habe. Die Regex-Variante konnte ich gar nicht nachvollziehen, das scheint mir eher ein Thema für Informatik-Studenten zu sein, nichts für Einsteiger und Hobby-Programmierer

Mit der Lösungshilfe von Crashed konnte ich die Überprüfungsroutine vervollständigen. Mein Programm funktioniert jetzt einwandfrei und ist so weit fertig.
Nochmals vielen Dank,

mfG Gelmo

P.S. Es wäre schön, wenn man sein abgeschlossenes Programm auf einfache Weise unter neuem Namen abspeichern könnte, um dann weitere Funktionen hinzufügen zu können, ohne die stabile Version zu gefährden, falls bei der Weiterentwicklung Probleme auftauchen. Ich habe nach entsprechenden Hinweisen gesurft, hatte aber mit den gefundenen Lösungen noch keinen Erfolg. Aber das ist wohl besser Gegenstand eines neuen Beitrags.

Ich befürchte bei einigen von uns sind die Wiederbelebungsversuche nach dem Lesen des Codes von crashed noch nicht ganz abgeschlossen

Was spricht gegen die IsDate Funktion?

Das wird ViBaGelmo nach seinem 100. Beitrag zu würdigen wissen.
Warum einfach wenn es noch einfacher geht?

Hallo zusammen,

die Beiträge zu meiner ursprünglichen Anfrage widerspiegeln mein Problem. Als Seiteneinsteiger von Delphi (Turbo Delphi 2006 Explorer) habe ich schon eine Vorstellung von der Entwicklung eines Programmes. Die Suche nach VB-Funktionen, die den mir bekannten Delphi-Funktionen entsprechen, ist bisher aber sehr mühsam, und ich hoffe durch Anfragen in diesem Forum schneller voranzukommen.

So helfen mir Beiträge wie der von Crashed mehr als etwa der Kommentar von Kangaroo, aus dem niemand entnehmen kann, wie der kritisierte Code verbessert werden kann (ich meine jetzt für mich und andere zum Lernen )

IsDate() wäre auch gegangen, aus Übungsgründen wollte ich die Prüfroutine aber genauer anlegen und habe mehrere MessageBoxen angelegt, die dem Nutzer rückmelden, wo genau ein Eingabefehler gemacht wurde.

Allen vielen Dank für die guten und wohlmeinenden Tipps.

MfG ViBaGelmo

Wenn Du in Deiner Anfrage dieses geschrieben hättest und einen Codeschnipsel gepostet hättest, hättest Du gleich qualifiziertere Antworten bekommen.

ViBaGelmo schrieb:

So helfen mir Beiträge wie der von Crashed mehr als etwa der Kommentar von Kangaroo, aus dem niemand entnehmen kann, wie der kritisierte Code verbessert werden kann

Da hast Du bestimmt Recht, allerdings wirst Du hier oft finden dass Antworten nicht in Form von vollständigem Code (Cut & Paste) sondern in Form von Ansätzen gegeben werden, die (hoffentlich) dem Wissen des Fragenden angepasst sind. Schliesslich soll der Poster ja selber noch etwas Eigeninitiative zeigen, statt nur Gib mir , Gib mir zu schreien. Nicht auf Dich bezogen , eher wie hier

Gute Tipps bekommt man auch, wenn man zeigt wie man es selber geplant hat und nach Verbesserungen fragt . Es ist erstaunlich wieviele Möglichkeiten .NET bietet , da lernt jeder (ich auch) dazu ...

Zu meiner Bemerkung über den Code von Crash:
Wie alle Funktionen die im Namespace Microsoft.VisualBasic sind Instr und Mid alte VB6 Überbleibsel, die nur aus Kompatibilitätsgründen noch in .NET geführt werden. Diese sollte man wirklich nur noch in Ausnahmefällen verwenden und die entsprechenden .NET Methoden nutzen:

Schau Dir die String-Methoden einmal an:
- statt Instr nimm lieber .Contains
- ersetze Mid durch IndexOf oder Substr
Ausserdem kann man jeden String als Array von Chars ansprechen, so gibt Textbox1.Text(0) z.B. den 1. Character der Textbox zurück (wenn er existiert).

... und der Gebrauch von GoTo löst hier halt immer heftigste Schockwellen aus, deren Behandlung von Baldrian bis zu Wiederbelebungsversuchen reichen kann

Es wäre übrigens schön , wenn Du die Lösung Deines Problems mal posten würdest. Meiner Meinung nach musst Du mehrere Tips von hier umsetzen:
a) wenn Du schon bei der Eingabe dem Benutzer Hilfestellung geben möchtest, so kannst Du das Textbox.KeyPressed Event benutzen um unzulässige Eingaben zu unterdrücken:

b) dennoch wirst Du am Ende der Eingabe (Textbox1.LostFocus Event) nicht eine nochmalige Prüfung (z.B. mit isDate) vermeiden können, oder ist die Eingabe von "......." ein zulässiges Datum ?

@Rod /sign

Hallo Kangaroo,

mit diesem Beitrag habe ich mich etwas länger beschäftigt. Anbei poste ich die Funktion, die die Datumseingebe überprüft. Darin habe ich die von dir gemachten Funktionen verwendet und schon eine bessere Vorstellung von der .net-"Philosophie" bekommen. Den Quellcode kann ich noch nicht nachvollziehen:
- Return gibt das Zeichen (e.Keychar) nur zurück, wenn die Bedungung erfüllt ist?
- Vermutlich passiert gar nichts, wenn die Bedingung nicht erfüllt ist?
- Ich kann mir vorstellen, was e.handled = true bedeutet, aber was passiert, wenn das nicht angegeben wird.

Vielen Dank für die Unterstützung

Hier die Prüffunktion:


Es gibt bestimmt eine VB-Funktion, die die Monatstage berechnet (Zeile 30). Da ich sie nicht gefunden habe, musste ich sie selbst schreiben. Ich hoffe, der Code ist nicht zu lang. Die im Originalquelltext vorhandenen Einrückungen sind leider in der Vorschau nicht vorhanden.

Letzte Anmerkung: Die Funktion läßt nun Jahreszahlen von 1583 (1582 wurde der gregorianische Kalender eingeführt) und 2100 zu. In meinem Programm wird der Monat angezeigt, in dem das eingegebene Datum liegt.

MfG ViBaGelmo

hz ist Short, TDatum ist String
Was ist dann TDatum.Substring(6,4) ?

MfG

Hallo,

TDatum.SubString(6, 4) enthält die Zeichen 7 bis 10 von TDatum, beim heutigen Datum "22.10.2010" also "2010". Offensichtlich beginnt die Zählung wie bei Arrays mit 0. Nachdem ich die zweite Codezeile eingefügt habe, verhält sich das Programm völlig identisch. Ich hielt das für ein Zeichen der Flexibilität von VB, dass auf die Weise in Zeile 1 ein String in eine Zahl umgewandelt werden kann (Versuchsweise klappte sogar hz = "3.5") .





MfG ViBaGelmo

Dann wird es Zeit, dass du mal





Vor deinen Code schreibst, dann wirst du sehen wer hier flexibel ist.

Im Ernst, wenn du wirklich sauberen Code schreiben willst, dann solltest du das tun.