Display ASCII Character Codes higher than 255 in appropriate script

[nigidivitch]

Hi there - I've been trying to get Excel to display high-value ASCII codes but am failing so far...
Basically, I've extracted a load of data from an SQL database, and a large amount of the data is appearing as character codes (e.g. "&#1332 ;" - without the space in between the "2" and the ";") rather than "Դ".
I've tried searching extensively to see whether anyone's worked out how to get excel to search through the column and replace all of the character codes with the characters themselves, but have as yet, not found a solution.

I think the answer to this is probably to use the "ChrW" function in VB, but I'm struggling to write the VB script to search through entire table, finding the character codes and replacing them with the appropriate characters.

If anyone can help me with this it would be amazing! Thanks

N

 

[pgc01]

Hi

There are no ascii codes higher than 255 and so I guess you mean Unicode characters.

This worked for me.

I had in A1:A2

This is a test: ☼, ☺, ☼, Ɔ, ☼, Ɔ.

This☼is☺☼another☼testƆ.

<colgroup><col></colgroup><tbody>
</tbody>

and I got as result, as expected:

This is a test: ☼, ☺, ☼, Ɔ, ☼, Ɔ.

This☼is☺☼another☼testƆ.

<colgroup><col></colgroup><tbody>
</tbody>

Try for A1:A10:

Sub ReplaceCodes()
Dim r As Range, rC As Range
Dim regex As Object, regexMatches As Object
Dim s As String
Dim j As Long

Set r = Range("A1:A10")
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "(&#(\d{4});)(?!.*\1)"
regex.Global = True

For Each rC In r.SpecialCells(xlCellTypeConstants, xlTextValues)
    s = rC.Value
    Set regexMatches = regex.Execute(s)
    For j = 1 To regexMatches.Count
        s = Replace(s, regexMatches(j - 1).Value, ChrW(regexMatches(j - 1).submatches(1)))
    Next j
    rC.Value = s
Next rC
End Sub

 

[nigidivitch]

That's great - thank you very much for your help!

 

[pgc01]

You're welcome. Thanks for the feedback.