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')