Re: Part or Partition or Split or Extract or ...... ????

*To*: mathgroup at smc.vnet.net*Subject*: [mg85425] Re: Part or Partition or Split or Extract or ...... ????*From*: yatesd at mac.com*Date*: Sun, 10 Feb 2008 05:15:14 -0500 (EST)*References*: <fojrtu$h1k$1@smc.vnet.net>

I assume that your Import has resulted in A being a matrix of strings. To check this try InputForm[ A[[1]] ] and see if there are quotes around the items. If this is the case, then you could try something like this (where the output shown here is in InputForm. The standard output does not show quote characters and represents backslashes differently.) I have assumed A looks something like this: {{"(300a,011c) DS[25\55] # 6", "2", " unknownparameter"}, {"(300a,011c) DS[0\60] # 4", "2", " unknownparameter"}, {"(300a,011c) DS[64.5\64.5\64.5\64.5\64.5\64.5\64.5\64.5\64.5\64.5\64.5\64.5\ \64.5\6]... # 400", "80", " unknownparameter"}} where I added the closing ] in the third item so as to make the code work. step1 = StringCases[#, "DS[" ~~ nums : __ ~~ "]" :> nums] & /@ A[[All, 1]] so step1 should result in something like {{"25\\55"}, {"0\\60"},{"64.5\\64.5\\64.5\\64.5\\64.5\\64.5\\64.5\ \64.5\\64.5\\64.5\\64.5\\\64.5 \\64.5\\6"}} (Note the the backslash (\) has a special meaning in Mathematica and so when you want to represent the string character, you need to use "\ \" step2 = StringSplit[#, "\\"] & @@@ step1 which should result in something like this {{"25", "55"}, {"0", "60"}, {"64.5", "64.5", "64.5", "64.5", "64.5", "64.5", "64.5", "64.5", "64.5", "64.5", "64.5", "64.5 ", "64.5","6"}} now convert the strings to numbers via something like step3 = step2 /. x_String :> ToExpression[x] and step3 should result in something like {{25, 55}, {0, 60}, {64.5, 64.5, 64.5, 64.5, 64.5, 64.5, 64.5, 64.5, 64.5, 64.5, 64.5, 64.5, 64.5, 6}} where the entries are now numbers Now you can manipulate the numbers as needed (which I am afraid I did not fully understand from your posting). Hope that helps, Derek