FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

Strange characters going from FWH to Outlook FWH 13.10

Post a reply

Re: Strange characters going from FWH to Outlook FWH 13.10

Postby driessen » Mon Feb 19, 2024 4:50 pm

Hello, Mr. Rao,

If I do the test you proposed with FWH 23.07 and with FWH 23.10, I get in both cases an alert with these 4 results:

EN
cp437
1252
850
Regards,

Michel D.
Genk (Belgium)
_____________________________________________________________________________________________
I use : FiveWin for (x)Harbour v. 24.02 - Harbour 3.2.0 (February 2024) - xHarbour Builder (January 2020) - Bcc77
User avatar
driessen
 
Posts: 1396
Joined: Mon Oct 10, 2005 11:26 am
Location: Genk, Belgium
Top

Re: Strange characters going from FWH to Outlook FWH 13.10

Postby Otto » Mon Feb 19, 2024 6:13 pm

Dear Michel,
We never managed to achieve a good conversion with the built-in code tables.

Therefore, we created various functions. You could build one according to this scheme.

Best regards,
Otto

Code: Select all  Expand view


function convertXML2( cVData, aufruf )
   local I := 0
   local cTemp := ""
   
   *----------------------------------------------------------

   if VALType(aufruf) = "U"
   else
      cVData := STRTRAN( ALLTRIM(cVData), ";", "," )
   endif
