Új hozzászólás Aktív témák

• #52583 eszgé100 őstag eszgé100 #52580

  Új Válasz 2024-05-03 23:59:50 #52583

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  eszgé100

  őstag

  válasz eszgé100 #52580 üzenetére

  Option Compare Text
Function PartName(s As String) As String
    Select Case True
        
        Case s Like "20502#[A-Z]##[A-Z]###"
            PartName = "Part1"
        
        Case s Like "###A-Z]######"
            PartName = "Part2"
        
        Case s Like "8212-9a-zA-Z]##########"
            PartName = "Part3"
    
        Case s Like "822846######"
            PartName = "Part4"      
        'etc...
    
    End Select
End Function

  ez lett a vege

Új hozzászólás Aktív témák