CREATE CURSOR csSettings ( ; Name C(25), ; Value C(10), ; Type C(1), ; Width N(5), ; Precision N(15) ; ) Append Blank Replace ; name with "cntGetWorkDirectory", ; value with "", type with "C", ; width with 0, precision with 0 Append Blank Replace ; name with "cntGetWorkDirectory", ; value with "", type with "C", ; width with 0, precision with 0 CursorToXML(Alias(),'test', 2, 16, 0, "") * the following strtran does the trick: XMLToCursor(Strtran(Strtran(test, ["0"], ["0."]), ["1"], ["1."]), 'test')The trick is to add an extra decimal point after the single 0s and 1s.
Make solutions, not programs!