excel - srt ファイルから単語を抽出して MS EXCEL にエクスポートする方法

Question

特定のテレビ シリーズで使用されているいくつかの単語の頻度を知りたいです。SRT ファイルの単語を MS EXCEL にエクスポートできれば、とても簡単です。ありがとう

Answer 1

srt (読み取りテキストファイル) ファイルを Excel にエクスポートするには、次のようなものを使用できます。

Sub m_srt_2_excel(str_fullname_srt As String)
Dim fso_active As FileSystemObject
Dim text_active As TextStream
Dim str_text As String
Dim var_data As Variant
Dim lng_count As Long

    Set fso_active = New FileSystemObject
    Set text_active = fso_active.OpenTextFile(str_fullname_srt, ForReading)
    str_text = text_active.ReadAll
    var_data = Split(str_text, vbCrLf)
    lng_count = UBound(var_data)

    selection.Resize(lng_count + 1).Value = WorksheetFunction.Transpose(var_data)

    Set text_active = Nothing
    Set fso_active = Nothing

End Sub

または、OpenTextFile を関数と組み合わせて、出現回数をカウントすることもできます。

Function f_count_string(str_text As String, str_find As String) As Long
Dim lng_len As Long

    lng_len = Len(str_text) - Len(Replace(str_text, str_find, vbNullString))
    f_count_string = lng_len / Len(str_find)
End Function