#include "llmod.as"
	#include "dragdrop.as"

;Tabs55 (C) 2001 KANAI Yuji
;version 1.0 (2002/05/16)

;拡張子"url"のショートカットからファイル名とURLを抽出。
;dd_accept命令を使ってドラッグ＆ドロップで処理。

	title "Tabs55 ver.1.0 by KANAI Yuji"

	sdim display,32000
	display="Title\tURL\n"

;変数の定義と初期化？
;無駄にメモリー使用？

	sdim filenames,1024*64	;ドラッグ＆ドロップされたファイルのファイル名一覧
	sdim filenumber,640	;ドラッグ＆ドロップされたファイルのファイル数
	sdim filename,1024	;ファイル名
	sdim filedata,1024	;ファイルの内容
	sdim checkline,1024	;一行の内容
	sdim check,4		;一行の冒頭
	sdim url,1024		;抽出されたURL

;メイン画面

	screen 0,600,400,0
	cls 0
	objmode 1
	mesbox display,600,400,5	; ID=0

	dd_accept filenames,filenumber
*waiting
	wait 1
	if filenumber {
		repeat filenumber
			notesel filenames
			noteget filename,cnt

			exist filename
			if (strsize<1)or(strsize>32000) {
				filedata=""
			}else{
				bload filename,filedata
			}

			notesel filedata
			notemax textlines
			repeat textlines
				noteget checkline,cnt
				instr checking,checkline,"URL="
				if checking=0 {
					strmid url,checkline,4,1024
					display += filename + "\t" + url + "\n"
					break
				}
			loop
		loop
		filenumber=0
		objprm 0,display
	}
	goto *waiting