'************************************************************************************************************
'* 品名 : CopyAllTabsURLandTitle_Nobr.vbs
'* 効能 : 全タブのURLとタイトルをニュースブログ用に一括コピー(改行タグ無し)
'*        全てのタブのURLおよびタイトルを、"タイトル(太字) + URL(新しいウインドウで開く)" の形式でコピー
'* 製作者 : MOAI
'* バージョン : 1.01
'* 注釈 : 用法用量を守って正しくお使い下さい
'*        改行を自動で行うブログ向けに、<br>タグを使用しておりません
'*        汚いコードだなぁ
'************************************************************************************************************

Option Explicit

	Dim obj, document, window, id, count, i, buf
	Set obj = CreateObject("Sleipnir.API")

	count = obj.GetCount

	id = obj.GetDocumentID(i)
  Set document = obj.GetDocumentObject(id)
  Set window = obj.GetWindowObject(id)

  If document Is Nothing Then
      Call obj.MessageBox("Document を作成できません")
  Else
      buf = "<strong>"+document.title+"</strong>"+VbCrLf+"<a href="""+document.URL+""" target=""brank"">"+document.URL+"</a>"+VbCrLf+VbCrLf

		For i=1 To count - 1
			id = obj.GetDocumentID(i)
   	  Set document = obj.GetDocumentObject(id)
   	  Set window = obj.GetWindowObject(id)

    	buf = buf+"<strong>"+document.title+"</strong>"+VbCrLf+"<a href="""+document.URL+""" target=""brank"">"+document.URL+"</a>"+VbCrLf+VbCrLf
		Next

  End If

	window.clipboardData.setData "text", buf

	Set document = Nothing
  Set window = Nothing

	Set obj = Nothing