Lua and special characters

ome_chris · Aug 23rd 2018

Hi all,

Trying to replace special characters such as ü by u I tried the following script:

Code

function stripChars(str)
    local tableAccents = {}
        tableAccents["à"] = "a"
        tableAccents["á"] = "a"
        tableAccents["â"] = "a"
        tableAccents["ã"] = "a"
        tableAccents["ä"] = "a"
        tableAccents["ç"] = "c"
        tableAccents["è"] = "e"
        tableAccents["é"] = "e"
        tableAccents["ê"] = "e"
        tableAccents["ë"] = "e"
        tableAccents["ì"] = "i"
        tableAccents["í"] = "i"
        tableAccents["î"] = "i"
        tableAccents["ï"] = "i"
        tableAccents["ñ"] = "n"
        tableAccents["ò"] = "o"
        tableAccents["ó"] = "o"
        tableAccents["ô"] = "o"
        tableAccents["õ"] = "o"
        tableAccents["ö"] = "o"
        tableAccents["ù"] = "u"
        tableAccents["ú"] = "u"
        tableAccents["û"] = "u"
        tableAccents["ü"] = "u"
        tableAccents["ý"] = "y"
        tableAccents["ÿ"] = "y"
        tableAccents["À"] = "A"
        tableAccents["Á"] = "A"
        tableAccents["Â"] = "A"
        tableAccents["Ã"] = "A"
        tableAccents["Ä"] = "A"
        tableAccents["Ç"] = "C"
        tableAccents["È"] = "E"
        tableAccents["É"] = "E"
        tableAccents["Ê"] = "E"
        tableAccents["Ë"] = "E"
        tableAccents["Ì"] = "I"
        tableAccents["Í"] = "I"
        tableAccents["Î"] = "I"
        tableAccents["Ï"] = "I"
        tableAccents["Ñ"] = "N"
        tableAccents["Ò"] = "O"
        tableAccents["Ó"] = "O"
        tableAccents["Ô"] = "O"
        tableAccents["Õ"] = "O"
        tableAccents["Ö"] = "O"
        tableAccents["Ù"] = "U"
        tableAccents["Ú"] = "U"
        tableAccents["Û"] = "U"
        tableAccents["Ü"] = "U"
        tableAccents["Ý"] = "Y"
        tableAccents["/"] = "_"
        tableAccents["\\"] = "_"
        tableAccents["*"] = "_"
        tableAccents["&"] = "_"
        tableAccents[":"] = "_"
        tableAccents[";"] = "_"
        tableAccents["!"] = "_"
        tableAccents["@"] = "at"
  
    local normalizedString = str:gsub("[%z\1-\127\194-\244][\128-\191]*", tableAccents)
    return normalizedString
end

a=DicomObject:new()
a.QueryRetrieveLevel='STUDY'
a.StudyInstanceUID=''
-- Patient Name is "Mevr. L.H. Jânsen^Dídí" 
a.PatientName=''
a.PatientID=''
b=dicomquery('CONQUESTPRAK', 'STUDY', a)
for i=0, #b-1 do
  b[i].PatientName = stripChars(b[i].PatientName)
  print(b[i].PatientID, b[i].PatientName, b[i].StudyInstanceUID, '\n')
end

-- Test
test = [[Tëst\Dâkje^Féést&-:-/pröef]] -- For backslash: delimit the string width [[ and ]]
print (test)
print(stripChars(test))

Display More

The output I get is:

FYI, I created a "Test" partion in this script to test the script locally.

What's going wrong here.

Using:

W7 Pro 32B

Conquest 1419b

Note: in the Conquest GUI PatientName is displayed correctly in the headers, so with the right accents. Even so in the MySql db.

My purpose is to create an import converter to replace special characters for PatientName and/or PatientID.

Chris.

marcelvanherk · Aug 28th 2018

Hi Chris,

I guess the special characters are coded differently in lua (single character) and in MySql (multiple characters) hence the different behaviour. Try print the unmodified patient name in lua.

Marcel

ome_chris · Sep 4th 2018

Hi Marcel,

In MySql the unmodified patient name the special characters are shown as single character. MySql is using UTF8 in all tables.

The example I gave was only to show the Lua (in combination with Conquest) behaviour with special characters.

Using pure Lua (Test section) conversion is working fine.

Maybe you can reproduce this behaviour.

Chris

marcelvanherk · Sep 5th 2018

Hi,

but if the input is multicharacter lua may not understand it. So therefore try to print the mysql data in Lua.

Marcel

Lua and special characters

Participate now!

Share