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.
104 lines
4.3 KiB
104 lines
4.3 KiB
#Region "Microsoft.VisualBasic::b4500815353a8ec0849aee01eac6a1fe, LINQ\TestMain\FormMain.vb"
|
|
|
|
' Author:
|
|
'
|
|
' asuka (amethyst.asuka@gcmodeller.org)
|
|
' xie (genetics@smrucc.org)
|
|
' xieguigang (xie.guigang@live.com)
|
|
'
|
|
' Copyright (c) 2018 GPL3 Licensed
|
|
'
|
|
'
|
|
' GNU GENERAL PUBLIC LICENSE (GPL3)
|
|
'
|
|
'
|
|
' This program is free software: you can redistribute it and/or modify
|
|
' it under the terms of the GNU General Public License as published by
|
|
' the Free Software Foundation, either version 3 of the License, or
|
|
' (at your option) any later version.
|
|
'
|
|
' This program is distributed in the hope that it will be useful,
|
|
' but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
' GNU General Public License for more details.
|
|
'
|
|
' You should have received a copy of the GNU General Public License
|
|
' along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
|
|
' /********************************************************************************/
|
|
|
|
' Summaries:
|
|
|
|
' Class FormMain
|
|
'
|
|
' Sub: Exe, QueryXMLToolStripMenuItem_Click, RegistryExternalModuleToolStripMenuItem_Click, SequencePatternSearchToolStripMenuItem_Click, StringCollectionToolStripMenuItem_Click
|
|
' ToolStripButton1_Click
|
|
'
|
|
' /********************************************************************************/
|
|
|
|
#End Region
|
|
|
|
Imports Microsoft.VisualBasic.Linq.LDM.Statements
|
|
|
|
Public Class FormMain
|
|
|
|
Dim LINQFramework As Linq.Script.DynamicsRuntime = New Linq.Script.DynamicsRuntime
|
|
|
|
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 = 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.Types.Register(File.FileName)
|
|
Call LINQFramework.Types.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
|