You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
62 lines
2.9 KiB
62 lines
2.9 KiB
Imports LINQ.Extensions
|
|
|
|
Public Class FormMain
|
|
|
|
Dim LINQFramework As LINQ.Framework.LQueryFramework = New LINQ.Framework.LQueryFramework
|
|
|
|
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
|
Call Exe(TextBox1.Text)
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Execute the linq script
|
|
''' </summary>
|
|
''' <param name="Linq"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub Exe(Linq As String)
|
|
Dim Statement = Global.LINQ.Statements.LINQStatement.TryParse(Linq, LINQFramework.TypeRegistry)
|
|
|
|
TextBox1.AppendText(String.Format("{0}{1}Auto-generated code for debug:{2}{3}{4}", vbCrLf, vbCrLf, vbCrLf, Statement.CompiledCode, vbCrLf))
|
|
TextBox1.AppendText(vbCrLf & "Query Result:" & vbCrLf)
|
|
|
|
Dim Collection = LINQFramework.EXEC(Statement)
|
|
|
|
For Each obj In Collection
|
|
Call TextBox1.AppendText(vbCrLf & obj.ToString & vbCrLf)
|
|
Next
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' registry the LINQ entity external module
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub RegistryExternalModuleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RegistryExternalModuleToolStripMenuItem.Click
|
|
Dim File As New Global.System.Windows.Forms.OpenFileDialog
|
|
If File.ShowDialog = Global.System.Windows.Forms.DialogResult.OK Then
|
|
Call LINQFramework.TypeRegistry.Register(File.FileName)
|
|
Call LINQFramework.TypeRegistry.Save()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub QueryXMLToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QueryXMLToolStripMenuItem.Click
|
|
' Dim LINQ As String = "from member as member in ""TEST_XML_FILE.xml"" let name = member.name where microsoft.visualbasic.instr(name,""MetaCyc"") select microsoft.visualbasic.mid(member.summary,1,20)"
|
|
Dim LINQ As String = "from member as member in ""TEST_XML_FILE.xml"" select microsoft.visualbasic.mid(member.summary,1,20)"
|
|
TextBox1.Text = ""
|
|
TextBox1.AppendText(LINQ)
|
|
End Sub
|
|
|
|
Private Sub SequencePatternSearchToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SequencePatternSearchToolStripMenuItem.Click
|
|
Dim LINQ As String = "from fasta as fasta in "".\xcc8004.fsa"" let seq = fasta.sequence let match = regex.match(seq,""A+T{2,}GCA+TT"") where match.success select fasta.tostring + microsoft.visualbasic.vbcrlf + ""***"" + match.value + ""***"""
|
|
TextBox1.Text = ""
|
|
TextBox1.AppendText(LINQ)
|
|
End Sub
|
|
|
|
Private Sub StringCollectionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StringCollectionToolStripMenuItem.Click
|
|
Dim LINQ As String = "from str as string in "".\LINQ.xml"" where str.length > 50 select str"
|
|
TextBox1.Text = ""
|
|
TextBox1.AppendText(LINQ)
|
|
End Sub
|
|
End Class
|