Convert from string containing HEX values to the corresponding chars (E.G. '414141' to 'AAA')

2023-07-19T12:11:46.224000Z

Util library has the following:
BYTE_TO_HEXinASCII (FUN) (byte to corresponding word)
HEXinASCII_TO_BYTE (FUN) (corresponding word to byte)
WORD_AS_STRING (FUN) (corresponding word to string)

https://product-help.schneider-electric.com/Machine%20Expert/V1.1/en/Util/index.htm?#t=topics%2Ffld-hexascii-functions.htm

Convert from string containing HEX values to the corresponding chars (E.G. '414141' to 'AAA')

2022-01-11T07:42:34.099000Z

Nice solution, thank you! I hoped for something "easier" but I am beginning to understand that this is not a happy place for string manipulations :)

Convert from string containing HEX values to the corresponding chars (E.G. '414141' to 'AAA')

2022-01-11T07:42:31.525000Z

Nice solution, thank you! I hoped for something "easier" but I am beginning to understand that this is not a happy place for string manipulations :)

Convert from string containing HEX values to the corresponding chars (E.G. '414141' to 'AAA')

2022-01-02T10:40:42.135000Z

@laxexo,

I do not believe there is an available function that handles this conversion for you, so try this out. This handles partial hex (e.g. 20F) and also padded (020F).

Notes:
1. Make sure to fill out the _asChar array with all of the chars from the ascii table (e.g. https://www.asciitable.com/). I just tested the first few chars, but the ones of interest should start at 48 (0) and ends at 122 (z), but feel free to adjust further (e.g. from 32 (space) to 126 (~)). If you have other methods that could also use the _asChar, then probably should move it to a global variable to be reused.
2. Install the Utils library, which has the HEXinASCII_TO_BYTE method.

FUNCTION sHexToAscii : STRING;
VAR_INPUT
    sInput      : STRING;
END_VAR
VAR
    _bTemp      : BYTE; // get value
    _uiIndex    : UINT; // loop index
    _asChar     : ARRAY[48..122] OF STRING(1) := ['0','1','2','3','4','5','6','7','8','9','0']; // fill
    _uiStrLen   : UINT; // input string length
    _uiStart    : UINT := 0; // loop start index
END_VAR

// get string length for potential padding
_uiStrLen := len(sInput);
// exit on empty string
IF (_uiStrLen < 1) THEN
    RETURN;
END_IF
// padding for odd (e.g. 20F instead of 020F)
IF (_uiStrLen MOD 2 = 1) THEN
    _bTemp := HEXinASCII_TO_BYTE(sInput[0]); // get low nibble
    IF (_bTemp > 47 AND _bTemp < 123) THEN
        sHexToAscii := CONCAT(sHexToAscii, _aChar[_bTemp]);
    END_IF
    // increment counter
    _uiStart := _uiStart + 1;
END_IF

FOR _uiIndex := _uiStart TO (_uiStrLen - 1) DO
    // get high nibble and low nibble
    _bTemp := SHL(HEXinASCII_TO_BYTE(sInput[_uiIndex]), 4) + HEXinASCII_TO_BYTE(sInput[_uiIndex + 1]);
    // get ascii chars
    IF (_bTemp > 47 AND _bTemp < 123) THEN
        sHexToAscii := CONCAT(sHexToAscii, _asChar[_bTemp]);
    END_IF
    // account for lower nibble
    _uiIndex := _uiIndex + 1;
END_FOR

Convert from string containing HEX values to the corresponding chars (E.G. '414141' to 'AAA')

2021-12-24T07:10:58.135000Z

Sorry: Is there a better way to do such conversion?
Are there any functions or librarys that could shorten the code?

Convert from string containing HEX values to the corresponding chars (E.G. '414141' to 'AAA')

2021-12-23T22:38:36.826000Z

what exactly is your question?

Convert from string containing HEX values to the corresponding chars (E.G. '414141' to 'AAA')

2021-12-23T09:16:10.023000Z

Hy everybody, first post here so please have mercy 😊.

I'll go straight to the question:
I read from a file a string that represents the numeric hex values a series of chars in a string
examples: '41' => 'A'; '535458' => 'STX'.

I have found the ugliest possible working code:

PROGRAM PLC_PRG
VAR
    sReadLine, sReverseString: STRING;
    udDBG: UDINT;
    pDBG: POINTER TO STRING;
    i: INT;
END_VAR

sReadline := '535458'; //corresponding string 16#535458 => 10#5461080 => stx
sReadLine := concat('16#',sReadLine); //=>'16#535458'
udDBG := STRING_TO_UDINT(sReadLine); //=>5461080
pDBG := ADR(udDBG);
sReadline := pDBG^;//=>xts
sReverseString:='';

FOR i := 0 TO len(sReadline) DO
    sReverseString := CONCAT(STR1 := sReverseString, STR2 := MID(sReadLine, 1, len(sReadline) - i));//=>stx
END_FOR

My concern is about robustness and code readability, i do not need great efficiency since the script will run only once during the initialization phase of the system and so does not need to be fast.

I have the feeling that I am missing something very obvious.
Can you please point me thowards the right direction? I looked inside the OSCAT library but could not find something satisfying.

Thank you for you attention and happy holidays.

Recent posts to Convert from string containing HEX values to the corresponding chars (E.G. '414141' to 'AAA')

Convert from string containing HEX values to the corresponding chars (E.G. '414141' to 'AAA')

Convert from string containing HEX values to the corresponding chars (E.G. '414141' to 'AAA')

Convert from string containing HEX values to the corresponding chars (E.G. '414141' to 'AAA')

Convert from string containing HEX values to the corresponding chars (E.G. '414141' to 'AAA')

Convert from string containing HEX values to the corresponding chars (E.G. '414141' to 'AAA')

Convert from string containing HEX values to the corresponding chars (E.G. '414141' to 'AAA')

Convert from string containing HEX values to the corresponding chars (E.G. '414141' to 'AAA')