import sys

sys.path.append(RPR_GetResourcePath() + r"/UserPlugins")

from RIGDOCKS_python import *

from AZSTOKE_BRONZE_python import *

from AZSTOKE_SILVER_python import *

from AZSTOKE_GOLD_python import *

・RIGDOCKSをインポート

retval, inputList = AZ_GetUserInputList("", 2, "Source Path,Excel Path", ",")

・必要事項の入力を要求

if retval:

    sourceParentPath = inputList[0]

・入力値から音声ファイルの親フォルダのパスを取得

    excelPath = inputList[1]

・入力値からExcelファイルのパスを取得

    track = AZ_InsertTrackSearchUniqueOnly(0, "work")[0] 

・「work」という名前のトラックを作成

    sourcePathList = AZ_GetFilePathList(sourceParentPath, "wav")

・親フォルダの配下にある音声ファイルのパスを全て取得

    items = AZ_InsertMediaItems(track, sourcePathList, 0, 1, 0)

・音声ファイルを「work」トラックに挿入

    excel = AZ_Excel_OpenFile(excelPath)

・エクセルファイルを開く

    worksheet = AZ_Excel_OpenWorksheet(excel, "items")

・エクセルファイルの「items」ワークシートを開く

    for item in items:

        _,itemName,_ = AZ_GetMediaItemName(item)

        _,itemLength = AZ_GetMediaItemLength(item)

・メディアアイテムの名前と長さを取得

        searchResult = AZ_Excel_SearchRowsInWorksheet(worksheet, itemName, "A")

・ワークシート内にメディアアイテム名に対応する行があるか検索

        resultRow = ""

        if searchResult["Cells"] is not None:

                for k in searchResult["Cells"]:

                    resultRow = k

        if resultRow == "":

・検索結果の行番号を取得

            searchResult = AZ_Excel_SearchRowsInWorksheet(worksheet, ".+", "A", ",A", True)

・A列が空欄でない行を取得

            newRow = 1

            if searchResult["Cells"] is not None:

                        for _ in searchResult["Cells"]:

                            newRow += 1

・A列が空欄の行の行番号を取得

            AZ_Excel_SetCellValue_ByNumber(worksheet, newRow, 1, itemName)

            AZ_Excel_SetCellValue_ByNumber(worksheet, newRow, 2, itemLength)

・新しい行として、メディアアイテム名と長さを記載

        else:

・対応する行がある場合

            cell = "B" + str(resultRow)

            AZ_Excel_SetCellValue(worksheet, cell, itemLength)

・B列に長さを記載

    AZ_Excel_SaveDocument(excel)

・Excelファイルを保存

    AZ_Excel_CloseFile(excel)

・Excelファイルを閉じる

-　API LINK　-

AZ_InsertTrackSearchUniqueOnly

AZ_GetFilePathList

AZ_GetMediaItemName

AZ_GetMediaItemLength

AZ_Excel_OpenFile

AZ_Excel_OpenWorksheet

AZ_Excel_SearchRowsInWorksheet

AZ_Excel_SetCellValue_ByNumber

AZ_Excel_SetCellValue

AZ_Excel_SaveDocument

AZ_Excel_CloseFile