Posted by:
ansteyfamily Hi all,
I got the SBL font yesterday and wrote an algorithm to convert the entire Westminster MT ascii text (WTS) into unicode for the SBL font encoding. It is written in VBA, but it is very straigtforward. Here is an outline of what needs to happen. I think it is correct, but I would like to hear of any mistakes. I've left out the usual stuff like declaring variables. It uses two VB functions: InStr(str1, str2), that gives the position of str1 in str2 and replace(str1,str2,str3) that replaces str2 with str3 in str1. (the WTS version is the one that bworks 6.0 exports. I think it is much the same as the WTS original, without the ]n tags.)
You may have a better algorithm. Please share it!
Please email me for any clarifications or any errors you find.
With regards,
Matthew Anstey
Vrije Universiteit, Amsterdam
Charles Sturt University, School of Theology, Canberra, Australia
Function fncSBL (strWTS as string) as String
'constants
strC = ")BGDHWZX+YKLMNS(PCQR&$T" ' WTS consonants
strV =":AEIOUF" & Chr$(34) 'vowels
strA = "0123456789" 'accents
