Create Datum List Textfile Snippet

///<summary>Writes the list of coordinate tool datums and ellipsoids to a user specified text file.</summary>
/// 
///<param name="datumPathFile">A System.String that is path and filename where the listing of datums is created. Example: "c:\temp\mydatums.txt"</param>
///  
///<remarks></remarks>
public void CreateDatumListTextfile(System.String datumPathFile)
{
  // Initialize the Coordinate tool.
  ESRI.ArcGIS.DefenseSolutions.ICoordinateTool coordinateTool = new ESRI.ArcGIS.DefenseSolutions.CoordinateToolClass();

  // Generate the list of datums as a string array.
  string[] s = coordinateTool.GetDatumList();

  // Create a text file.
  System.IO.StreamWriter streamWriter = new System.IO.StreamWriter(datumPathFile);

  // Add the datum and ellipsoid strings to it.
  for (System.Int32 i = 0; i <= s.Length; i++)
  // for (int i = LBound(s); i <= UBound(s); i++)
  {
      streamWriter.WriteLine("Datum: " + System.Convert.ToString(i) + " : " + s[i] + System.Environment.NewLine + "Ellipsoid: " + coordinateTool.GetDatumEllipsoid(i));
  }

  // Close the file.
  streamWriter.Close();
}

'''<summary>Writes the list of coordinate tool datums and ellipsoids to a user specified text file.</summary>
''' 
'''<param name="datumPathFile">A System.String that is path and filename where the listing of datums is created. Example: "c:\temp\mydatums.txt"</param>
'''  
'''<remarks></remarks>
Public Sub CreateDatumListTextfile(ByVal datumPathFile As System.String)

  'Initialize the Coordinate tool.
  Dim coordinateTool As ESRI.ArcGIS.DefenseSolutions.ICoordinateTool = New ESRI.ArcGIS.DefenseSolutions.CoordinateToolClass

  'Generate the list of datums as a string array.
  Dim s() As System.String = coordinateTool.GetDatumList

  'Create a text file
  Dim streamWriter As System.IO.StreamWriter = New System.IO.StreamWriter(datumPathFile)

  Dim i As System.Int32
  'Add the datum and ellipsoid strings to it.
    For i = 0 To s.Length - 1
      streamWriter.WriteLine("Datum: " + System.Convert.ToString(i) + " : " + s(i) + System.Environment.NewLine + "Ellipsoid: " + coordinateTool.GetDatumEllipsoid(i))
    Next i

  'Close the file.
  streamWriter.Close()

End Sub