如何在R中无需读取文件即可提取WAV文件时长？

当然有办法！不用逐个读取WAV文件就能提取时长，下面给你几个实用的方案，都是直接读取文件元数据或者系统属性，效率超高：

方案1：用exiftoolr包读取元数据（跨平台首选） #

这个方法依赖ExifTool工具，它能读取几乎所有文件的元数据，而且完全不用加载音频内容，批量处理几千个文件也很快。

首先安装并加载包：

install.packages("exiftoolr")
library(exiftoolr)

单个文件测试：

# 获取单个WAV文件的时长（单位是秒）
exiftool("test.wav")$Duration

批量处理的话，直接把所有WAV文件路径传进去就行：

# 批量获取文件夹里的所有WAV文件
wav_files <- list.files(path = "你的WAV文件夹路径", pattern = "\\.wav$", full.names = TRUE)
# 读取所有文件的元数据
metadata <- exiftool(wav_files)
# 整理成表格，包含文件名和时长
result_df <- data.frame(
  文件名 = basename(wav_files),
  时长_秒 = metadata$Duration
)

这个包会自动帮你处理元数据读取，速度比读整个文件快太多啦！

方案2：调用Windows PowerShell（Windows专属，不用装额外包） #

如果你是Windows用户，直接用系统自带的PowerShell就能读取资源管理器里显示的「长度」属性，完全不用碰音频文件内容，效率拉满。

先写个小函数来封装逻辑：

# 定义获取单个WAV时长的函数
get_wav_length <- function(file_path) {
  # 构造PowerShell命令，读取系统媒体时长属性
  ps_command <- paste0(
    "(Get-ItemProperty -Path '", file_path, 
    "' -Name System.Media.Duration).System.Media.Duration"
  )
  # 执行命令，返回的时长单位是100纳秒，转成秒
  duration_ns <- as.numeric(system(ps_command, intern = TRUE))
  duration_sec <- duration_ns / 10000000
  return(duration_sec)
}

# 批量处理
wav_files <- list.files(path = "你的WAV文件夹路径", pattern = "\\.wav$", full.names = TRUE)
# 批量获取时长
all_durations <- sapply(wav_files, get_wav_length)
# 整理成结果表格
result_df <- data.frame(
  文件名 = basename(wav_files),
  时长_秒 = all_durations
)

这个方法完全利用Windows的系统属性，不用安装任何额外工具，适合不想折腾包的Windows用户。

方案3：用ffprobe（跨平台，适合多系统场景） #

如果需要在Windows、macOS或者Linux上都能用，可以用ffprobe（FFmpeg的配套工具），它只读取音频文件的头部元数据，不会加载整个文件。

首先得先安装FFmpeg（各个系统的安装方法自己搜一下就行，比如Windows直接下载解压加环境变量，mac用brew install ffmpeg）。然后写个函数：

# 用ffprobe获取时长
get_duration_ffprobe <- function(file_path) {
  cmd <- paste0('ffprobe -v error -show_entries format=duration -of default=noprint_wrappers=1:nokey=1 "', file_path, '"')
  duration_sec <- as.numeric(system(cmd, intern = TRUE))
  return(duration_sec)
}

# 批量处理
wav_files <- list.files(path = "你的WAV文件夹路径", pattern = "\\.wav$", full.names = TRUE)
all_durations <- sapply(wav_files, get_duration_ffprobe)
result_df <- data.frame(
  文件名 = basename(wav_files),
  时长_秒 = all_durations
)

这个方法跨平台兼容性好，处理大量文件也很快。

这几个方案都能避免读取整个WAV文件，比你之前逐个读文件的方法效率高太多，根据你的系统和需求选就行～

内容的提问来源于stack exchange，提问作者Liza