Bartender写过的脚本

1.根据SN的值第4-6位（SN值如“G0G0XG08947300AA”），则对应显示不同的颜色 0XG-Black，11M-White，11W-Grey，1B0-Fig。

Dim sn,keyWord,res
sn=Format.NamedSubStrings("SN").Value
keyWord = mid(sn,4,3)
Select Case sn
Case "0XG"
res = "Black"
Case "11M"
res = "White"
Case "11W"
res = "Grey"
Case "1B0"
res = "Fig"
Case Else 
res = "err"
End Select
Value = res