8,452
edits
Paradox-01 (talk | contribs) (String <=> ByteArray) |
Paradox-01 (talk | contribs) mNo edit summary |
||
Line 317: | Line 317: | ||
function StringToByteArray(ThisString) | function StringToByteArray(ThisString) | ||
for i = 1 To Len(ThisString) Step 2 | for i = 1 To Len(ThisString) Step 2 | ||
str = str & Chr("&h" & Mid( | str = str & Chr("&h" & Mid(ThisString, i, 2)) | ||
next | next | ||
Line 326: | Line 326: | ||
.Type = 2 | .Type = 2 | ||
' ### 2 = text | ' ### 2 = text | ||
.WriteText | .WriteText ThisString | ||
.Position = 0 | .Position = 0 | ||
.Type = 1 | .Type = 1 |
edits