J'essaie vraiment de ne pas avoir un nombre disproportionné de posts en VB/VBScript/ASP par rapport au c#, Java , Perl et tous les autres. Mais quand Ray S nous envoie sa fonction de validation de données d'un vrai système en production, comment puis-je résister?
Public Function CheckIfISBNIsGoodISBNOrNot(PossiblyAnISBN As String)As Variant
'Check if a possible ISBN passed in as PossiblyAnISBN as a string is an ISBN or not an ISBN.
' Creation Date: March 2000
' Created by: (CENSORED)
' Last Modified: Aug 2001
' Modified By: (CENSORED)
' Version Number: 1.12
' Previous Versions: 1.0, 1.01, 1.04, 1.10
On Error GoTo ErrorChecking
Dim aValue As String 'string value
If Len(PossiblyAnISBN) >= 11 Then aValue = "no": GoTo TheEnd
If Len(PossiblyAnISBN) <= 9 Then aValue = "no": GoTo TheEnd
If IsNull(PossiblyAnISBN) Then aValue = "no": GoTo TheEnd
If IsEmpty(PossiblyAnISBN) Then aValue = "no": GoTo TheEnd
CheckIfISBNIsGoodISBNOrNot = "no"
'Check all digits for correctness
'Digit 1
Select Case Mid$(PossiblyAnISBN, 1, 1)
Case "0"
'yup
Case "1"
'yup
Case "2"
'yup
Case "3"
'yup
Case "4"
'yup
Case "5"
'yup
Case "6"
'yup
Case "7"
'yup
Case "8"
'yup
Case "9"
'yup
Case Else
aValue = "no"
End Select
'Digit 2
Select Case Mid$(PossiblyAnISBN, 2, 1)
Case "0"
'yup
Case "1"
'yup
Case "2"
'yup
Case "3"
'yup
Case "4"
'yup
Case "5"
'yup
Case "6"
'yup
Case "7"
'yup
Case "8"
'yup
Case "9"
'yup
Case Else
aValue = "no"
End Select
'Digit 3
Select Case Mid$(PossiblyAnISBN, 3, 1)
Case "0"
'yup
Case "1"
'yup
Case "2"
'yup
Case "3"
'yup
Case "4"
'yup
Case "5"
'yup
Case "6"
'yup
Case "7"
'yup
Case "8"
'yup
Case "9"
'yup
Case Else
aValue = "no"
End Select
'Digit 4
Select Case Mid$(PossiblyAnISBN, 4, 1)
Case "0"
'yup
Case "1"
'yup
Case "2"
'yup
Case "3"
'yup
Case "4"
'yup
Case "5"
'yup
Case "6"
'yup
Case "7"
'yup
Case "8"
'yup
Case "9"
'yup
Case Else
aValue = "no"
End Select
'Digit 5
Select Case Mid$(PossiblyAnISBN, 5, 1)
Case "0"
'yup
Case "1"
'yup
Case "2"
'yup
Case "3"
'yup
Case "4"
'yup
Case "5"
'yup
Case "6"
'yup
Case "7"
'yup
Case "8"
'yup
Case "9"
'yup
Case Else
aValue = "no"
End Select
'Digit 6
Select Case Mid$(PossiblyAnISBN, 6, 1)
Case "0"
'yup
Case "1"
'yup
Case "2"
'yup
Case "3"
'yup
Case "4"
'yup
Case "5"
'yup
Case "6"
'yup
Case "7"
'yup
Case "8"
'yup
Case "9"
'yup
Case Else
aValue = "no"
End Select
'Digit 7
Select Case Mid$(PossiblyAnISBN, 7, 1)
Case "0"
'yup
Case "1"
'yup
Case "2"
'yup
Case "3"
'yup
Case "4"
'yup
Case "5"
'yup
Case "6"
'yup
Case "7"
'yup
Case "8"
'yup
Case "9"
'yup
Case Else
aValue = "no"
End Select
'Digit 8
Select Case Mid$(PossiblyAnISBN, 8, 1)
Case "0"
'yup
Case "1"
'yup
Case "2"
'yup
Case "3"
'yup
Case "4"
'yup
Case "5"
'yup
Case "6"
'yup
Case "7"
'yup
Case "8"
'yup
Case "9"
'yup
Case Else
aValue = "no"
End Select
'Digit 9
Select Case Mid$(PossiblyAnISBN, 9, 1)
Case "0"
'yup
Case "1"
'yup
Case "2"
'yup
Case "3"
'yup
Case "4"
'yup
Case "5"
'yup
Case "6"
'yup
Case "7"
'yup
Case "8"
'yup
Case "9"
'yup
Case Else
aValue = "no"
End Select
'Digit 10 - careful, this might have an "X"
Select Case Mid$(PossiblyAnISBN, 10, 1)
Case "0"
'yup
Case "1"
'yup
Case "2"
'yup
Case "3"
'yup
Case "4"
'yup
Case "5"
'yup
Case "6"
'yup
Case "7"
'yup
Case "8"
'yup
Case "9"
'yup
Case "X"
'yup
Case Else
aValue = "no"
End Select
'Check if checkdigit is correct checkdigit for this possibleisbn or not
''#todo# -- check checkdigit. Version 1.10 was wrong.
If aValue <> "no" Then aValue = "yes" 'if not no then yes
GoTo TheEnd
ErrorChecking:
'Check errors
If (aValue <> "no") And (aValue <> "yes") Then Err.Raise 666, ,"There was an error here"
GoTo TheEnd
TheEnd:
If (aValue <> "no") And (aValue <> "yes") Then Err.Raise 666, , "I don't know what happened"
CheckIfISBNIsGoodISBNOrNot = aValue
Exit Function
End Function
