replace-hex-data.red

Red [Needs: 'View]
view [
  title "Replace Hex Data"
  button "Binary Data" [
    file: request-file
    t1/text: form file
  ]
  t1: text 400
  return
  button "Hex Table" [
    table: request-file
    t2/text: form table
  ]
  t2: text 400
  return
  button "Replace" [
    target: read/binary file
    rows: split read table newline
    foreach row rows [
      pair: split row comma
      if (length? pair) > 1 [
        s: debase/base pair/1 16
        r: debase/base pair/2 16
        target: replace/all target s r
      ]
    ]
    dst: append file "_replaced"
    write/binary dst target
    t3/text: "Saved!"
  ]
  t3: text 400
]