Newest functions Upload a function Leave a tip My account

There are 2,520 functions in this library.

StringToCode39 ( text )

Generates a code39 string with checksum

  Average rating: 4.3 (32 votes) Log in to vote

Gary - Show more from this author GC Consulting http://GCConsulting.cc

  Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/* Converts a string of up to 7 characters into a valid code39 string with the checksum character, resulting in 8 characters plus start and stop characters. Non-valid code39 characters are omitted (but only, when number of allowed characters + number of unallowed characters ≤ 7) You can use lower case characters, they are converted into valid upper case characters Author: Gary Czychi Date: 08/14/2013 */ Let ( [ $text = Upper (text) ; $a01 = Code ( Middle ( $text ; 1 ; 1 ) ) ; $c01 = Case ( // 1st character ( $a01 ≥ 48 and $a01 ≤ 57 ) ; $a01 - 48 ; // numbers ( $a01 ≥ 65 and $a01 ≤ 90 ) ; $a01 - 55 ; // letters ( $a01 ≥ 45 and $a01 ≤ 46 ) ; $a01 - 9 ; // - and . ( $a01 = 32 ) ; $a01 + 6 ; // space character ( $a01 = 36 ) ; $a01 + 3 ; // $ ( $a01 = 47 ) ; $a01 - 7 ; // / ( $a01 = 43 ) ; $a01 - 2 ; // + ( $a01 = 37 ) ; $a01 + 5 ; // % "" ) ; $a02 = Code ( Middle ( $text ; 2 ; 1 ) ) ; $c02 = Case ( // 2nd character ( $a02 ≥ 48 and $a02 ≤ 57 ) ; $a02 - 48 ; // numbers ( $a02 ≥ 65 and $a02 ≤ 90 ) ; $a02 - 55 ; // letters ( $a02 ≥ 45 and $a02 ≤ 46 ) ; $a02 - 9 ; // - and . ( $a02 = 32 ) ; $a02 + 6 ; // space character ( $a02 = 36 ) ; $a02 + 3 ; // $ ( $a02 = 47 ) ; $a02 - 7 ; // / ( $a02 = 43 ) ; $a02 - 2 ; // + ( $a02 = 37 ) ; $a02 + 5 ; // % "" ) ; $a03 = Code ( Middle ( $text ; 3 ; 1 ) ) ; $c03 = Case ( // 3rd character ( $a03 ≥ 48 and $a03 ≤ 57 ) ; $a03 - 48 ; // numbers ( $a03 ≥ 65 and $a03 ≤ 90 ) ; $a03 - 55 ; // letters ( $a03 ≥ 45 and $a03 ≤ 46 ) ; $a03 - 9 ; // - and . ( $a03 = 32 ) ; $a03 + 6 ; // space character ( $a03 = 36 ) ; $a03 + 3 ; // $ ( $a03 = 47 ) ; $a03 - 7 ; // / ( $a03 = 43 ) ; $a03 - 2 ; // + ( $a03 = 37 ) ; $a03 + 5 ; // % "" ) ; $a04 = Code ( Middle ( $text ; 4 ; 1 ) ) ; $c04 = Case ( // 4th character ( $a04 ≥ 48 and $a04 ≤ 57 ) ; $a04 - 48 ; // numbers ( $a04 ≥ 65 and $a04 ≤ 90 ) ; $a04 - 55 ; // letters ( $a04 ≥ 45 and $a04 ≤ 46 ) ; $a04 - 9 ; // - and . ( $a04 = 32 ) ; $a04 + 6 ; // space character ( $a04 = 36 ) ; $a04 + 3 ; // $ ( $a04 = 47 ) ; $a04 - 7 ; // / ( $a04 = 43 ) ; $a04 - 2 ; // + ( $a04 = 37 ) ; $a04 + 5 ; // % "" ) ; $a05 = Code ( Middle ( $text ; 5 ; 1 ) ) ; $c05 = Case ( // 5th character ( $a05 ≥ 48 and $a05 ≤ 57 ) ; $a05 - 48 ; // numbers ( $a05 ≥ 65 and $a05 ≤ 90 ) ; $a05 - 55 ; // letters ( $a05 ≥ 45 and $a05 ≤ 46 ) ; $a05 - 9 ; // - and . ( $a05 = 32 ) ; $a05 + 6 ; // space character ( $a05 = 36 ) ; $a05 + 3 ; // $ ( $a05 = 47 ) ; $a05 - 7 ; // / ( $a05 = 43 ) ; $a05 - 2 ; // + ( $a05 = 37 ) ; $a05 + 5 ; // % "" ) ; $a06 = Code ( Middle ( $text ; 6 ; 1 ) ) ; $c06 = Case ( // 6th character ( $a06 ≥ 48 and $a06 ≤ 57 ) ; $a06 - 48 ; // numbers ( $a06 ≥ 65 and $a06 ≤ 90 ) ; $a06 - 55 ; // letters ( $a06 ≥ 45 and $a06 ≤ 46 ) ; $a06 - 9 ; // - and . ( $a06 = 32 ) ; $a06 + 6 ; // space character ( $a06 = 36 ) ; $a06 + 3 ; // $ ( $a06 = 47 ) ; $a06 - 7 ; // / ( $a06 = 43 ) ; $a06 - 2 ; // + ( $a06 = 37 ) ; $a06 + 5 ; // % "" ) ; $a07 = Code ( Middle ( $text ; 7 ; 1 ) ) ; $c07 = Case ( // 7th character ( $a07 ≥ 48 and $a07 ≤ 57 ) ; $a07 - 48 ; // numbers ( $a07 ≥ 65 and $a07 ≤ 90 ) ; $a07 - 55 ; // letters ( $a07 ≥ 45 and $a07 ≤ 46 ) ; $a07 - 9 ; // - and . ( $a07 = 32 ) ; $a07 + 6 ; // space character ( $a07 = 36 ) ; $a07 + 3 ; // $ ( $a07 = 47 ) ; $a07 - 7 ; // / ( $a07 = 43 ) ; $a07 - 2 ; // + ( $a07 = 37 ) ; $a07 + 5 ; // % "" ) ; $text = If ( $c01≥0 ; Char($a01) ; "" ) & If ( $c02≥0 ; Char($a02) ; "" ) & If ( $c03≥0 ; Char($a03) ; "" ) & If ( $c04≥0 ; Char($a04) ; "" ) & If ( $c05≥0 ; Char($a05) ; "" ) & If ( $c06≥0 ; Char($a06) ; "" ) & If ( $c07≥0 ; Char($a07) ; "" ) ; $cn = Mod ( $c01 + $c02 + $c03 + $c04 + $c05 + $c06 + $c07 ; 43 ) // code39 check number ; $an = Case ( // ascii number (an) from code39 check number (cn) ( $cn ≥ 0 and $cn ≤ 9 ) ; $cn + 48 ; // numbers ( $cn ≥ 10 and $cn ≤ 35 ) ; $cn + 55 ; // letters ( $cn ≥ 36 and $cn ≤ 37 ) ; $cn + 9 ; // - and . ( $cn = 38 ) ; $cn - 6 ; // space character ( $cn = 39 ) ; $cn - 3 ; // $ ( $cn = 40 ) ; $cn + 7 ; // / ( $cn = 41 ) ; $cn + 2 ; // + ( $cn = 42 ) ; $cn - 5 ; // % "" ) ; $ac = Char ($an) // ascii check character ] ; "*" & $text & $ac & "*" // resulting string with check character and start & stop characters ) Click to copy

The output of this function generates a valid code39 barcode string with checksum and start and stop characters. If a barcode font is installed the correct barcode is generated.

Converts a string of up to 7 characters into a valid code39 string with the checksum character, resulting in 8 characters plus start and stop characters.

Non-valid code39 characters are omitted (but only, when number of allowed characters + number of unallowed characters ≤ 7)

You can input lower case characters, they are converted into valid upper case characters.

Author: Gary Czychi
Date: 08/14/2013

P.S.: There is probably a much more elegant solution and I would like to hear from you when you have it.

 

Comments

Log in to post comments.

 

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 20 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: