Jump to content

question esadecimal in file


faustf
 Share

Recommended Posts

Here's the fish. It works for me - but I'm sure it is not the most efficient code:

Local $hFile = FileOpen("P1000545.JPG", 16) ; Open file as binary
Local $sInput = FileRead($hFile) ; Read the whole file
FileClose($hFile) ; Close the input file
$iPosition = StringInStr($sInput, "FFE9") ; Search for the delimiter
$sPart1 = StringLeft($sInput, $iPosition - 1) ; Strip off the part up to the delimiter
$sPart2 = StringMid($sInput, $iPosition + 4) ; Strip off the part after and without the delimiter
$sInput = "" ; To save memory
$sOutput = $sPart1 & "FFDB" & StringMid(StringToBinary("<XML .....>" ), 3) & $sPart2 ; Part 1 + new delimiter + XML text + part 2
$hFile = FileOpen("P1000545_NEW.JPG", 18) ; Open output file as binary
FileWrite($hFile, $sOutput) ; write the output file
FileClose($hFile) ; close the output file

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download
Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki
PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki
Task Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki

Standard UDFs:
Excel - Example Scripts - Wiki
Word - Wiki

Tutorials:
ADO - Wiki
WebDriver - Wiki

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...