thanks
Code: Select all
;~ read and store in arrays
data := []
file := FileOpen(WavFile, "rw","CP1252")
loop,
{
Mypos := File.Position
data[A_Index] := File.ReadShort()
if (mypos >= EndByte)
break
}
;~ *************************************
;~ write
file := FileOpen(WavFile, "rw","CP1252")
loop,
{
data := data[A_Index] * 0.5
if data =
break
File.Writeshort(data)
}
;~ ***************************************************