Untitled

 avatar
user_2161864
plain_text
a month ago
1.1 kB
2
Indexable
Never
# Cargar las bibliotecas necesarias
library(readr)
library(dplyr)

# Definir los nombres de las columnas y las posiciones de las columnas
columnas <- c("ESTUDIO", "REGISTRO", "CUES", "FECHAINI", "HORAINI", "FECHAFIN", "HORAFIN",
              "DURACION", "CCAA", "PROV", "MUN", "DISTR", "SECCION", "CAPITAL")

posiciones <- list(
  c(1, 4), c(5, 10), c(11, 15), c(16, 25), c(26, 33),
  c(34, 43), c(44, 51), c(52, 56), c(57, 58), c(59, 60),
  c(61, 63), c(64, 66), c(67, 69), c(70, 70)
)

# Crear un marco de datos con las posiciones de las columnas
fwf_posiciones <- fwf_positions(
  start = sapply(posiciones, `[`, 1),
  end = sapply(posiciones, `[`, 2),
  col_names = columnas
)

# Ruta al archivo DA3235.txt
file_path <- "G:/Mi unidad/Espai Zero Vuit/Dades/Microdades/DA3235.txt"

# Leer los datos utilizando read_fwf
df <- read_fwf(file_path, fwf_posiciones, col_types = cols())

# Guardar el DataFrame en un archivo CSV
output_path <- "G:/Mi unidad/Espai Zero Vuit/Dades/Microdades/output.csv"
write_csv(df, output_path)

# Mensaje de éxito
print("La base de datos ha sido creada y guardada con éxito.")
Leave a Comment