从文件路径中提取文件扩展名

Question

如何提取给定文件路径的文件扩展名作为字符？我知道我可以通过正则表达式 regexpr("\\.([[:alnum:]]+)$", x) 来做到这一点，但想知道是否有一个内置函数可以处理这？

Answer 1

使用 R 基本工具很容易找到这种东西。例如：??路径。

不管怎样，加载 tools 包并读取 ?file_ext 。

Answer 2

让我从 https://stackoverflow.com/users/680068/zx8754 扩展一点很好的答案，

这是简单的代码片段

  # 1. Load library 'tools'
  library("tools")

  # 2. Get extension for file 'test.txt'
  file_ext("test.txt")

结果应该是“txt”。

Answer 3

简单的功能，无需加载包：

getExtension <- function(file){ 
    ex <- strsplit(basename(file), split="\\.")[[1]]
    return(ex[-1])
} 

Answer 4

如果扩展名包含非 alnum，上面的正则表达式将失败（参见例如 https://en.wikipedia.org/维基/文件扩展名列表）
作为替代方法，可以使用以下函数：

getFileNameExtension <- function (fn) {
# remove a path
splitted    <- strsplit(x=fn, split='/')[[1]]   
# or use .Platform$file.sep in stead of '/'
fn          <- splitted [length(splitted)]
ext         <- ''
splitted    <- strsplit(x=fn, split='\\.')[[1]]
l           <-length (splitted)
if (l > 1 && sum(splitted[1:(l-1)] != ''))  ext <-splitted [l] 
# the extention must be the suffix of a non-empty name    
ext

}

Answer 5

仅提取不带点的文件扩展名：

tools::file_ext(fileName)

提取带点的文件扩展名：

paste0(".", tools::file_ext(fileName))

Answer 6

一种方法是使用 sub。

s <- c("test.txt", "file.zi_", "noExtension", "with.two.ext2",
       "file.with.final.dot.", "..", ".", "")

sub(".*\\.|.*", "", s, perl=TRUE)
#[1] "txt"  "zi_"  ""     "ext2" ""     ""     ""     ""    

假设有一个点 - 如果没有扩展名，则会失败：

sub(".*\\.", "", s)
#[1] "txt"         "zi_"         "noExtension" "ext2"        ""           
#[6] ""            ""            ""           

用于比较 tools::file_ext(s) 和内部使用正则表达式的代码。

tools::file_ext(s)
#[1] "txt"  ""     ""     "ext2" ""     ""     ""     ""    

pos <- regexpr("\\.([[:alnum:]]+)$", s)
ifelse(pos > -1L, substring(s, pos + 1L), "")
#[1] "txt"  ""     ""     "ext2" ""     ""     ""     ""    

Answer 7

如果您不想使用任何额外的包，您可以尝试

file_extension <- function(filenames) {
    sub(pattern = "^(.*\\.|[^.]+)(?=[^.]*)", replacement = "", filenames, perl = TRUE)
    }

如果您喜欢神秘，您可以尝试将其用作单行表达式： sub("^(.*\\.|[^. ]+)(?=[^.]*)", "", filenames, perl = TRUE) ;-)

它适用于零个 (!)、一个或多个文件名（作为字符向量或列表）具有任意数量的点.，也适用于没有任何扩展名的文件名，它返回空字符 ""。

这里是我尝试过的测试：

> file_extension("simple.txt")
[1] "txt"
> file_extension(c("no extension", "simple.ext1", "with.two.ext2", "some.awkward.file.name.with.a.final.dot.", "..", ".", ""))
[1] ""     "ext1" "ext2" ""     ""     ""     ""    
> file_extension(list("file.ext1", "one.more.file.ext2"))
[1] "ext1" "ext2"
> file_extension(NULL)
character(0)
> file_extension(c())
character(0)
> file_extension(list())
character(0)

顺便说一句，tools::file_ext() 很难找到带有非字母数字字符的“奇怪”扩展名：

> tools::file_ext("file.zi_")
[1] ""

Answer 8

该函数使用管道：

library(magrittr)

file_ext <- function(f_name) {
  f_name %>%
    strsplit(".", fixed = TRUE) %>%
    unlist %>%
    extract(2)
 }

 file_ext("test.txt")
 # [1] "txt"

Answer 9

我发现没有额外的包的最简单的方法：

FileExt <- function(filename) {
  nameSplit <- strsplit(x = filename, split = "\\.")[[1]]
  return(nameSplit[length(nameSplit)])
}