' adds strFiller to keep letters separate 'Now, this has maximum value of index up to which there are valid values in the conversion arrayįunction InsertFiller(ByVal inStr1 As String, ByVal strMaatraasAll As String, ByVal strFiller As String) As String ObjFileOut.WriteLine arrIndex & "," & arrInCode(arrIndex) & "," & Chr(34) & arrFromChar(arrIndex) & Chr(34) & "," & Chr(34) & arrToChar(arrIndex) & Chr(34) 'function InsertFiller adds Filler to keep letters separateĪrrFromChar(arrIndex) = InsertFiller(arrFields(1), strMaatraasAll, strFiller)ĪrrToChar(arrIndex) = InsertFiller(arrFields(2), strMaatraasAll, strFiller) 'this set of conversion stays at this index in arrays If arrIndexMax = 1) And (arrInCode(arrIndex) 4 Then ReadConversionTable arrInCode, arrFromChar, arrToChar, arrIndexMax, strMaatraasAll, strFiller, CreateCSVTable, oFontFrom, oFontTo 'subroutine reads conversion table from disk file and optionally creates only applicable values to another CSV disk file '0: No, 1: yes, Change accordingly if you want to create the output conversion table or not, helps in debugging
#Kruti dev 010 to unicode converter code#
' bindu, anuswara, dec code 2306, also to be moved forward if immediately with chhoti i 'to prevent matraas and samyuktakshars from merging, yet not give a word break
StrMaatraasAll = strMaatraasAll & arrMaatraas(arrIndex) & " " 'This converts above codes to letters and puts them in a single variableįor arrIndex = 0 To UBound(arrMaatraasCode)ĪrrMaatraas(arrIndex) = ChrW(arrMaatraasCode(arrIndex)) 'aa i ee u oo ri rri e ai au o ou bindu, e, chandrabindu, visarg, halant, nuqta 'Name of the target font to which source is to be converted, must be exactly as displayed in ms word FONT box 'Name of the source properietary font to be converted to target, must be exactly as displayed in ms word FONT box ' If there are more than one font that you intend to convert, please run the macro many times, each time selecting one font for conversion ' Hence, ensure that the font of the text you intend to convert, has been set to that font. ' Only selected font is changed to Unicode. ' First Release: Version 1.0, 24 December 2015. ' Proprietary fonts to Unicode font Converter Macro for MS Word 'Private Declare Function WideCharToMultiByte Lib "kernel32" ( _ ''' WinApi function that maps a UTF-16 (wide character) string to a new character string 'Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" _ Public Declare Function MessageBoxU Lib "user32" Alias "MessageBoxW" _ 'Private Declare PtrSafe Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" _ 'Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _ Public Declare PtrSafe Function MessageBoxU Lib "user32" Alias "MessageBoxW" _
I'm using Windows8-32 bit, MS Office 2010, Word. You can't run it without the conversion table file and without the text in the said font. Header #def part is not much used in this final macro, but used in debugging, so I retained it here.
#Kruti dev 010 to unicode converter free#
Feel free to tell me if something like "bad coding style" comes to your notice, and alternative method of doing this. I don't know how efficient it is and how much time and resources it uses. It reads the conversion table from a tab delimited file, and converts one by one by finding all matches and then does some ligature shifting. This working macro converts Hindi Devanagari proprietary font to Unicode font.
0 kommentar(er)
