Re: importing series of file with the same extension

*To*: mathgroup at smc.vnet.net*Subject*: [mg124816] Re: importing series of file with the same extension*From*: "Oleksandr Rasputinov" <oleksandr_rasputinov at ymail.com>*Date*: Wed, 8 Feb 2012 05:29:25 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <jgqpfj$mts$1@smc.vnet.net>

On Tue, 07 Feb 2012 09:04:51 -0000, maria giovanna dainotti <mariagiovannadainotti at yahoo.it> wrote: > Dear Mathematica group, > I have defined the following code: > > grbs = {"80825593", "80916009", "81006604", "81024891", "81224887", > "90217206", "90227772", "90323002", "90328401", "90510016", > "90531775", "90626189", "90720710", "90902462", "90926181", > "91003191", "91031500", "100116897", "100225115", "100325275", > "100414097", "100620119", "100724029", "100728095", "100826957", > "101014175", "101123952", "101204343", "110120666", "110328520", > "110428388", "110529034", "110625881", "110709642", "110721200", > "110731465"} > > grid = Table[grbs[[bb]], {bb, 1, Length[grbs]}] > If[NumericQ[grid], GRBID = "0" <> ToString[grid], GRBID = grid] > > Data = Import[GRBID <> ".txt", "Table"] > > When I use this last command to import the data file not found during > import. > This: grid = Table[grbs[[bb]], {bb, 1, Length[grbs]}] is equivalent to: grid = grbs And this: If[NumericQ[grid], GRBID = "0" <> ToString[grid], GRBID = grid] definitely does not accomplish anything useful either. However, this should suffice: data = Import["0" <> ToString[#] <> ".txt", "Table"]& /@ grbs;