ช่วยแก้ให้หน่อย

มีไฟล์ test.txt

1
0
1
0
ต้องการให้เปลี่ยนเป็น
0
1
0
1
โดยการแสกนหาค่าถ้า 1 ให้ เป็น 0 ถ้า 0 ให้เป็น 1

Code:

$szFile = "test.txt"
$szText = FileRead($szFile,FileGetSize($szFile))
$szText = StringReplace($szText,"1", "0")
$szText = StringReplace($szText,"0", "1")
FileDelete($szFile)
FileWrite($szFile,$szText)

ต้องลงคำสัง if while do เพิ่มยังไง

นี่ครับ ^^
  

Code:

Local $str
$szFile = "test.txt"
$binary = FileRead($szFile, FileGetSize($szFile))
If @error Then Exit
ConsoleWrite("File name: " & $szFile & @CRLF & "== Before ==" & @CRLF & $binary & @CRLF & @CRLF)
$split = StringSplit($binary, "")
For $i = 1 To $split[0]
   If $split[$i] = "0" Then
      $str &= "1"
   ElseIf $split[$i] = "1" Then
      $str &= "0"
   ElseIf $split[$i] = @CR Then
      $str &= @CRLF
   EndIf
Next
ConsoleWrite("== After ==" & @CRLF & $str & @CRLF)

ทดสอบ output ที่ได้..

Code:

File name: test.txt
== Before ==
0000011111
1100110011
1010101010
0101010101

== After ==
1111100000
0011001100
0101010101
1010101010

ผมทดสอบแล้วครับไม่มีไรเกิดขึ้นเลยครับ ท่าน

รึจะเป็นที่ผมใช้ win 8

ตอนนี้คอมที่ทำงานใช้ WinXP แรมกากๆเลยครับ (ขอระบายนิดนึง5555)

เดี่ยวกลับบ้านจะไปเทสกับ Windows 7 & 8 ให้ครับ

ปล.ตอนรันมันเด้งออกเลยเหรอครับ เพราะบรรทัดนี้มั้งถ้าเออเร่อให้ออกเลย If @error Then Exit

ผมกลับมาเทสกับ win7แล้ว โอเคแล้วนะครับ

ขอบคุณครับ