forked from: てきすとえりあ君

by zahir forked from てきすとえりあ君 (diff: 4)
♥1 | Line 38 | Modified 2010-11-18 11:29:07 | MIT License
play

ActionScript3 source code

/**
 * Copyright zahir ( http://wonderfl.net/user/zahir )
 * MIT License ( http://www.opensource.org/licenses/mit-license.php )
 * Downloaded from: http://wonderfl.net/c/kIXI
 */

<?xml version="1.0" encoding="utf-8"?>
<!-- forked from clockmaker's てきすとえりあ君 -->
<!-- とりあえずtxtファイルのみにフィルター -->
<s:Application xmlns:fx="http://ns.adobe.com/mxml/2009" xmlns:s="library://ns.adobe.com/flex/spark" xmlns:mx="library://ns.adobe.com/flex/mx">
    
    <fx:Script>
        <![CDATA[
            import mx.controls.Alert;
            private var fl:FileReference;
            private var fileFilter:Array = [ new FileFilter("text file","*.txt") ];
            
            private function loadFile():void {
                fl = new FileReference();
                fl.addEventListener(Event.SELECT, function():void { fl.load(); });
                fl.addEventListener(Event.COMPLETE, function():void { convert(fl.data); });
                fl.browse( fileFilter );
            }
            
            private function convert(data:ByteArray):void {
                try {
                    textArea.text = data.readMultiByte(data.length, "UTF-8");
                } catch (error:Error) {
                    Alert.show("Fail to open")
                }
            }
            
            private function saveFile():void {
                fl = new FileReference();
                fl.save(textArea.text, "myfile.txt");
            }
        ]]>
    </fx:Script>
    
    <s:layout>
        <s:VerticalLayout gap="10" paddingBottom="10" paddingLeft="10" paddingRight="10" paddingTop="10"/>
    </s:layout>

    <s:Label text="Simple Text Editor (Only UTF-8 Plane Text)" />
    
    <s:HGroup>
        <s:Button label="Open" click="loadFile()"/>
        <s:Button label="Save" click="saveFile()"/>
    </s:HGroup>

    <s:TextArea id="textArea" width="100%" height="100%"/>

</s:Application>