String Replace(multiple) problem

[madsiddiqui]

#include <String.au3>
;declerations here
$hFile = FileOpen("Test.bin", 18)
$hFile2 = FileOpen("Test2.bin", 0)
$chars = FileRead($hFile2)
$SH = StringReplace(StringReplace(StringReplace(StringReplace(StringReplace(StringReplace(StringReplace(StringReplace($chars, "", @TAB, 0 ,1), "", @CRLF, 0 ,1), "9" ,"-", 0 ,1), "4" ," ", 0 ,1), "7" ,"#", 0 ,1), "$" ,"0", 0 ,1), "%" ,"1", 0 ,1), "h" ,"|", 0 ,1)
$bString = _StringToHex($SH)
FileWrite($hFile, _HexToString($bString))
FileClose($hFile)

Any advise on how to make the string replace a bit better than that? very messy.

I have to add around 100+ strings to be replaced.

Another thing is, on my replace.

I will replace all 4 to {space}, and all {space} to 4.. But when I do this, all {space} just becomes 4, and the 4 remains a 4, not replaced to {space}.

Replace all

4 => {space}

Replace all

{space} => 4

Replace all

$ => 0

Replace all

0 => $

How to do that? Thank you.

Edited September 9, 2011 by madsiddiqui

[GEOSoft]

$sH = FileRead("SomeFile.bin")
$sH = StringRegExpReplace($sH, "([\h4\$0])(\h*=>\h*)([\h4\$0])", "$3$2$1")

[Melba23]

madsiddiqui,

I would set out the required replacement values in an array and then work through the string like this:

#include <Array.au3>

; Here you define the originals and their replacements 
Global $aReplacements[2][2] = [["4", "o"], ["o", "4"]]
 
$sText = "-o4-o4-4o-4o-"
$sNewText = ""
 
; Now run through the string
For $i = 1 To StringLen($sText)
 $sChar = StringMid($sText, $i, 1)
 $iIndex = _ArraySearch($aReplacements, $sChar)
 If @error Then
  ; If not found add the character
  $sNewText &= $sChar
 Else
  ; If found add replacement
  $sNewText &= $aReplacements[$iIndex][1]
 EndIf
Next

; And here is the result
ConsoleWrite($sText & @CRLF & $sNewText & @CRLF)

Any help?

M23

[GEOSoft]

Did you jump ship?