bartender-hyllesignatur.vbs

felt5 = Split(LCase(Field("RFID.RFID.Felt 5")), "/")
dewey = felt5(0)
serienummer = ""
If UBound(felt5) == 1 Then
  serienummer = felt5(1)
End If
tittel = UCase(Field("RFID.RFID.Felt 10"))
forfatter = UCase(Field("RFID.RFID.Felt 11"))

' Oppstillingsbokstaver: Første tre bokstaver fra forfatter eller tittel
' Fjern ikke-bokstavtegn: alt bortsett fra Æ-Z og ÆØÅ
Set oppstillingsbokstaverFjern = New RegExp
oppstillingsbokstaverFjern.Pattern = "[^A-ZÆØÅ]"
oppstillingsbokstaverFjern.Global = True
oppstillingsbokstaver = Left(oppstillingsbokstaverFjern.Replace(forfatter, ""), 3)
If oppstillingsbokstaver == "" Then
  oppstillingsbokstaver = Left(oppstillingsbokstaverFjern.Replace(tittel, ""), 3)
End If

' Dewey: Fjern T (tegnserier) fra første ledd
deweyParts = dewey.Split(" ")
deweyParts(0) = Replace(deweyParts(0),"T","")
dewey = Join(dewey, " ")

' Dewey: Fjern språkkoder (82,83,84,85,86)
Set deweyFjern1 = New RegExp
deweyFjern1.Pattern = "\w8[23456]\w"
deweyFjern1.Global = True
dewey = deweyFjern1.Replace(felt5[0], "")

' Dewey: Antakelig noe mer...
' @TODO

' Fjern alle tegn som ikke er tall fra serienummer. 
Set serienummerFjern = New RegExp
serienummerFjern.Pattern = "[^0-9]"
serienummerFjern.Global = True
serienummer = serienummerFjern.Replace(serienummer, "")

' Lag noe pent!
If oppstillingsbokstaver <> "" and dewey <> "" Then
  value = oppstillingsbokstaver & " " & dewey
Elseif oppstillingsbokstaver <> "" Then
  value = oppstillingsbokstaver
Else
  value = dewey
End If
if serienummer <> "" Then
  value = value & "/" & serienummer
End If

Får : OnProcessData (Line 4): If UBound(felt5) == 1 Then: Syntax error