CFLib.org – cyrillicDosToUnicode

cyrillicDosToUnicode(str)

Last updated August 23, 2005

Download UDF

author

Namchin
Send Email

Version: 1 | Requires: ColdFusion 5 | Library: StrLib

Rated 0 time(s). Average Rating: 0

Description:
Convert Cyrillic DOS coded text to Unicode text.

Return Values:
Returns a string.

Example:

view plain print about

<cfset UnicodedTxt = cyrillicDosToUnicode("�������")>

Parameters:

Name	Description	Required
str	String to convert.	Yes

Full UDF Source:

	
	
			
			
			
				
				view plain
				
				
				copy to clipboard
				
				
				
				
				print
				
				
				about
				ColdFISH is developed by Jason Delmore.  Source code and license information available at coldfish.riaforge.org.  Version 3.1.1
				
			<cfscript>
/**
 * Convert Cyrillic DOS coded text to Unicode text.
 * 
 * @param str 	 String to convert. (Required)
 * @return Returns a string. 
 * @author Namchin (&#110;&#97;&#109;&#99;&#104;&#105;&#110;&#64;&#103;&#109;&#97;&#105;&#108;&#46;&#99;&#111;&#109;) 
 * @version 1, August 23, 2005 
 */
function cyrillicDostoUnicode(str) {
	var result="";
	var dos = "1026,1027,8218,1107,8222,8230,8224,8225,8364,8240,1033,8249,1034,1036,1035,1039,1106,8216,8217,8220,8221,8226,8211,8212,0,8482,1113,8250,1114,1116,1115,1119,160,1038,1118,1032,164,1168,166,167,1025,169,1028,171,172,173,174,1031,1072,1073,1074,1075,1076,1077,1078,1079,1080,1081,1082,1083,1084,1085,1086,1087";
	var i=0;
	for (i=1; i LTE len(str); i=i+1) {
		j = ListFind(dos,Asc(mid(str,i,1)),",");
		if (j neq 0) result = result & Chr(j+1039);
		else if (Asc(mid(str, i, 1)) eq 65533) result = result & Chr(1064);
		else if (Asc(mid(str, i, 1)) eq 1088) result = result & Chr(1025);
		else if (Asc(mid(str, i, 1)) eq 1089) result = result & Chr(1105);
		else if (Asc(mid(str, i, 1)) eq 1090) result = result & Chr(1028);//1256
		else if (Asc(mid(str, i, 1)) eq 1091) result = result & Chr(1108);//1257
		else if (Asc(mid(str, i, 1)) eq 1092) result = result & Chr(1111);//1198
		else if (Asc(mid(str, i, 1)) eq 1093) result = result & Chr(1031);//1199
		else result = result & mid(str, i, 1);
	}
	return result;
}
</cfscript>
		<cfscript>
/**
 * Convert Cyrillic DOS coded text to Unicode text.
 * 
 * @param str      String to convert. (Required)
 * @return Returns a string. 
 * @author Namchin (namchin@gmail.com) 
 * @version 1, August 23, 2005 
 */
function cyrillicDostoUnicode(str) {
    var result="";
    var dos = "1026,1027,8218,1107,8222,8230,8224,8225,8364,8240,1033,8249,1034,1036,1035,1039,1106,8216,8217,8220,8221,8226,8211,8212,0,8482,1113,8250,1114,1116,1115,1119,160,1038,1118,1032,164,1168,166,167,1025,169,1028,171,172,173,174,1031,1072,1073,1074,1075,1076,1077,1078,1079,1080,1081,1082,1083,1084,1085,1086,1087";
    var i=0;
    for (i=1; i LTE len(str); i=i+1) {
        j = ListFind(dos,Asc(mid(str,i,1)),",");
        if (j neq 0) result = result & Chr(j+1039);
        else if (Asc(mid(str, i, 1)) eq 65533) result = result & Chr(1064);
        else if (Asc(mid(str, i, 1)) eq 1088) result = result & Chr(1025);
        else if (Asc(mid(str, i, 1)) eq 1089) result = result & Chr(1105);
        else if (Asc(mid(str, i, 1)) eq 1090) result = result & Chr(1028);//1256
        else if (Asc(mid(str, i, 1)) eq 1091) result = result & Chr(1108);//1257
        else if (Asc(mid(str, i, 1)) eq 1092) result = result & Chr(1111);//1198
        else if (Asc(mid(str, i, 1)) eq 1093) result = result & Chr(1031);//1199
        else result = result & mid(str, i, 1);
    }
    return result;
}
</cfscript>