This document is archived and information here might be outdated.  Recommended version.

Create Datum List Textfile Snippet (ArcObjects .NET 10.4 SDK)

ArcObjects Library Reference

Create Datum List Textfile Snippet

[C#]

///<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();
}

[Visual Basic .NET]

'''<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