Importation d'un fichier texte dans la R

J'ai un fichier texte qui contient plus de 100 000 lignes qui j'ai télécharger la semaine à partir de SAP. qu'il est téléchargé, pages et chaque page contient le même en-tête, le long avec une ligne pointillée. un exemple minimal avec deux pages ne contenant que deux articles ci-dessous.

------------------------------------------------------------
|date              |Material          |Description         |
|----------------------------------------------------------|
|10/04/2013        |WM.5597394        |PNEUMATIC           |
|11/07/2013        |GB.D040790        |RING                |
------------------------------------------------------------

------------------------------------------------------------
|date              |Material          |Description         |
|----------------------------------------------------------|
|08/06/2013        |WM.4M01004A05     |TOUCHEUR            |
|08/06/2013        |WM.4M010108-1     |LEVER               |
------------------------------------------------------------

ce que je voudrais faire est d'importer ce fichier dans R avec un seul en-tête et pas de tiret. J'ai essayé:

read.table( "myfile.txt",  sep = "|", fill=TRUE)

Merci beaucoup

  • Est l'exemple le contenu d'une seule ou de deux fichiers?
  • toutes les lignes sont contenues dans un seul fichier texte
InformationsquelleAutor Ragy Isaac | 2014-01-14
  1. 9

    Un autre readLines approche:

    l <- readLines("myfile.txt")

# remove unnecessary lines
l <- grep("^\\|?-+\\|?$|^$", l, value = TRUE, invert = TRUE)

# remove duplicated headers
l2 <- c(l[1], l[-1][l[-1] != l[1]])

# split
lsplit <- strsplit(l2, "\\s*\\|")

# create data frame
dat <- setNames(data.frame(do.call(rbind, lsplit[-1])[ , -1]), lsplit[[1]][-1])


        date      Material Description
1 10/04/2013    WM.5597394   PNEUMATIC
2 11/07/2013    GB.D040790        RING
3 08/06/2013 WM.4M01004A05    TOUCHEUR
4 08/06/2013 WM.4M010108-1       LEVER
    InformationsquelleAutor Sven Hohenstein
  2. 4

    Vous pouvez pré-traiter les fichiers comme du texte, puis utilisez read.table:

    lines <- readLines("myfile.txt")
lines <- sapply(lines, gsub, pattern="[-]{2,}|[|]", replacement="")
lines <- c(lines[2], lines[lines!="" & lines!=lines[2]])

read.table(text=lines, header=T)

    donne

            date      Material Description
1 10/04/2013    WM.5597394   PNEUMATIC
2 11/07/2013    GB.D040790        RING
3 08/06/2013 WM.4M01004A05    TOUCHEUR
4 08/06/2013 WM.4M010108-1       LEVER
    InformationsquelleAutor redmode
  3. 2

    Vous pouvez utiliser readLines et read.table (peut-être pas très efficace):

    ll <- readLines(textConnection(txt))
dat <- read.table(text=ll[!grepl('--',ll)],sep='|',header=TRUE)[,-c(1,5)]
dat[!grepl('date',dat$date),]
            date           Material          Description
1 10/04/2013         WM.5597394         PNEUMATIC           
2 11/07/2013         GB.D040790         RING                
4 08/06/2013         WM.4M01004A05      TOUCHEUR            
5 08/06/2013         WM.4M010108-1      LEVER
    • Comment puis-je lire le fichier "myfile.txt"
    • Il les filtres " WM.4M010108-1'
    • utilisation readLines("myfile.txt").
    • aussi, il rompt rownames séquence
    InformationsquelleAutor agstudy
  4. 1

    Comme l'ont souligné les autres réponses, readLines est le chemin à parcourir

    sap <- readLines("myfile.txt")
sap <- gsub("(^\\||\\|$|\\-{2,}|\\s+)", "", sap)
sap <- sap[nchar(sap) > 0]
ind <- grep("^date", sap)
header <- sap[ind]
header <- unique(unlist(strsplit(header, "\\|")))
sap <- sap[-ind]

sap <- read.table(text = sap, sep = "|",
                  col.names = header,
                  stringsAsFactors = FALSE)
str(sap)
##         date      Material Description
## 1 10/04/2013    WM.5597394   PNEUMATIC
## 2 11/07/2013    GB.D040790        RING
## 3 08/06/2013 WM.4M01004A05    TOUCHEUR
## 4 08/06/2013  WM.4M0101081-1       LEVER
    • Il supprime les "-" dans le Matériau de la colonne, dernière ligne
    • Bonne prise. J'ai édité ma réponse
    InformationsquelleAutor dickoa
  5. -1

    Vous pourriez avoir à écrire une coutume de lire.fichier() fonction.
    Je suggère de commencer avec scan(), lire chaque ligne comme un élément d'un vecteur et de les manipuler chaque ligne en fonction de son contenu

    InformationsquelleAutor Andrea