LPARAMETERS m.tcString >LOCAL m.lnI, m.lcTemp >m.lcTemp = "" >FOR m.lnI = LEN(m.tcString) TO 1 STEP -1 > m.lcTemp = m.lcTemp + SUBSTR(m.tcString,m.lnI,1) >ENDFOR m.lnI >RETURN m.lcTemp>
Local ; m.lcGuidString As String, ; m.lcGuid As String, ; m.lcGuid1 As String, ; m.lcGuid2 As String m.lcGuidString = "00112233445566778899AABBCCDDEEFF" m.lcGuid = Strconv(m.lcGuidString, 16) m.lcGuid1 = Left(m.lcGuid, 8) m.lcGuid2 = Right(m.lcGuid, 8) m.lcGuid1 = BinToC(CToBin(m.lcGuid1, "BRS"), "BRS") m.lcGuid2 = BinToC(CToBin(m.lcGuid2, "BRS"), "BRS") m.lcGuid = m.lcGuid2 + m.lcGuid1 ?m.lcGuidString ?Strconv(m.lcGuid, 15)Carlos