Jump to content

Mod Tool/Scripting: Difference between revisions

m
no edit summary
(String <=> ByteArray)
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(hexString, i, 2))
  str = str & Chr("&h" & Mid(ThisString, i, 2))
  next
  next
   
   
Line 326: Line 326:
  .Type = 2
  .Type = 2
  ' ### 2 = text
  ' ### 2 = text
  .WriteText HexString
  .WriteText ThisString
  .Position = 0
  .Position = 0
  .Type = 1
  .Type = 1
8,452

edits