/*
   cVData  :=  STRTRAN(cVData,  "+ae+"  , "ä" )
   cVData  :=  STRTRAN(cVData,  "+ue+"  , "ü" )
   cVData  :=  STRTRAN(cVData,  "+oe+"  , "ö" )
   cVData  :=  STRTRAN(cVData,  "+Ae+"  , "Ä"  )
   cVData  :=  STRTRAN(cVData,  "+Oe+"  , "Ö" )
   cVData  :=  STRTRAN(cVData,  "+Ue+"  , "Ü" )
   cVData  :=  STRTRAN(cVData,  "+ss+"  , "ß" )
*/
   
     
    IF  ASC(substr(cVData,i,1)) = 10
         cVData := STRTRAN( cVData, chr(10 ), " " )
      endif

      IF  ASC(substr(cVData,i,1)) = 13
         cVData := STRTRAN(cVData, chr( 13)," ")
      endif
 

   FOR I := 1 TO len(cVData)
   
               
      if  ASC(substr(cVData,i,1)) > 128  
       
            if  ASC(substr(cVData,i,1)) = 195  
                           
           
            elseif ASC(substr(cVData,i,1)) < 30
                fwlog "<30", ASC( substr(cVData,i,1) )
               
            else   
                fwlog ">195", substr( cVData, i, 1 ), ASC( substr( cVData, i, 1 ) )
               
     
            if  ASC( substr( cVData, i, 1 ) ) = 128 ; cTemp  +=  "€"
                elseif  ASC( substr( cVData, i, 1 ) ) = 129 ; cTemp  +=  ""
                elseif  ASC( substr( cVData, i, 1 ) ) = 130 ; cTemp  +=  "‚"
                elseif  ASC( substr( cVData, i, 1 ) ) = 131 ; cTemp  +=  "Æ’"
                elseif  ASC( substr( cVData, i, 1 ) ) = 132 ; cTemp  +=  "„"
                elseif  ASC( substr( cVData, i, 1 ) ) = 133 ; cTemp  +=  "…"
                elseif  ASC( substr( cVData, i, 1 ) ) = 134 ; cTemp  +=  "â€"
                elseif  ASC( substr( cVData, i, 1 ) ) = 135 ; cTemp  +=  "‡"
                elseif  ASC( substr( cVData, i, 1 ) ) = 136 ; cTemp  +=  "ˆ"
                elseif  ASC( substr( cVData, i, 1 ) ) = 137 ; cTemp  +=  "‰"
                elseif  ASC( substr( cVData, i, 1 ) ) = 138 ; cTemp  +=  "Å"
                elseif  ASC( substr( cVData, i, 1 ) ) = 139 ; cTemp  +=  "‹"
                elseif  ASC( substr( cVData, i, 1 ) ) = 140 ; cTemp  +=  "Å’"
                elseif  ASC( substr( cVData, i, 1 ) ) = 141 ; cTemp  +=  ""
                elseif  ASC( substr( cVData, i, 1 ) ) = 142 ; cTemp  +=  "Ž"
                elseif  ASC( substr( cVData, i, 1 ) ) = 143 ; cTemp  +=  ""
                elseif  ASC( substr( cVData, i, 1 ) ) = 144 ; cTemp  +=  ""
                elseif  ASC( substr( cVData, i, 1 ) ) = 145 ; cTemp  +=  "‘"
                elseif  ASC( substr( cVData, i, 1 ) ) = 146 ; cTemp  +=  "’"
                elseif  ASC( substr( cVData, i, 1 ) ) = 147 ; cTemp  +=  "“"
                elseif  ASC( substr( cVData, i, 1 ) ) = 148 ; cTemp  +=  "”"
                elseif  ASC( substr( cVData, i, 1 ) ) = 149 ; cTemp  +=  "•"
                elseif  ASC( substr( cVData, i, 1 ) ) = 150 ; cTemp  +=  "–"
                elseif  ASC( substr( cVData, i, 1 ) ) = 151 ; cTemp  +=  "—"
                elseif  ASC( substr( cVData, i, 1 ) ) = 152 ; cTemp  +=  "Ëœ"
                elseif  ASC( substr( cVData, i, 1 ) ) = 153 ; cTemp  +=  "â„¢"
                elseif  ASC( substr( cVData, i, 1 ) ) = 154 ; cTemp  +=  "Å¡"
                elseif  ASC( substr( cVData, i, 1 ) ) = 155 ; cTemp  +=  "›"
                elseif  ASC( substr( cVData, i, 1 ) ) = 156 ; cTemp  +=  "Å“"
                elseif  ASC( substr( cVData, i, 1 ) ) = 157 ; cTemp  +=  ""
                elseif  ASC( substr( cVData, i, 1 ) ) = 158 ; cTemp  +=  "ž"
                elseif  ASC( substr( cVData, i, 1 ) ) = 159 ; cTemp  +=  "Ÿ"
                elseif  ASC( substr( cVData, i, 1 ) ) = 160 ; cTemp  +=  ""
                elseif  ASC( substr( cVData, i, 1 ) ) = 161 ; cTemp  +=  "¡"
                elseif  ASC( substr( cVData, i, 1 ) ) = 162 ; cTemp  +=  "¢"
                elseif  ASC( substr( cVData, i, 1 ) ) = 163 ; cTemp  +=  "£"
                elseif  ASC( substr( cVData, i, 1 ) ) = 164 ; cTemp  +=  "¤"
                elseif  ASC( substr( cVData, i, 1 ) ) = 165 ; cTemp  +=  "Â¥"
                elseif  ASC( substr( cVData, i, 1 ) ) = 166 ; cTemp  +=  "¦"
                elseif  ASC( substr( cVData, i, 1 ) ) = 167 ; cTemp  +=  "§"
                elseif  ASC( substr( cVData, i, 1 ) ) = 168 ; cTemp  +=  "¨"
                elseif  ASC( substr( cVData, i, 1 ) ) = 169 ; cTemp  +=  "©"
                elseif  ASC( substr( cVData, i, 1 ) ) = 170 ; cTemp  +=  "ª"
                elseif  ASC( substr( cVData, i, 1 ) ) = 171 ; cTemp  +=  "«"
                elseif  ASC( substr( cVData, i, 1 ) ) = 172 ; cTemp  +=  "¬"
                elseif  ASC( substr( cVData, i, 1 ) ) = 173 ; cTemp  +=  "¬"
                elseif  ASC( substr( cVData, i, 1 ) ) = 174 ; cTemp  +=  "®"
                elseif  ASC( substr( cVData, i, 1 ) ) = 175 ; cTemp  +=  "¯"
                elseif  ASC( substr( cVData, i, 1 ) ) = 176 ; cTemp  +=  "°"
                elseif  ASC( substr( cVData, i, 1 ) ) = 177 ; cTemp  +=  "±"
                elseif  ASC( substr( cVData, i, 1 ) ) = 178 ; cTemp  +=  "²"
                elseif  ASC( substr( cVData, i, 1 ) ) = 179 ; cTemp  +=  "³"
                elseif  ASC( substr( cVData, i, 1 ) ) = 180 ; cTemp  +=  "´"
                elseif  ASC( substr( cVData, i, 1 ) ) = 181 ; cTemp  +=  "µ"
                elseif  ASC( substr( cVData, i, 1 ) ) = 182 ; cTemp  +=  "¶"
                elseif  ASC( substr( cVData, i, 1 ) ) = 183 ; cTemp  +=  "·"
                elseif  ASC( substr( cVData, i, 1 ) ) = 184 ; cTemp  +=  "¸"
                elseif  ASC( substr( cVData, i, 1 ) ) = 185 ; cTemp  +=  "¹"
                elseif  ASC( substr( cVData, i, 1 ) ) = 186 ; cTemp  +=  "º"
                elseif  ASC( substr( cVData, i, 1 ) ) = 187 ; cTemp  +=  "»"
                elseif  ASC( substr( cVData, i, 1 ) ) = 188 ; cTemp  +=  "¼"
                elseif  ASC( substr( cVData, i, 1 ) ) = 189 ; cTemp  +=  "½"
                elseif  ASC( substr( cVData, i, 1 ) ) = 190 ; cTemp  +=  "¾"
                elseif  ASC( substr( cVData, i, 1 ) ) = 191 ; cTemp  +=  "¿"
                elseif  ASC( substr( cVData, i, 1 ) ) = 192 ; cTemp  +=  "À"
                elseif  ASC( substr( cVData, i, 1 ) ) = 193 ; cTemp  +=  "Ã"
                elseif  ASC( substr( cVData, i, 1 ) ) = 194 ; cTemp  +=  "Â"
                elseif  ASC( substr( cVData, i, 1 ) ) = 195 ; cTemp  +=  "Ã"
                elseif  ASC( substr( cVData, i, 1 ) ) = 196 ; cTemp  +=  "Ä"
                elseif  ASC( substr( cVData, i, 1 ) ) = 197 ; cTemp  +=  "Ã…"
                elseif  ASC( substr( cVData, i, 1 ) ) = 198 ; cTemp  +=  "Æ"
                elseif  ASC( substr( cVData, i, 1 ) ) = 199 ; cTemp  +=  "Ç"
                elseif  ASC( substr( cVData, i, 1 ) ) = 200 ; cTemp  +=  "È"
                elseif  ASC( substr( cVData, i, 1 ) ) = 201 ; cTemp  +=  "€"
                elseif  ASC( substr( cVData, i, 1 ) ) = 202 ; cTemp  +=  "Ê"
                elseif  ASC( substr( cVData, i, 1 ) ) = 203 ; cTemp  +=  "Ë"
                elseif  ASC( substr( cVData, i, 1 ) ) = 204 ; cTemp  +=  "ÃŒ"
                elseif  ASC( substr( cVData, i, 1 ) ) = 205 ; cTemp  +=  "Ã"
                elseif  ASC( substr( cVData, i, 1 ) ) = 206 ; cTemp  +=  "ÃŽ"
                elseif  ASC( substr( cVData, i, 1 ) ) = 207 ; cTemp  +=  "Ã"
                elseif  ASC( substr( cVData, i, 1 ) ) = 208 ; cTemp  +=  "Ã"
                elseif  ASC( substr( cVData, i, 1 ) ) = 209 ; cTemp  +=  "Ñ"
                elseif  ASC( substr( cVData, i, 1 ) ) = 210 ; cTemp  +=  "Ã’"
                elseif  ASC( substr( cVData, i, 1 ) ) = 211 ; cTemp  +=  "Ó"
                elseif  ASC( substr( cVData, i, 1 ) ) = 212 ; cTemp  +=  "Ô"
                elseif  ASC( substr( cVData, i, 1 ) ) = 213 ; cTemp  +=  "Õ"
                elseif  ASC( substr( cVData, i, 1 ) ) = 214 ; cTemp  +=  "Ö"
                elseif  ASC( substr( cVData, i, 1 ) ) = 215 ; cTemp  +=  "×"
                elseif  ASC( substr( cVData, i, 1 ) ) = 216 ; cTemp  +=  "Ø"
                elseif  ASC( substr( cVData, i, 1 ) ) = 217 ; cTemp  +=  "Ù"
                elseif  ASC( substr( cVData, i, 1 ) ) = 218 ; cTemp  +=  "Ú"
                elseif  ASC( substr( cVData, i, 1 ) ) = 219 ; cTemp  +=  "Û"
                elseif  ASC( substr( cVData, i, 1 ) ) = 220 ; cTemp  +=  "Ãœ"
                elseif  ASC( substr( cVData, i, 1 ) ) = 221 ; cTemp  +=  "Ã"
                elseif  ASC( substr( cVData, i, 1 ) ) = 222 ; cTemp  +=  "Þ"
                elseif  ASC( substr( cVData, i, 1 ) ) = 223 ; cTemp  +=  "ß"
                elseif  ASC( substr( cVData, i, 1 ) ) = 224 ; cTemp  +=  "Ã"
                elseif  ASC( substr( cVData, i, 1 ) ) = 225  ; cTemp  +=  "á"
                elseif  ASC( substr( cVData, i, 1 ) ) = 226  ; cTemp  +=  "â"
                elseif  ASC( substr( cVData, i, 1 ) ) = 227  ; cTemp  +=  "ã"
                elseif  ASC( substr( cVData, i, 1 ) ) = 228  ; cTemp  +=  "ä"
                elseif  ASC( substr( cVData, i, 1 ) ) = 229  ; cTemp  +=  "Ã¥"
                elseif  ASC( substr( cVData, i, 1 ) ) = 230  ; cTemp  +=  "æ"
                elseif  ASC( substr( cVData, i, 1 ) ) = 231  ; cTemp  +=  "ç"
                elseif  ASC( substr( cVData, i, 1 ) ) = 232  ; cTemp  +=  "è"
                elseif  ASC( substr( cVData, i, 1 ) ) = 233  ; cTemp  +=  "é"
                elseif  ASC( substr( cVData, i, 1 ) ) = 234  ; cTemp  +=  "ê"
                elseif  ASC( substr( cVData, i, 1 ) ) = 235  ; cTemp  +=  "ë"
                elseif  ASC( substr( cVData, i, 1 ) ) = 236  ; cTemp  +=  "ì"
                elseif  ASC( substr( cVData, i, 1 ) ) = 237  ; cTemp  +=  "ì"
                elseif  ASC( substr( cVData, i, 1 ) ) = 238  ; cTemp  +=  "î"
                elseif  ASC( substr( cVData, i, 1 ) ) = 239  ; cTemp  +=  "ï"
                elseif  ASC( substr( cVData, i, 1 ) ) = 240  ; cTemp  +=  "ð"
                elseif  ASC( substr( cVData, i, 1 ) ) = 241  ; cTemp  +=  "ñ"
                elseif  ASC( substr( cVData, i, 1 ) ) = 242  ; cTemp  +=  "ò"
                elseif  ASC( substr( cVData, i, 1 ) ) = 243  ; cTemp  +=  "ó"
                elseif  ASC( substr( cVData, i, 1 ) ) = 244  ; cTemp  +=  "ô"
                elseif  ASC( substr( cVData, i, 1 ) ) = 245  ; cTemp  +=  "õ"
                elseif  ASC( substr( cVData, i, 1 ) ) = 246  ; cTemp  +=  "ö"
                elseif  ASC( substr( cVData, i, 1 ) ) = 247  ; cTemp  +=  "÷"
                elseif  ASC( substr( cVData, i, 1 ) ) = 248  ; cTemp  +=  "ø"
                elseif  ASC( substr( cVData, i, 1 ) ) = 249  ; cTemp  +=  "ù"
                elseif  ASC( substr( cVData, i, 1 ) ) = 250  ; cTemp  +=  "ú"
                elseif  ASC( substr( cVData, i, 1 ) ) = 251  ; cTemp  +=  "û"
                elseif  ASC( substr( cVData, i, 1 ) ) = 252  ; cTemp  +=  "ü"
                elseif  ASC( substr( cVData, i, 1 ) ) = 253  ; cTemp  +=  "ý"
                elseif  ASC( substr( cVData, i, 1 ) ) = 254  ; cTemp  +=  "þ"
                elseif  ASC( substr( cVData, i, 1 ) ) = 255  ; cTemp  +=  "ÿ"

                       
                else
                    fwlog ">195 else", substr( cVData, i, 1 ), ASC( substr( cVData, i, 1 ) )
                endif
           
         
           
            endif   
       
     
      else
         // fwlog "else" , substr( cVData, i, 1 )
        cTemp += substr( cVData, i, 1 )
     
      ENDIF


   next

