Sub Globals
Dim buffer(0) As byte
End Sub
Sub App_Start
RemoveBOM("1.csv","new2.csv")
End Sub
Sub RemoveBOM(file,NewFile)
FileOpen(c,file,cRandom)
bin.New1(c,true)
size = FileSize(file)-3
Dim buffer(size) As byte
bin.ReadBytes(buffer(),3) 'pass the BOM
bin.ReadBytes(buffer(),size)
FileClose(c)
FileDel(NewFile)
FileOpen(c2,NewFile,cRandom)
bin.New1(c2,true)
bin.WriteBytes(buffer())
FileClose(c2)
End Sub