8,484
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