更换非字母数字字符在晶体HTML报告

Question

我构建了OUPUTS第三方应用XML格式文本的Crystal报表。

的第三方应用程序无法处理非字母数字字符，所以我必须将它们转换为HTML进行处理。目前，我使用此代码来捕捉最常见的字符：

stringvar output := {table.fieldName}; 
output := Trim(output); 
output := Replace (output,chrW(38),"&"); 
output := Replace (output,chrW(59),"&#59;"); 
output := Replace (output,"!","!"); 
output := Replace (output,chr(34),"""); 
output := Replace (output,chrW(35),"#"); 
output := Replace (output,"$","$"); 
output := Replace (output,"%","%"); 
output := Replace (output, chrW(39),"'"); 
output := Replace (output,"(","("); 
output := Replace (output,")",")"); 
output := Replace (output,"*","*"); 
output := Replace (output,"+","+"); 
output := Replace (output,",",","); 
output := Replace (output,"-","-"); 
output := Replace (output,".","."); 
output := Replace (output,"/","/"); 
output := Replace (output,":",":"); 
output := Replace (output,"<","&#60;"); 
output := Replace (output,"=","&#61;"); 
output := Replace (output,">","&#62;"); 
output := Replace (output,"?","&#63;"); 
output := Replace (output,"@","&#64;"); 
output := Replace (output,"[","&#91;"); 
output := Replace (output,"\","&#92;"); 
output := Replace (output,"]","&#93;"); 
output := Replace (output,"^","&#94;"); 
output := Replace (output,"_","&#95;"); 
output := Replace (output,"`","&#96;"); 
output := Replace (output,"{","&#123;"); 
output := Replace (output,"|","&#124;"); 
output := Replace (output,"}","&#125;"); 
output := Replace (output,"~","&#126;"); 
output := Replace (output, chrW(145),"&#145;"); 
output := Replace (output, chrW(146),"&#146;"); 
output := Replace (output, chrW(147),"&#147;"); 
output := Replace (output, chrW(148),"&#148;"); 
output := Replace (output, chrW(8212),"&#8212;"); 
output := Replace (output, chrW(8217),"&#8217;"); 
output := Replace (output, chrW(8220),"&#8220;"); 
output := Replace (output, chrW(8221),"&#8221;"); 
output := Replace (output,"£","&#156;"); 

它是不重要的，需要维护。我添加字符这是我找到他们，但我在想，如果有一种方法，可能使用ASCW和CHRW，动态地识别并转换非字母数字字符，以它的HTML/ASCII等效字符串中。

Answer 1

我似乎已经发现通过调整代码旨在消除非字母数字字符此解决方案：

stringvar input := {table.fieldName}; 
stringvar output := ''; 
numbervar i; 

input := Trim(input); 

for i := 1 to Length(input) Step 1 do 

    // 0-9 is 48-57 
    // A-Z is 65-90 
    // a-z is 97-122 

    if not(input[i] in [chr(32), Chr(48),Chr(49),Chr(50),Chr(51),Chr(52),Chr(53),Chr(54),Chr(55),Chr(56),Chr(57),Chr(65),Chr(66),Chr(67),Chr(68),Chr(69),Chr(70),Chr(71),Chr(72),Chr(73),Chr(74),Chr(75),Chr(76),Chr(77),Chr(78),Chr(79),Chr(80),Chr(81),Chr(82),Chr(83),Chr(84),Chr(85),Chr(86),Chr(87),Chr(88),Chr(89),Chr(90),Chr(97),Chr(98),Chr(99),Chr(100),Chr(101),Chr(102),Chr(103),Chr(104),Chr(105),Chr(106),Chr(107),Chr(108),Chr(109),Chr(110),Chr(111),Chr(112),Chr(113),Chr(114),Chr(115),Chr(116),Chr(117),Chr(118),Chr(119),Chr(120),Chr(121),Chr(122)]) 
    then 

(output := output + "&#"+ cstr(ascw(input[i]),0)+";";) 

else 

    if (input[i] in [chr(32), Chr(48),Chr(49),Chr(50),Chr(51),Chr(52),Chr(53),Chr(54),Chr(55),Chr(56),Chr(57),Chr(65),Chr(66),Chr(67),Chr(68),Chr(69),Chr(70),Chr(71),Chr(72),Chr(73),Chr(74),Chr(75),Chr(76),Chr(77),Chr(78),Chr(79),Chr(80),Chr(81),Chr(82),Chr(83),Chr(84),Chr(85),Chr(86),Chr(87),Chr(88),Chr(89),Chr(90),Chr(97),Chr(98),Chr(99),Chr(100),Chr(101),Chr(102),Chr(103),Chr(104),Chr(105),Chr(106),Chr(107),Chr(108),Chr(109),Chr(110),Chr(111),Chr(112),Chr(113),Chr(114),Chr(115),Chr(116),Chr(117),Chr(118),Chr(119),Chr(120),Chr(121),Chr(122)]) 
    then 

(output := output + input[i];) ; 

output 

并不完美，但它的工作原理。有没有人有更好的解决方案？