PureBoard

Code: Alles auswählen

Debug Val("$F1")
Debug Hex(241)

Code: Alles auswählen

Procedure.s HexToString(hex.s)
	Protected length.i = Len(hex)
	Protected result.s = Space(length / 2)
	Protected *c.Character = @result
	Protected i.i
	For i = 1 To length Step 2
		*c\c = Val("$" + Mid(hex, i, 2))
		*c + SizeOf(Character)
	Next
	
	ProcedureReturn result
EndProcedure

Define StringA.s, StringB.s
StringA = "303742433041303133413444463939397C"
StringB = "07BC0A013A4DF999|"

Debug HexToString(StringA)

Code: Alles auswählen

StringA$ = "303742433041303133413444463939397C"

For i = 1 To Len(StringA$) Step 2
  StringB$ + Chr(Val("$" + Mid(StringA$, i, 2)))
Next i

Debug StringB$ ; = "07BC0A013A4DF999|"

Code: Alles auswählen

StringA$ = "303742433041303133413444463939397C"

For i = 1 To Len(StringA$) Step 2
   v = Val("$" + Mid(StringA$, i, 2))
   If v = 0
      Debug "Achtung, hier ist ein Problem!"
      StringB$ + "?"
   Else
      StringB$ + Chr(v)
   EndIf
Next i

Debug StringB$ ; = "07BC0A013A4DF999|"