cVData := cTemp

return (cVData)
*----------------------------------------------------------



   
function wordumlaute( cVData, aufruf )
   local I := 0
   local nIdx := 0
   local cTmp := ""
   *----------------------------------------------------------
   
   if VALType(aufruf) = "U"
   
   else
      cVData := STRTRAN( ALLTRIM( cVData ), ";", "," )
   endif
   
   // escaping
   cVData  :=  STRTRAN(cVData, CHR(38), "+38+" )
   cVData  :=  STRTRAN(cVData, CHR(228), "+ae+" )
   cVData  :=  STRTRAN(cVData, CHR(252), "+ue+" )
   cVData  :=  STRTRAN(cVData, CHR(246), "+oe+" )
   cVData  :=  STRTRAN(cVData, CHR(196), "+Ae+" )
   cVData  :=  STRTRAN(cVData, CHR(214), "+Oe+" )
   cVData  :=  STRTRAN(cVData, CHR(220), "+Ue+" )
   cVData  :=  STRTRAN(cVData, CHR(223), "+ss+" )
   
     
   FOR I := 1 TO len(cVData)
     
      IF  ASC(substr(cVData,i,1)) = 10
         cVData := STRTRAN( cVData, chr(10 ), " " )
      endif
     
      IF  ASC(substr(cVData,i,1)) = 13
         cVData := STRTRAN(cVData, chr( 13)," ")
      endif
     
     
   next
 
