First, install the corresponding affimatrix chip name:

source("http://bioconductor.org/biocLite.R")
biocLite("hu35ksuba")

second, upload the package from R

third, read the your desired transfer:

x <- hu35ksubaUNIGENE
# Get the probe identifiers that are mapped to an UNIGENE ID
mapped_probes <- mappedkeys(x)
# Convert to a list
xx <- as.list(x[mapped_probes])
if(length(xx) > 0) {
# Get the UNIGENE for the first five probes
xx[1:5]
# Get the first one
xx[[1]]
}

last, write into file:

dput(xx,'aaaaa')