字幕一覧(字幕リスト)は、音声の早送りより役に立つ。

現状では、世界のどこかの人が何かのデバイスで、このブログを見て、その中の動画を視聴した時に、言葉がわからないという問題にぶつかります。ですから、そのブログの中に、言葉をわかるようにする「手掛かり」を配置しておきたいと思います。

ただその「手掛かり」と言っても、なかなか簡単ではありません。
条件が複雑過ぎるからです。

現在、条件がどうマチマチであるか眺めてみます。まず、デバイスとしてポピュラーなものをピックアップすると、WindowsPC,Mac,iPhone,iPad,Android携帯、Androidタブレット、以上になるでしょうし、OSでポピュラーなものは、Windows,Mac,iPad/iPhone,Androidになるでしょうし、ブラウザでポピュラーなものは、Chrome,Edge,Safariになるでしょうし、さらに動画の配信側は、YouTube,Vimeo,WordPress,Dropboxなどクラウドサービス、自宅サーバーなど。。
こんな複雑な条件の中で、今、こうしたブログさらにその中の動画などが配信されているわけですね。ですから、全てのユーザーに、「言葉がわかるようにする」のは無理と言っていいでしょう。

結論が遅れました。

それほど、手の込んだ工夫ではありません。

動画の下に、タイムコードあるいは番号が付いた「字幕一覧」を配置すべし。
具体的には以下です。

このような折りたたみの字幕一覧を用意しておくと、ブログの翻訳をすれば、この部分も翻訳されます。(1)(2)などの番号でもいいですが、動画の中の位置が分かりません。タイムコードなら動画のバーを近くに持っていけます。YouTubeなどで字幕の自動翻訳もありますが、速く進み過ぎて目が追いつけません。だから、自分のペースで追いたいです。逆に、動画を観る暇がないので動画の要点をサラッと知りたいということもあります。音声の早送りより、はるかに生産性は高いです。10分の動画でも字幕一覧をみれば30秒で概略がわかります。いずれにせよ字幕一覧形式が優れています。翻訳した字幕一覧を自分のメモに貼り付けることも出来ます。字幕が邪魔なら、動画の字幕を非表示にして、この字幕一覧を折り畳めばいいです。

ちなみに、上の折りたたみ字幕一覧を、左上のGoogle翻訳で試してみてください。翻訳の途中から改行がされない現象が生ずる場合があります。これはChromeからChromeの翻訳機能を使っても同じ現象になるでしょう。
次に、AppleやWindowsの翻訳を試してみてください。ブラウザから利用できると思います。それを使うと、正しく改行されるはずです。

Macで使う場合、Vimeoの動画に表示される字幕の翻訳は、Google翻訳では翻訳不可ですが、Apple翻訳ではVimeoの動画に表示される字幕を翻訳してくれます(動画無音)。iPad,iPhoneではそれが難しいのでWordPress固定ページに字幕一覧を読み込んで工夫することにします(動画有音)。

Apple翻訳で気づいた欠点の一つは、WordPress動画プレーヤーで表示される字幕について翻訳しようとする時パカパカと点滅状態になるため(動画無音)字幕は非表示にせざるを得ない点があります（2024.2月現在)。

なお、WindowsのEdgeにより、vimeoのプレーヤーを直接に呼び出す、つまりhttps://player.vimeo.com/video/xxxxxxxxxを入力する場合ですが、AppleのSafariと同じく、字幕は直接に翻訳されます(動画無音)。

総じて、各社の字幕や翻訳の対応は、まだまだバラバラな状況と言っていいです。そこへ群がるように、各社がAI生成画像、音楽などのサービスをくっつけてきているというのが現状です。

そこで、振り回されないように、字幕一覧を配置して、Apple/Windows翻訳とGoogle翻訳の両方を使い分けるようにしよう。というのが、この投稿の主張です。

＜字幕作成に関するオリジナルスクリプト一覧表＞

ポイント解説

１　この投稿で追加したAppleスクリプト

字幕一覧用txtからカスタムhtmlを生成(クリップボード保存)するAppleスクリプト

