Reading VMG

[unknown12]

How can I do this?

I know people will say to try it myself, but i've tried various functions, and searched these very forums. They all seem to only return the first charachter of the file.

I've attached a sample file, but added .txt to the end so that it'd upload.

Thanks in advance.

1049721.vmg.txt

[Thatsgreat2345]

ummm remove the .txt , use fileread and if you dont want the spaces do a StringReplace

$file = '1049721.vmg'
$string = StringReplace(FileRead($file)," ","")
MsgBox(0,"Test",$string)

[unknown12]

I wish it were that simple. Try it yourself, and you'll see it only returns "B".

[The Kandie Man]

The file contains null characters and is in binary:

Dim $b_readdata
Dim $b_fixeddata
$b_readdata = FileREad("1049721.vmg")
$b_fixeddata = StringReplace($b_readdata,Chr(0),"")
Msgbox(0,"Data:",$b_fixeddata)
$ho_output = FileOpen("1049721-translated.vmg",2)
FileWrite($ho_output,$b_fixeddata)
FileClose($ho_output)

[Thatsgreat2345]

o your write my bad

$file = '1049721.vmg'
$string = StringReplace(FileRead($file),Chr(0),"")
MsgBox(0,"Test",$string)

even though kandie already did it

[unknown12]

Thanks, Kandie man and Thatsgreat.

[unknown12]

Ok, so i've got it into a string now, and with that comes another problem Doing StringSplit($string,'END:VBODY') returns a 50+ part array, whereas i'd expect it to only return 2 parts, seeing as there is only 1 instance of END:VBODY.

Thanks.

[unknown12]

Any ideas?

[Thatsgreat2345]

for some reason the flag default of StringSplit = 0 meaning it will split at every char meaning at every E N D : V B O D Y

#include <Array.au3>
Dim $b_readdata
Dim $b_fixeddata
$b_readdata = FileRead("1049721.vmg")
$b_fixeddata = StringSplit($b_readdata,"END:VBODY",1)
_ArrayDisplay($b_fixeddata,'')

[unknown12]

Thanks, adding ",1" seems to have worked.