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

    [VB.Net] Regular Expression su nome file

    salve a tutti,

    volevo avere un'opinione riguardo Una sub che non mi esalta tanto da voi guru incontrastato dell'universo vb.nettiano...

    io devo mettere in un arraylist il nome del file e la sua data di modifica solo se il nome file soddisfa alcune condizioni...

    vi posto la sub creata da me:

    codice:
        Sub RifaiTutteSequenze()
            Dim DirSeq As DirectoryInfo
            For Each Processo As Process In Process.GetProcessesByName("PowerOff")
                Call ChiudiProcessoID(Processo.Id)
            Next
            arrDate.Clear()
            DirSeq = New DirectoryInfo(PathCartellaC("Sequenze"))
            For Each fSeq As FileInfo In DirSeq.GetFiles
                If fSeq.Name.IndexOf("(Attivo)") = -1 Then Continue For 
                If fSeq.Name.IndexOf("[") = -1 And fSeq.Name.IndexOf("]") = -1 Then Continue For
                If fSeq.Name.Substring(fSeq.Name.IndexOf("[") + 1, fSeq.Name.Substring(fSeq.Name.IndexOf("[")).IndexOf("]") - 1).ToLower <> My.Computer.Name.ToLower Then Continue For 
                arrDate.Add(fSeq.Name & ";" & fSeq.LastWriteTime.ToShortDateString & " " & fSeq.LastWriteTime.ToShortTimeString)
            Next
            DirSeq = Nothing
        End Sub
    io vorrei fare in modo che le considerazioni che ho fatto io attraverso varie if (in grassetto) vengano analizzate da una function che userebbe le regular expression per restituirmi se il file è valido o meno.. solo che non sò come impostarla.

    sapendo che io non sò nulla di regular expression, voi come impostereste tale funzione??

    grazie
    Bombardare per la pace, è come trombare per la verginità.

    C'è qualcuno al mondo che tromba troppo secondo me...

    Andrea Medici

  2. #2
    ho fatto questa function:

    codice:
        Public Function isValidSequence(ByVal strFileName As String) As Boolean
            Dim regexfile As Regex, mat As Match, pattern As String, swMat As Boolean
            pattern = "\b*\([aA]ttiva\)\[" & My.Computer.Name & "\].txt"
            regexfile = New Regex(pattern)
            mat = Regex.Match(strFileName, pattern)
            swMat = mat.Success
            mat = Nothing
            regexfile = Nothing
            Return swMat
        End Function
    dati questi nomi di file:

    Spegne PC tutte le sere(Attiva)[Server03].txt
    Manutenzione PC lunedì notte (Attiva)[Server03].txt
    Manutenzione PC lunedì notte[Server03].txt

    secondo voi il pattern è corretto?

    grazie
    Bombardare per la pace, è come trombare per la verginità.

    C'è qualcuno al mondo che tromba troppo secondo me...

    Andrea Medici

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.