Anything done yet for saving a textfile ?

Monkey Targets Forums/XNA/Anything done yet for saving a textfile ?

Rushino

(Posted 2013) [#1]

Hello,

Just wanna know if there anything done yet for saving a textfile on the HD ?

Thanks!

dave.h

(Posted 2013) [#2]

you can if you use the os module,i think.Not sure if its just for glfw though

Rushino

(Posted 2013) [#3]

Unfortunally it seem only available for glfw and stdcpp targets.

Rone	(Posted 2013) [#4]

Edit: probably the same as BBFileStream..why you do not use brl.filestream?

I once used the following ... only win32, because of System.Windows.Forms Reference.

io.xna.cs:

class XApplication
{
	public static string UserAppDataPath()
	{
		return System.Windows.Forms.Application.UserAppDataPath;
	}
	
	public static string StartupPath()
	{
		return System.Windows.Forms.Application.StartupPath;	
	}
	
	public static string ExecutablePath()
	{
		return System.Windows.Forms.Application.ExecutablePath;	
	}
}

class XEnvironment
{
	public static string GetFolderPath(int folder)
	{
		return Environment.GetFolderPath((Environment.SpecialFolder)folder);
	}
}

class XFileDialog 
{
    public System.Windows.Forms.FileDialog _dlg;

    public XFileDialog(System.Windows.Forms.FileDialog dlg)
    {
        _dlg = dlg;
    }

    public void DefaultExt(string value)
    {
        _dlg.DefaultExt = value;
    }

    public void Filter(string value)
    {
        _dlg.Filter = value;
    }

    public void AddExtension(bool value)
    {
        _dlg.AddExtension = value;
    }

    public void InitialDirectory(string value)
    {
        _dlg.InitialDirectory = value;
    }

    public void RestoreDirectory(bool value)
    {
        _dlg.RestoreDirectory = value;
    }
	
    public void SupportMultiDottedExtensions(bool value)
    {
        _dlg.SupportMultiDottedExtensions = value;
    }

    public void Title(string value)
    {
        _dlg.Title = value;
    }

    public string FileName()
    {
        return _dlg.FileName;
    }

    public int ShowDialog()
    {
        return (int)_dlg.ShowDialog();
    }
}

class XSaveFileDialog : XFileDialog
{
    public XSaveFileDialog() 
        : base(new System.Windows.Forms.SaveFileDialog())
    {
    }
}

class XOpenFileDialog : XFileDialog
{
    public XOpenFileDialog()
        : base(new System.Windows.Forms.OpenFileDialog())
    {
    }
}

class XFile
{
	public static XFileStream Create(string path)
	{
        return new XFileStream(File.Open(path, FileMode.OpenOrCreate, FileAccess.ReadWrite));
	}
	
	public static void Create(string src, string dst)
	{
		File.Copy(src, dst);
	}
	
	public static void Delete(string path)
	{
		File.Delete(path);
	}
	
	public static bool Exists(string path)
	{
		return File.Exists(path);
	}
}

class XFileStream 
{
	public FileStream _stream;
	
	public XFileStream(FileStream stream)
	{
		_stream = stream;
	}
	
	public bool Eof()
	{
		return _stream.Position >= _stream.Length;
	}
	
	public int Position()
	{
		return (int)_stream.Position;
	}
	
	public void Seek(int pos)
	{
		_stream.Position = pos;
	}
	
	public void Close()
	{
		_stream.Close();
	}
	
	public void Flush()
	{
		_stream.Flush();
	}
	
	public int ReadByte()
	{
		return (int)_stream.ReadByte();
	}
	
	public int ReadShort()
	{
		byte[] arr = new byte[2];
		_stream.Read(arr, 0, 2);
		return (int)System.BitConverter.ToInt16(arr, 0);
	}
	
	public int ReadInt()
	{
		byte[] arr = new byte[4];
		_stream.Read(arr, 0, 4);
		return (int)System.BitConverter.ToInt32(arr, 0);
	}
	
	public float ReadFloat()
	{
		byte[] arr = new byte[4];
		_stream.Read(arr, 0, 4);
		return (float)System.BitConverter.ToSingle(arr, 0);
	}
	
	public string ReadString()
	{
		UTF8Encoding utf8 = new UTF8Encoding();
		BinaryReader br = new BinaryReader(_stream, utf8);
		return br.ReadString();
	}
	
	public void WriteByte(int value)
	{
		_stream.WriteByte((byte)value);
	}
	
	public void WriteShort(int value)
	{
		_stream.Write(System.BitConverter.GetBytes((short)value), 0, 2);
	}
	
	public void WriteInt(int value)
	{
		_stream.Write(System.BitConverter.GetBytes(value), 0, 4);
	}
	
	public void WriteFloat(float value)
	{
		_stream.Write(System.BitConverter.GetBytes(value), 0, 4);
	}
	
	public void WriteString(string value)
	{
		UTF8Encoding utf8 = new UTF8Encoding();
		BinaryWriter bw = new BinaryWriter(_stream, utf8);
		bw.Write(value);
	}
}

io.monkey



'' Add    [STAThread]  to line 100 in mojo.xna.cs
'' Add    System.Windows.Forms Reference to windows project

#if TARGET<>"xna" 
#Error "io is only supported with xna."
#end 

Import "native/io.xna.cs"

Class DialogResult
	Const None = 0
	Const OK = 1
	Const Cancel = 2
	Const Abort = 3
	Const Retry = 4
	Const Ignore = 5
	Const Yes = 6
	Const No = 7
End

Class SpecialFolder abstract
	Const Desktop = 0
	Const Programs = 2
	Const Personal = 5
	Const MyDocuments = 5
	Const Favorites = 6
	Const Startup = 7
	Const Recent = 8
	Const SendTo = 9
	Const StartMenu = 11
	Const MyMusic = 13
	Const MyVideos = 14
	Const DesktopDirectory = 16
	Const MyComputer = 17
	Const NetworkShortcuts = 19
	Const Fonts = 20
	Const Templates = 21
	Const CommonStartMenu = 22
	Const CommonPrograms = 23
	Const CommonStartup = 24
	Const CommonDesktopDirectory = 25
	Const ApplicationData = 26
	Const PrinterShortcuts = 27
	Const LocalApplicationData = 28
	Const InternetCache = 32
	Const Cookies = 33
	Const History = 34
	Const CommonApplicationData = 35
	Const Windows = 36
	Const System = 37
	Const ProgramFiles = 38
	Const MyPictures = 39
	Const UserProfile = 40
	Const SystemX86 = 41
	Const ProgramFilesX86 = 42
	Const CommonProgramFiles = 43
	Const CommonProgramFilesX86 = 44
	Const CommonTemplates = 45
	Const CommonDocuments = 46
	Const CommonAdminTools = 47
	Const AdminTools = 48
	Const CommonMusic = 53
	Const CommonPictures = 54
	Const CommonVideos = 55
	Const Resources = 56
	Const LocalizedResources = 57
	Const CommonOemLinks = 58
	Const CDBurning = 59
End

Extern

Class Application = "XApplication"
	Function UserAppDataPath:string() = "XApplication.UserAppDataPath"
	Function StartupPath:string() = "XApplication.StartupPath"
	Function ExecutablePath:string() = "XApplication.ExecutablePath"
End

Class Environment = "XEnvironment"
	Function GetFolderPath:string(folder:int) = "XEnvironment.GetFolderPath"
End

Class FileDialog = "XFileDialog"
	Method DefaultExt:Void(value:String)
	Method Filter:Void(value:String)
	Method AddExtension:Void(value:Bool)
	Method InitialDirectory:Void(value:String)
	Method RestoreDirectory:Void(value:Bool)
	Method Title:Void(value:String)
	Method SupportMultiDottedExtensions:Void(value:Bool)
	Method ShowDialog:Int()
	Method FileName:String()
End

Class OpenFileDialog extends FileDialog = "XOpenFileDialog"
End

Class SaveFileDialog extends FileDialog = "XSaveFileDialog"
End

Class File = "XFile"
	Function Create:FileStream(path:String) = "XFile.Create"
	Function Delete:Void(path:String) = "XFile.Delete"
	Function Exists:Bool(path:String) = "XFile.Exists"
End

#rem
	

Class Directory
	Function GetFiles:string[]()
	Function GetDirectories:string[]()
	Function GetLastAccessTime:string[]()
	Function GetLastWriteTime:string[]()
	Function GetLogicalDrives:string[]()
	Function Exists:Bool(path:String)
End

#END

Class FileStream = "XFileStream"
	Method Eof:Bool()
	Method Position:int()
	Method Seek:void(pos:int)
	Method Close:Void()
	Method Flush:Void()
	Method ReadByte:int()
	Method ReadShort:int()
	Method ReadInt:int()
	Method ReadFloat:float()
	Method ReadString:String()
	Method WriteByte:void(value:int)
	Method WriteShort:void(value:int)
	Method WriteInt:void(value:int)
	Method WriteFloat:void(value:float)
	Method WriteString:void(value:string)
End

Rushino

(Posted 2013) [#5]

Nice thanks. Will give it a try !

MikeHart

(Posted 2013) [#6]

Brl.FileStream can be used on JAVA, CPP and CS targets. So it should do just fine.

Rushino

(Posted 2013) [#7]

@MikeHart Nice. I didn't know about that. Will get a look!