VB script to convert a number to a letter

Andy Halsema

• 22. Juni 2020 22:18

I have a database field for an item's Cost that I want to print on the label. However, cost needs to be encoded so that a customer does not see what the item cost is. The numeric values would be encoded as such:

1 = W

2 = O

3 = R

4 = K

5 = U

6 = N

7 = I

8 = T

9 = E

10 = 11

0

• 

  Peter Thane

  ★ BarTender Hero ★

  • 23. Juni 2020 15:38

  Try this

  Dim NumConv
  NumConv = Array("xxx","W","O","R","K","U","N","I","T","E","11")

  Value = Format.NamedSubStrings("TheNumber").Value

  Value = NumConv(Value)

  You will need to make the field a Visual Basic Script > Event Controlled Script and as the data is coming from a database I would suggest the OnNewRecord option from the column on the left. 

  For the second line type the Value = and then in the column on the right double click on your database field with the number in. I used a Named Data Source for my testing and so the code will be slightly different fro you.

  I hope this helps

   

  

  0

Bitte melden Sie sich an, um einen Kommentar zu hinterlassen.