-- 手順１：クイックアクションを選択
on run {input, parameters}
    -- 手順２：txtファイルを開きデータをクリップボードにコピー
    -- inputをリストとして扱い、最初の項目をファイルのPOSIXパスとして取得
    set fileAlias to item 1 of input
    set filePath to POSIX path of fileAlias

    -- POSIX pathを利用してファイルを読み込む
    set fileContents to read POSIX file filePath as «class utf8»
    set the clipboard to fileContents

    -- 手順３：テンプレートhtmlにデータを埋め込む
    set templateHTML to "<details><summary>字幕情報を全行表示します(クリック)</summary> <p>readdata</p> </details> 
    <style>details { font: 16px \"Open Sans\", Calibri, sans-serif; width: 100%; } details > summary { padding: 2px 6px; width: 100%; background-color: #ddd; border: none; box-shadow: 3px 3px 4px black; cursor: pointer; list-style: none; } details > p { font: 14px \"Open Sans\", Calibri, sans-serif; height:150px; overflow: scroll; background-color: #EDF7FF; padding: 2px 6px; margin: 0; box-shadow: 3px 3px 4px black; } </style>"

    set finalHTML to replaceText("readdata", fileContents, templateHTML)

    -- 手順４：クリップボードにHTMLを書き込む
    set the clipboard to finalHTML

    -- 手順５：確認メッセージを表示
    display dialog "クリップボードにカスタムhtmlコードを保存しました" buttons {"OK"} default button "OK"

    return input
end run

-- テキストの一部を置換する関数
on replaceText(find, replace, subject)
    set prevTIDs to AppleScript's text item delimiters
    set AppleScript's text item delimiters to find
    set subjectParts to text items of subject
    set AppleScript's text item delimiters to replace
    set subject to subjectParts as text
    set AppleScript's text item delimiters to prevTIDs
    return subject
end replaceText

vttから字幕一覧用txtを生成するAppleスクリプト

-- 手順１　内容を複製した新たなtxtファイルを作成する。
on run {input, parameters}
	set vttFilePath to POSIX path of input
	
	-- 拡張子をTXTに置き換える
	set newFilePath to replaceExtension(vttFilePath, "txt")
	
	-- ファイル名を作成する
	set fileName to do shell script "basename " & quoted form of vttFilePath
	set baseName to text 1 thru ((offset of "." in fileName) - 1) of fileName
	set newFileName to baseName & ".txt"
	
	-- 新しいファイルのパスを生成する
	set newFilePath to (text 1 thru -((count fileName) + 1) of vttFilePath) & newFileName
	
	-- ファイルをコピーして新しいファイルを作成する
	do shell script "cp " & quoted form of vttFilePath & " " & quoted form of newFilePath
	
	-- 手順２に新しいファイルのパスを渡す
	return {newFilePath}
end run

-- 拡張子を置き換える補助関数
on replaceExtension(filePath, newExtension)
	set AppleScript's text item delimiters to "."
	set pathItems to text items of filePath
	set lastItem to last item of pathItems
	set last item of pathItems to newExtension
	set AppleScript's text item delimiters to "."
	set newPath to pathItems as text
	return newPath
end replaceExtension

on run {input, parameters}
	set newFilePath to POSIX path of (first item of input)
	
	-- ファイル内容を読み込む
	set fileContent to read newFilePath as «class utf8»
	set fileLines to paragraphs of fileContent
	
	set newContent to ""
	
	-- 条件に基づいてファイル内容を更新
	repeat with i from 1 to count fileLines
		set lineText to item i of fileLines
		
		-- (1) 文字列”WEBVTT”のある行は削除する
		if lineText does not contain "WEBVTT" then
			-- (2) 数字だけがある行は削除する（長い桁数も含む）
			set isNumber to true
			repeat with j from 1 to (length of lineText)
				if ((character j of lineText) is not in {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}) and ((character j of lineText) is not ".") then
					set isNumber to false
					exit repeat
				end if
			end repeat
			
			if not isNumber then
				-- (3) タイムラインがある行は削除する
				if lineText does not contain "-->" then
					-- (5) 空白の行を削除する
					if lineText is not equal to "" then
						set newContent to newContent & lineText & linefeed
					end if
				end if
			end if
		end if
	end repeat
	
	-- ファイルに新しい内容を書き込む
	set fileHandle to open for access newFilePath with write permission
	set eof of fileHandle to 0
	write newContent to fileHandle as «class utf8»
	close access fileHandle
	
	return input
end run
	

vttからタイムありvttを生成するAppleスクリプト

字幕文章に時刻を挿入する

リンク

-- 手順１　内容を複製した新たなファイルを作成する。
on run {input, parameters}
	set vttFilePath to POSIX path of input
	
	-- 拡張子をVTTに置き換える
	set newFilePath to replaceExtension(vttFilePath, "vtt")
	
	-- ファイル名に_timeaddedを追加する
	set fileName to do shell script "basename " & quoted form of vttFilePath
	set baseName to text 1 thru ((offset of "." in fileName) - 1) of fileName
	set newFileName to baseName & "_timeadded.vtt"
	
	-- 新しいファイルのパスを生成する
	set newFilePath to (text 1 thru -((count fileName) + 1) of vttFilePath) & newFileName
	
	-- ファイルをコピーして新しいファイルを作成する
	do shell script "cp " & quoted form of vttFilePath & " " & quoted form of newFilePath
	
	-- 
	return {newFilePath}
end run

-- 拡張子を置き換える補助関数
on replaceExtension(filePath, newExtension)
	set AppleScript's text item delimiters to "."
	set pathItems to text items of filePath
	set lastItem to last item of pathItems
	set last item of pathItems to newExtension
	set AppleScript's text item delimiters to "."
	set newPath to pathItems as text
	return newPath
end replaceExtension

-- 手順２　次に、手順１で新たに作ったVTTファイルに対して、以下のアクションを実行する。
on run {input, parameters}
	set vttFilePath to POSIX path of (first item of input)
	
	-- ファイル内容を読み込む
	set fileContent to read vttFilePath as «class utf8»
	set fileLines to paragraphs of fileContent
	
	set newContent to ""
	set inStartTimeBlock to false
	repeat with i from 1 to count fileLines
		set currentLine to item i of fileLines
		if inStartTimeBlock then
			-- Start timeが記述された行の、次の行に書かれた文字列をtxtexpへ入れる
			set txtexp to currentLine
			-- Start timeが記述された行の、次の行に、文字列[letterstartTime] と文字列txtexpを連結する
			set newContent to newContent & "(" & letterstartTime & ") " & txtexp & return
			set inStartTimeBlock to false
		else if (offset of "-->" in currentLine) > 0 then
			set startTime to text 1 thru 8 of currentLine
			set letterstartTime to replace_chars(startTime, ":", ":")
			set startTimeFormatted to "(" & letterstartTime & ")"
			set newContent to newContent & currentLine & return
			set inStartTimeBlock to true
		else
			set newContent to newContent & currentLine & return
		end if
	end repeat
	
	-- ファイルに新しい内容を書き込む
	set fileHandle to open for access vttFilePath with write permission
	set eof of fileHandle to 0
	write newContent to fileHandle as «class utf8»
	close access fileHandle
	
	return input
end run

on replace_chars(txt, search_string, replacement_string)
	set AppleScript's text item delimiters to the search_string
	set txtItems to every text item of txt
	set AppleScript's text item delimiters to the replacement_string
	set txt to txtItems as text
	set AppleScript's text item delimiters to ""
	return txt
end replace_chars

２　その他

WindowsPCでのこのブログにリンクした動画の再生についてです。Dropboxの動画についてですが、Dropboxの動画は、ブログに貼り付けた場合は、そのまま素直にストリーミング再生されます。しかし、URLをリンクで再生しようとした場合、ダウンロードしてからの再生を求められます。それはとても面倒なこと。その点も勘案して、Google翻訳アイコン、動画、字幕一覧の各場所をテンプレートにして、動画については、Vimeo、Dropbox、WordPressサーバー、YouTubeなどを貼り付けられるようにして、WordPressの固定ページで動画ライブラリーとしてひとまとめにするように改善中です。

以上