Re: Rearranging a data array containing calendrical as well as data entries.
- To: mathgroup at smc.vnet.net
- Subject: [mg54872] Re: Rearranging a data array containing calendrical as well as data entries.
- From: "Michel, Hans J.I." <HMiche at LSUHSC.EDU>
- Date: Fri, 4 Mar 2005 05:08:10 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Gilmar:
Here's my take. You will need Mathematica version 5.1 and up, using one new
function StringSplit. The Calendar package takes care of all your date needs
(Leap year etc). The key function is FindList and the key search pattern is
findwhattext. With these two things you get the range of text you need from
your flow.dat file. The rest is clean up, and date logic.
I leave the final output up to the user. MatrixForm is good enough for me. I
leave error checking up to the user; i.e., Integer checking, start date less
than end date, that the file is there, and that the date range is in the
file. So this solution assumes you know what is in the file and that it
follows said format.
<< Miscellaneous`Calendar`
parseUSGSData[{year1_, month1_, day1_}, {year2_, month2_, day2_},
datafileName_] := Module[
{days, datelist, findwhattext, fromfile, returnList, repstr},
days = DaysBetween[{year1, month1, day1}, {year2, month2, day2}];
datelist = Table[DaysPlus[{year1, month1, day1}, i], {i, 0, days}];
findwhattext = Map[StringJoin, Map[ToString, Union[Drop[datelist,
{}, {3}]], {2}] /. {"1" -> " 1", "2" -> " 2", "3" -> " 3", "4" -> " 4", "5"
-> " 5", "6" -> " 6", "7" -> " 7", "8" -> " 8", "9" -> " 9"}, {1}];
repstr = Outer[StringJoin, findwhattext, {" 1 ", " 2 ", " 3 ", " 4
"}];
fromfile = FindList[datafileName, findwhattext];
returnList = Take[Drop[Flatten[StringSplit[StringReplace[fromfile,
repstr -> ""]]], If[day1 > 1, (day1 - 1), 0]], days + 1 ];
Table[{datelist[[i]], returnList[[i]]}, {i, (days + 1)}]
]
parseUSGSData[{1998, 9, 2}, {1998, 9, 30}, "C:\\flow.dat"]
% //MatrixForm
Hans Michel