Hi,

Here's my 2nd try at writing F# code. Basically what I'm just trying to do here is to retrieve a string hardcoded in the assembly and output it as a file.

Pseudocode:

----------------

1. Select dll

2. Load assembly

3. Get the Types that inherit from class SchemaBase

4. From the type, retrieve the value of the Property "XmlContent" (this property contains the XSD string)

5. Output xsd string as a file.

So here's the code..

-----------------------

let schemaPropertyName = "XmlContent"

let btsSchemas file =

if (not (String.IsNullOrEmpty(file))) then

let btsAssembly = Assembly.LoadFile(file)

let types = btsAssembly.GetTypes()

let schemabaseType = typeof<SchemaBase>

let btsSchemaTypes = types |> Array.filter (fun x -> schemabaseType.IsAssignableFrom(x))

btsSchemaTypes

else

[||]

type Form1 =

inherit Form as base

val mutable tbDllFile: TextBox

// button for browsing to the dll file

val mutable btnBrowse: Button

//button for extracting the xsd and creating the file

val mutable btnExtract: Button

val mutable label1: Label

val mutable progressBar1: ProgressBar

val mutable openFileDialog1: OpenFileDialog

... some code for Initialization of the controls...

//-------------------------

// Get the dll

//---------------------------

this.btnBrowse.Click.Add(fun _ ->

// if statement throws warning. How can I improve this?

if (DialogResult.OK == this.openFileDialog1.ShowDialog()) then

this.tbDllFile.Text <- this.openFileDialog1.FileName

else

this.tbDllFile.Text <- "")

//-------------------------

// Load the assembly,

// Get the hardcoded xsd string

// Output to a file

//---------------------------

this.btnExtract.Click.Add(fun e ->

//let max = ref 0

let justTheFileName = Path.GetFileName(this.tbDllFile.Text);

if File.Exists(this.tbDllFile.Text) then

let temp = btsSchemas this.tbDllFile.Text

this.progressBar1.Maximum <- temp.Length

this.progressBar1.Minimum <- 0

this.progressBar1.Step <- 1

this.progressBar1.Value <- 0

this.progressBar1.Refresh()

if temp.Length > 0 then

temp |> Array.iter (fun typ ->

let instance = Activator.CreateInstance(typ) :?> SchemaBase

let xsd = instance.XmlContent

let curAssm = Assembly.GetExecutingAssembly()

let curDir = Path.GetDirectoryName(curAssm.Location)

//let curDir = Directory.GetCurrentDirectory()

llet fullFileName = Path.Combine(curDir, typ.Name + ".xsd")

this.progressBar1.Increment(1)

using(new StreamWriter(fullFileName, false, Encoding.Unicode)) (fun sw -> sw.Write(xsd))

)

else

MessageBox.Show(justTheFileName + " does not contain BizTalk schemas") |> ignore

else

MessageBox.Show(justTheFileName + " file does not exist") |> ignore

)

Definition of the C# class that contains the hardcoded XSD string

----------------------------------------------------

[Serializable, SchemaRoots(new string[] { "article" }), SchemaReference("ValidationSchemas.contentFile", typeof(contentFile)), Schema("[link:production] "article"), SchemaType(2)]

public sealed class article : SchemaBase

{

// Methods

public article();

// Properties

public override string XmlContent { get; }

}

Though its working I'm pretty sure this code is far from perfect. Can you guys give some pointers on how it can be improved?