Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control

Shared Function GetXML(ByVal [Assembly] As System.Reflection.Assembly, ByVal _
  Name As String) As Xml.XmlDocument
        For Each s As String In [Assembly].GetManifestResourceNames
            If s.ToLower.EndsWith(Name.ToLower) Then
                Dim str As String = New Xml.XmlTextReader( _
                  [Assembly].GetManifestResourceStream(s)).ReadString
                Dim xmldoc As New Xml.XmlDocument
                xmldoc.LoadXml(str)
                Return xmldoc
            End If
        Next
        Return Nothing
    End Function

Micke

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control

Micke

		Dim tmpDir As String = System.Environment.GetEnvironmentVariable("TEMP")
		dim sw as New IO.StreamWriter ( tmpDir + "\CountryCodes.vb", false)
		Dim wc As New Net.WebClient()
		dim url as String = "http://www.iso.org/iso/iso3166_en_code_lists.txt"
		Dim data() As Byte = wc.DownloadData ( url )
		Dim lines() As String = system.Text.Encoding.UTF8.GetString( data ).Split( _
  new String() {System.Environment.NewLine}, StringSplitOptions.None )
		Dim countryName As String = Nothing
		sw.WriteLine ("Option Explicit On")
		sw.WriteLine ("Option Strict On")
		sw.WriteLine ("Class CountryCodes")
		For Each line As String In lines
			If Not line.StartsWith ("This") AndAlso line.Length > 1 Then 
				countryName = line.Split ( New Char() {";"c}) (0)
				countryName = System.Text.RegularExpressions.Regex.Replace(countryName, _
  "[\W+\/*.,'()\\/:?*^""<>|]", "_")
				sw.WriteLine ("		Public Shared ReadOnly Property " + countryName + " AS" & _
"String" )
				sw.WriteLine ("			Get")
				sw.WriteLine ("				Return """ +  line.Split ( New Char() {";"c}) (1) + """") 
				sw.WriteLine ("			End Get")
				sw.WriteLine ("		End Property")
			end if
		Next
		sw.WriteLine ("End Class")
		sw.Close()
		System.Diagnostics.Process.Start ( "notepad.exe", tmpDir + "\CountryCodes.vb")

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control

Option Explicit On
Option Strict On
 
Class CountryCodes
 
		Public Shared Function GetCountryName ( code As String )  As String
			Dim t As Type = GetType( CountryCodes )
			dim value as String = nothing 
			For Each p As Reflection.PropertyInfo In t.GetProperties()
				value = p.GetValue (nothing, new Object() {}).ToString()
				If value.ToUpper().Equals ( code.ToUpper()) Then
					return p.Name 
				End If
			Next
			return nothing
		End Function
 
		Public Shared ReadOnly Property AFGHANISTAN AS String
			Get
				Return "AF"
			End Get
		End Property
 
		Public Shared ReadOnly Property LAND_ISLANDS AS String
			Get
				Return "AX"
			End Get
		End Property

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control