'*********************************************************
'*///      対話型テキストリンク作成スクリプト        /// *
'*********************************************************
'*   【ファイル名】LinkPreparation.vbs                   *
'*   【作　成  者】秋月らせん(akiduki rasenn)            *
'*   【動 作 環境】Windows 2000/XP                       *
'*   【作　成　日】2006/08/18 (200/03/20改修)            *
'*   【ね　ら　い】ダイアログへ随時入力する事で          *
'*                 簡単にテキストリンクを作成する。      *
'*********************************************************
'暗黙の宣言を不許可（デバック用）
Option Explicit
'エラー検知後も可能な範囲で処理を実行
'On Error Resume Next


'変数の宣言
Dim strComputer		'スクリプトのローカルでの動作を明示
Dim objFS		'
Dim wShell		'
Dim SiteName		'サイト名
Dim IndividualID	'参照先の記事名
Dim InputURI		'個別記事のurl(後でトリムする)
Dim InputComment	'リンク先へのコメント
Dim make_link_text'発行するテキスト
Dim strPath		'保存先ファイルのフルパス指定
Dim objFile		'
Dim objText		'
Dim oExec		'



'//////////////////////////////////////////////////////////////////
'■定義
'//////////////////////////////////////////////////////////////////

'スクリプトを実行する場所を定義。
 strComputer = "." 


'/// 定義の宣言
 Set objFS  = CreateObject ("Scripting.FileSystemObject")
 Set wShell = CreateObject("WScript.Shell")


'/////////////////////////////////////////////////////////
'■ダイアログへの入力
'/////////////////////////////////////////////////////////

Do
	'/// 以下の書式を作成する。
	'/// ★<a href="[個別記事URI]" title="[参照記事タイトル]">[サイト名]</a>＞[リンク先へのコメント]


	'/// [サイト名]の入力要求ダイアログ表示
	 SiteName = InputBox("参照する記事のサイト名を入力して下さい","[参照サイト名の入力]")

	'/// [参照記事タイトル]の入力要求ダイアログ表示
	 IndividualID = InputBox("参照する記事のタイトルを入力して下さい","[参照記事名の入力]")

	'/// [個別記事URI]の入力要求ダイアログ表示
	 InputURI = InputBox("http://で始まる個別記事のURIを入力して下さい","[個別記事URIの入力]","http://")

	'/// [リンク先へのコメント]の入力要求ダイアログ表示
	 InputComment = InputBox("参照する記事へのコメントを入力して下さい","[コメント入力]")

	'/// 発行するテキストを定義 [W3C準拠で同一ウィンドウで遷移するVer.](URI前後にスペースがあればトリム)
	'/// make_link_text = "★<a href=" + chr(&H22) + trim(InputURI) + chr(&H22) + " title=" + chr(&H22) + IndividualID + chr(&H22) + ">" + SiteName + 
"</a>＞" + InputComment

	'/// 発行するテキストを定義 [title属性なし、別ウィンドウで開くVer.](URI前後にスペースがあればトリム)
	 make_link_text = "★<a href=" + chr(&H22) + trim(InputURI) + chr(&H22) + " target=" + chr(&H22) + "_blank" + chr(&H22) + ">" + SiteName + 
"</a>＞" + InputComment


'/////////////////////////////////////////////////////////
'■テキストファイルへの処理
'/////////////////////////////////////////////////////////

'///保存先ファイルの存在確認
 strPath = "c:\link.txt"
 If objFS.FileExists(strPath) Then

	'/// 保存先ファイルが既にあれば開く。
	 Set objFile = objFS.GetFile(strPath)


	'/// 開いたファイルにデータを挿入。8は追記モード。2を指定すると上書き。
	 Set objText = objFile.OpenAsTextStream(8,0)
	 objText.WriteLine(make_link_text)
	 objText.Close

Else

	'/// 保存先ファイルが無ければ作成
	 Set objFile = objFS.CreateTextFile(strPath,True)

	'/// 開いたファイルにデータを挿入。
	 objFile.WriteLine(make_link_text)
	 objFile.Close

End If


'/////////////////////////////////////////////////////////
'■連続処理の問い合わせ
'/////////////////////////////////////////////////////////

 '/// 確認ダイアログ (vbNoで「はい」の時にDo以下へ処理が戻る)
 If MsgBox(make_link_text & vbCR & vbCR & "上記の内容をファイルへ出力しました。" & vbCR & vbCR & "続けてテキストリンクの作成を行いますか？",vbYesNo,"[続
けて入力を行うかの問い合わせ]") = vbNo Then
 Exit Do
 End If
Loop

	'/// データ挿入後、ファイルをエディタで開く
	 Set oExec = wShell.Exec("cmd.exe /c start " + strPath)