syon syon

XmlHttpConnect

HTTP経由でXMLデータを読み込んでExcelシートに表示します。 XMLといってもHTMLのtable#data-root``tr``tdの2次元構成が想定されています。

	package {

	import flash.display.Sprite;
	import starling.core.Starling;

	[SWF(width="400", height="300", frameRate="60", backgroundColor="#ffffff")]
	public class Startup extends Sprite
	{
	private var _starling:Starling;

	package {
	import starling.display.Sprite;
	import starling.text.TextField;

	public class Game extends Sprite
	{
	public function Game()
	{
	var textField:TextField = new TextField(400, 300, "Welcome to Starling!");
	addChild(textField);

	package {

	import starling.display.Sprite;
	import starling.display.Quad;
	import starling.events.Event;

	public class Game extends Sprite
	{
	private var square:Quad;

	package {

	import starling.display.Sprite;
	import starling.display.Quad;
	import starling.events.Event;

	public class Game extends Sprite
	{
	private var square:Quad;

	package {

	import flash.display.BitmapData;
	import flash.utils.Timer;
	import flash.events.TimerEvent;
	import starling.display.Sprite;
	import starling.display.Image;
	import starling.textures.Texture;
	import starling.events.Event;
	import nape.phys.Body;

	Option Explicit

	Public Sub Main()

	Dim dataFileDirPath As String
	Dim fileNameList As String
	Dim tgtFileList As Collection

	dataFileDirPath = ThisWorkbook.path & "\" & "datafiles"
	Set tgtFileList = FNC_getDataFileList(dataFileDirPath, "*.xls")