Esempio n. 1
0
        //
        //**********************************************************************************************
        //
        public List<TMeteo> ReadPrecipitation(String aFile, DateTime aFirst, DateTime aLast)
        {
            Double OldValue = 0.0;
              Double NewValue = 0.0;
              Int32 FirstMonth = aFirst.Month;
              Int32 LastMonth = aLast.Month;
              String SheetName;
              List<TMeteo> Prec = new List<TMeteo> ();
              Prec.Clear();
              MyWorkBook = ExcelApp.Workbooks.Open(aFile, Missing, Missing, Missing,
              Missing, Missing, Missing, Missing, Missing, Missing, Missing,
              Missing, Missing, Missing, Missing);

              for (Int32 Month = FirstMonth; Month <= LastMonth; Month++)
              {
            OldValue = 0.0;
            SheetName = GetNameOfMonth(Month);
            MyWorkSheet = (Worksheet)MyWorkBook.Worksheets.get_Item(SheetName);
            Range MyRange = MyWorkSheet.UsedRange;
            System.Array MyValues = (System.Array)MyRange.Cells.get_Value(XlRangeValueDataType.xlRangeValueDefault);
            String[,] MyData = ConvertToStringArray(MyValues);
            for (Int32 i = 0; i < MyData.GetLength(0); i++)
            {
              TMeteo MyMeteo = new TMeteo();
              if ((MyData[i, 0].IndexOf("/") >= 0) || (MyData[i,0].IndexOf("-") >= 0))
              {
            MyMeteo.Date = Convert.ToDateTime(MyData[i, 0]);
            NewValue = Convert.ToDouble(MyData[i, 1]);
            MyMeteo.Value = NewValue - OldValue;
            OldValue = NewValue;
            Prec.Add(MyMeteo);
              }
            }
              }
              MyWorkBook.Close(false, "", null);
              return Prec;
        }
Esempio n. 2
0
        //
        //**********************************************************************************************
        //
        public List<TMeteo> ReadIrrigation(String aFile)
        {
            Double NewValue = 0.0;
              String SheetName = @"Irrigation";
              List<TMeteo> Irrig = new List<TMeteo>();
              Irrig.Clear();
              MyWorkBook = ExcelApp.Workbooks.Open(aFile, Missing, Missing, Missing,
              Missing, Missing, Missing, Missing, Missing, Missing, Missing,
              Missing, Missing, Missing, Missing);

              try
              {
            try
            {
              MyWorkSheet = (Worksheet)MyWorkBook.Worksheets.get_Item(SheetName);
              Range MyRange = MyWorkSheet.UsedRange;
              System.Array MyValues = (System.Array)MyRange.Cells.get_Value(XlRangeValueDataType.xlRangeValueDefault);
              String[,] MyData = ConvertToStringArray(MyValues);
              for (Int32 i = 1; i < MyData.GetLength(0); i++)
              {
            TMeteo MyMeteo = new TMeteo();
            if ((MyData[i, 0].IndexOf("-") >= 0) || (MyData[i, 0].IndexOf("/") >= 0))
            {
              MyMeteo.Date = Convert.ToDateTime(MyData[i, 0]);
              NewValue = Convert.ToDouble(MyData[i, 1]);
              MyMeteo.Value = NewValue;
              Irrig.Add(MyMeteo);
            }
              }
            }
            catch (Exception e)
            {
              MessageBox.Show("??? Error opening sheet Irrigation in file " + aFile + ": " + e.Message);
            }
              }
              finally
              {
            MyWorkBook.Close(false, "", null);
              }
              return Irrig;
        }