$rows = "１行目\t説明\thttp://yahoo.com/\n２行目\t説明\thttp://yahoo.com/"

row = ""
row_id = 0
$rows = $rows add "\n"

for(i=1;i<=mblength($rows);i++){
	s = mbsubstring($rows,i,1)
	if(s eq "\n"){
		
		
		row = row add "\t"
		cell		= ""
		cell_id		= 0
		title		= ""
		link		= ""
		description	= ""
		
		//一行の情報取り出し
		for (j = 1; j <= mblength(row); j++) {
			
			s = mbsubstring(row,j,1)
			if (s eq "\t") {
				switch(cell_id){
					case(0):title		= cell;break;
					case(1):description	= cell;break;
					case(2):link		= cell;break;
				}
				cell_id ++
				cell = ""
			}else{
				cell = cell add s
				
			}
		}

		//movieclip作成
		if(row_id>0){
			s = "row" add row_id
			duplicateMovieClip("/pane/row",s,row_id)
		}else{
			s = "row"
		}
		
		tellTarget("/pane/" add s){
			title		= _root.title
			link		= _root.link
			description	= _root.description
			_y			= _root.row_id*40
		}
		
		row_id++
		row = ""
		
	}else{
		row = row add s
	}
}

$rows = ""