Visualizzazione dei risultati da 1 a 4 su 4
  1. #1

    Reg Epr per controllare una data in VB.net

    Vorrei verificare, durante la dicitura, che la data che si sta inserendo abbia il seguente formato: gg/mm/aaaa
    Nel caso in cui una delle caratteristiche del formato voluto non sia verificata deve comparire un messaggio d'errore.

    Ho provato una cosa dle tipo:
    codice:
            Dim myregex As Regex = (\d{2})\W(\d{2})\W(\d{4})
    
            If (myregex.IsMatch(DataNascitaField)) Then
               ...funzioni varie in caso di digitatura corretta
            Else
                MessageBox.Show("E' stato inserito un valore non valido nella Data di Nascita.", _
                                "Attenzione", MessageBoxButtons.OK, MessageBoxIcon.Error, _
                                MessageBoxDefaultButton.Button1, 0, True)
            End If
    ma da errore:
    Nome 'myregex' non dichiarato.
    :maLOL:

  2. #2
    Utente di HTML.it L'avatar di cassano
    Registrato dal
    Aug 2004
    Messaggi
    3,002
    Dim myregex As new Regex

  3. #3
    Dilemma, ho anche guardato un po in giro, ho trovato qualcosa (a prescindere che la reg creata: ("\d{2})\W(\d{2})\W(\d{4}") sia o no corretta):

    codice:
            
            Dim myregex As New Regex ("\d{2})\W(\d{2})\W(\d{4}")
            Dim m As Match = myregex.IsMatch(DataNascitaField)
            If (m.Success) Then
                Me.CheckDataNascitaFIELD(DataNascitaField)
                Me.EtàGiocatore(DataNascitaField)
            Else
                MessageBox.Show("E' stato inserito un valore non valido nella Data di Nascita.", _
                               "Attenzione", MessageBoxButtons.OK, MessageBoxIcon.Error, _
                              MessageBoxDefaultButton.Button1, 0, True)
            End If
    ma da 2 errori:
    - su Regex: Tipo "Regex" non definito.
    - su Match: Tipo "Match " non definito.

  4. #4
    per tutti gli interessati, ho trovato e risolto in questo modo:


    codice:
        
    Imports System.Text.RegularExpressions
    
    Public Class LamiaClass  
    private Sub lamiasub()
    Dim DataNascitaField As String = TextBoxDataNascita.Text
    'Il criterio seguente verifica se la stringa di input è una data in formato mm-gg-aa o mm-gg-aaaa
            If Not Regex.IsMatch(DataNascitaField, "^\s*\d{1,2}(/|-)\d{1,2}\1(\d{4}|\d{2})\s*$") Then
                TextBoxDataNascita.ForeColor = Color.Red
            Else
                TextBoxDataNascita.ForeColor = Color.Black
                Me.CheckDataNascitaFIELD(DataNascitaField)
                Me.EtàGiocatore(DataNascitaField)
            End If
    End Sub
    l'errore che segnalavo era dovuto alla mancanza de:
    codice:
        
    Imports System.Text.RegularExpressions
    ad inizio pagina, fuori dalla dichiarazione della Class

    Se qualcuno la può e/o vuole migliorare con idee...please!!!

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.