return (cVData)

//----------------------------------------------------------------------------//

function unescaping( cVData  )
   cVData  :=  STRTRAN(cVData,  "+38+"  , "&amp;"  )
   cVData  :=  STRTRAN(cVData,  "+ae+"  , "ä" )
   cVData  :=  STRTRAN(cVData,  "+ue+"  , "ü" )
   cVData  :=  STRTRAN(cVData,  "+oe+"  , "ö" )
   cVData  :=  STRTRAN(cVData,  "+Ae+"  , "Ä"  )
   cVData  :=  STRTRAN(cVData,  "+Oe+"  , "Ö" )
   cVData  :=  STRTRAN(cVData,  "+Ue+"  , "Ü" )
   cVData  :=  STRTRAN(cVData,  "+ss+"  , "ß" )
   
return( cVData )

//----------------------------------------------------------------------------//

 
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6005
Joined: Fri Oct 07, 2005 7:07 pm
Top

Re: Strange characters going from FWH to Outlook FWH 13.10

Postby driessen » Mon Feb 19, 2024 7:11 pm

Otto,

Thanks for your suggestion.
But if I have to use this function to check every character in every string, isn't that slowing down my application?
Regards,

Michel D.
Genk (Belgium)
_____________________________________________________________________________________________
I use : FiveWin for (x)Harbour v. 24.02 - Harbour 3.2.0 (February 2024) - xHarbour Builder (January 2020) - Bcc77
User avatar
driessen
 
Posts: 1396
Joined: Mon Oct 10, 2005 11:26 am
Location: Genk, Belgium
Top

Re: Strange characters going from FWH to Outlook FWH 13.10

Postby Otto » Mon Feb 19, 2024 11:32 pm

Dear Michel,
I haven't conducted any direct speed measurements, but I've never noticed it being slow.
I think the code page must solve it similarly.
Best regards,
Otto
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6005
Joined: Fri Oct 07, 2005 7:07 pm
Top
Previous
Post a reply

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 90 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group