<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>OpenLayers GML Layer Example</title>
<link rel="stylesheet" href="../theme/default/style.css" type="text/css" />
<link rel="stylesheet" href="style.css" type="text/css" />
<script src="../OpenLayers.js"></script>
<script type="text/javascript">
//var lon = 5;
//var lat = 40;
//var zoom = 5;
var map, layer;
//var clicker;
//function clicker (e){
//alert ("nothing");
//}
function selected (evt) {
var html ="<table id=\"featureDataTable\">";
var headerRow = "<tr>";
var dataRow = "<tr>";
//alert(evt.feature.id + " selected on " + this.name);
for (var member in evt.feature.data) {
headerRow += "<td>" + member + "</td>";
dataRow += "<td>" + evt.feature.data[member] + "</td>";
//alert('Name: ' + member);
//alert('Value: ' + evt.feature.data[member]);
}
headerRow += "</tr>";
dataRow += "</tr>";
html += headerRow + dataRow + "</table>" ;
//alert(html);
document.getElementById("featureData").innerHTML = html;
}
function init(){
map = new OpenLayers.Map('map');
base = new OpenLayers.Layer("",{isBaseLayer: true});
map.addLayer(base);
// layer = new OpenLayers.Layer.WMS( "OpenLayers WMS",
// "http://vmap0.tiles.osgeo.org/wms/vmap0", {layers: 'basic'} );
// layer);
map.zoomToExtent(new OpenLayers.Bounds(-126,24,-63,50));
layer =new OpenLayers.Layer.GML("GML", "http://localhost:8080/geoserver/ows?service=WFS&version=1.0.0&request=GetFeature&typeName=topp:states&maxFeatures=50");
//layer =new OpenLayers.Layer.GML("GML", "http://localhost:8080/geoserver/ows?service=WFS&version=1.0.0&request=GetFeature&typeName=cite:EMP_FIG_2010_FEATURE_SIMPLE&maxFeatures=2");
//http://localhost:8080/geoserver/ows?service=WFS&version=1.0.0&request=GetFeature&typeName=cite:EMP_FIG_2010_FEATURE_SIMPLE&maxFeatures=2
// layer =new OpenLayers.Layer.WFS("WFS", "http://localhost:8080/geoserver/ows?service=WFS&version=1.0.0&request=GetFeature&typeName=topp:states&maxFeatures=50");
layer.events.register("featureselected", layer, selected);
var control = new OpenLayers.Control.SelectFeature(layer);
map.addControl(control);
control.activate();
map.addLayer(layer);
//clicker = new OpenLayers.Control.GetFeature();
//map.addControl(clicker);
}
</script>
</head>
<body onload="init()">
<h1 id="title">GML Layer Example</h1>
<div id="tags">
GML
</div>
<p id="shortdesc">
Loads locally stored GML vector data on a basemap. Includes GML example file.
</p>
<div id="map" class="smallmap"></div>
<div id="docs"></div>
<div id="featureData"></div>
</body>
</html>
Monday, February 14, 2011
OpenLayers open and view GML data
Monday, December 6, 2010
Ajax call of WFS
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>WFS Ajax Post </title>
<script type="text/javascript">
var reqXML;
function LoadXMLDoc(url){
if (window.XMLHttpRequest){
reqXML = new XMLHttpRequest();
}
else if(window.ActiveXObject){
reqXML = new ActiveXObject("Microsoft.XMLHTTP");
}
if(reqXML){
document.getElementById("spanOut").innerHTML = "Sending Information...";
reqXML.open("POST", url, true);
reqXML.onreadystatechange = BuildXMLResults;
reqXML.setRequestHeader("Content-Type", "application/xml");
//var strName = encodeURI(document.Form1.txtName.value);
//var strMess = encodeURI(document.Form1.txtMess.value);
var strMess = document.Form1.txtMess.value;
var xmlBody = strMess ;
reqXML.send( xmlBody);
}
else{
alert("Your browser does not support Ajax");
}
}
function BuildXMLResults(){
if(reqXML.readyState == 4){
if(reqXML.status == 200){
var strText = reqXML.responseText;
var regex1 = /</g;
var regex2 = />/g;
strText = strText.replace( regex1, "<");
strText = strText.replace( regex2, ">");
//alert(strText);
document.getElementById("spanOut").innerHTML = strText;
}
else{
alert("There was a problem retrieving the XML data:\n" + reqXML.statusText);
}
}
}
</script>
</HEAD>
<body>
<h1>Get Feature using Ajax Post</h1>
<form id="Form1" name="Form1" method="post" onsubmit="LoadXMLDoc('http://webservices.ionicsoft.com/unData/wfs/UN'); return false;">
<textarea name="txtMess" rows="15" cols="80">
<wfs:GetFeature service="WFS" version="1.0.0"
outputFormat="GML2"
xmlns:topp="http://www.openplans.org/topp"
xmlns:wfs="http://www.opengis.net/wfs"
xmlns:ogc="http://www.opengis.net/ogc"
xmlns:gml="http://www.opengis.net/gml"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:unwfs="http://www.ionicsoft.com/wfs"
xsi:schemaLocation="http://www.opengis.net/wfs
http://schemas.opengis.net/wfs/1.0.0/WFS-basic.xsd">
<wfs:Query typeName="unwfs:AIR_POINT">
</wfs:Query>
</wfs:GetFeature>
</textarea><br>
<input type="submit" name="btnSubmit" value="Submit"><br/>
<span id="spanOut"></span>
</form>
</body>
</HTML>
<HTML>
<HEAD>
<title>WFS Ajax Post </title>
<script type="text/javascript">
var reqXML;
function LoadXMLDoc(url){
if (window.XMLHttpRequest){
reqXML = new XMLHttpRequest();
}
else if(window.ActiveXObject){
reqXML = new ActiveXObject("Microsoft.XMLHTTP");
}
if(reqXML){
document.getElementById("spanOut").innerHTML = "Sending Information...";
reqXML.open("POST", url, true);
reqXML.onreadystatechange = BuildXMLResults;
reqXML.setRequestHeader("Content-Type", "application/xml");
//var strName = encodeURI(document.Form1.txtName.value);
//var strMess = encodeURI(document.Form1.txtMess.value);
var strMess = document.Form1.txtMess.value;
var xmlBody = strMess ;
reqXML.send( xmlBody);
}
else{
alert("Your browser does not support Ajax");
}
}
function BuildXMLResults(){
if(reqXML.readyState == 4){
if(reqXML.status == 200){
var strText = reqXML.responseText;
var regex1 = /</g;
var regex2 = />/g;
strText = strText.replace( regex1, "<");
strText = strText.replace( regex2, ">");
//alert(strText);
document.getElementById("spanOut").innerHTML = strText;
}
else{
alert("There was a problem retrieving the XML data:\n" + reqXML.statusText);
}
}
}
</script>
</HEAD>
<body>
<h1>Get Feature using Ajax Post</h1>
<form id="Form1" name="Form1" method="post" onsubmit="LoadXMLDoc('http://webservices.ionicsoft.com/unData/wfs/UN'); return false;">
<textarea name="txtMess" rows="15" cols="80">
<wfs:GetFeature service="WFS" version="1.0.0"
outputFormat="GML2"
xmlns:topp="http://www.openplans.org/topp"
xmlns:wfs="http://www.opengis.net/wfs"
xmlns:ogc="http://www.opengis.net/ogc"
xmlns:gml="http://www.opengis.net/gml"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:unwfs="http://www.ionicsoft.com/wfs"
xsi:schemaLocation="http://www.opengis.net/wfs
http://schemas.opengis.net/wfs/1.0.0/WFS-basic.xsd">
<wfs:Query typeName="unwfs:AIR_POINT">
</wfs:Query>
</wfs:GetFeature>
</textarea><br>
<input type="submit" name="btnSubmit" value="Submit"><br/>
<span id="spanOut"></span>
</form>
</body>
</HTML>
Tuesday, October 5, 2010
Importing XMLNodes, Serialization
using System;
using System.Collections.Generic;
using System.Text;
using System.Xml;
using System.Xml.Serialization;
using System.IO;
namespace ModifydummyNameS
{
public class MakeSavedummyNameRequest
{
internal System.Xml.XmlDocument getdummyNameReq(string getdummyNameOut, string savedummyNameTemplate)
{
XmlDocument getdummyNameDoc = new XmlDocument();
getdummyNameDoc.Load(getdummyNameOut);
XmlNamespaceManager nsmgr = new XmlNamespaceManager(getdummyNameDoc.NameTable);
nsmgr.AddNamespace("ns5", "http://dummyName3/Statistics/dummyName5/dummyName4/1");
XmlElement root = getdummyNameDoc.DocumentElement;
XmlNodeList dummyNameNodes = root.SelectNodes("//ns5:dummyName4", nsmgr);
XmlDocument savedummyNameDocOut = new XmlDocument();
XmlDocument savedummyNameDoc = new XmlDocument();
savedummyNameDoc.Load(@"C:\Data\SmallTests\ModifydummyNameS\SavedummyNameTemplate.xml");
XmlNamespaceManager saveNmgr = new XmlNamespaceManager(savedummyNameDoc.NameTable);
saveNmgr.AddNamespace("m", "http://www.dummyName3/Statistics/dummyName5/dummyName2Service/1");
XmlNode outAppendNode = savedummyNameDocOut.ImportNode(savedummyNameDoc.DocumentElement, true);
XmlNode nextNodeInsert = savedummyNameDocOut.AppendChild(outAppendNode);
foreach (XmlNode dummyNameNode in dummyNameNodes)
{
savedummyNameDoc = new XmlDocument();
savedummyNameDoc.Load(@"C:\Data\SmallTests\ModifydummyNameS\SavedummyNameTemplate.xml");
XmlNode callsNode = savedummyNameDoc.SelectSingleNode("/calls", saveNmgr);
XmlNode callNode = savedummyNameDoc.SelectSingleNode("//call", saveNmgr);
XmlNode insertPointNode = savedummyNameDoc.SelectSingleNode("//m:SavedummyName4Request", saveNmgr);
dummyName2Service.dummyName4 dummyName = deserializedummyNameOut(dummyNameNode);
if (dummyName.dummyName6 == null)
{
dummyName.dummyName6 = "SAS" + dummyName.id.id + "~" + dummyName.id.version;
XmlDocument dummyNameDoc = new XmlDocument();
dummyNameDoc.LoadXml(serializedummyNameToString(dummyName));
XmlNode appendNode = savedummyNameDoc.ImportNode(dummyNameDoc.DocumentElement,true);
insertPointNode.AppendChild(appendNode);
XmlNode outNode = savedummyNameDocOut.ImportNode(callNode, true);
nextNodeInsert.AppendChild(outNode);
}
}
return savedummyNameDocOut;
}
private void serializedummyNameToFile(dummyName2Service.dummyName4 dummyName)
{
XmlSerializer ser = new XmlSerializer(typeof(dummyName2Service.dummyName4), "http://www.dummyName3/Statistics/dummyName5/dummyName4/1");
TextWriter tw = new StreamWriter(@"C:\Data\SmallTests\ModifydummyNameS\dummyNameser.xml");
ser.Serialize(tw,dummyName);
tw.Close();
}
private string serializedummyNameToString(dummyName2Service.dummyName4 dummyName)
{
XmlSerializer ser = new XmlSerializer(typeof(dummyName2Service.dummyName4), "http://www.dummyName3/Statistics/dummyName5/dummyName4/1");
StringWriter sw = new StringWriter();
ser.Serialize(sw, dummyName);
return sw.ToString();
}
private dummyName2Service.dummyName4 deserializedummyNameOut(XmlNode dummyNameNode)
{
XmlSerializer ser = new XmlSerializer(typeof(dummyName2Service.dummyName4), "http://www.dummyName3/Statistics/dummyName5/dummyName4/1");
return (dummyName2Service.dummyName4)ser.Deserialize(new XmlNodeReader(dummyNameNode));
}
}
}
Wednesday, February 24, 2010
Tuesday, February 2, 2010
Traverse an XML Document Produce a namespacemanager
using System;
using System.Collections.Generic;
using System.Text;
using System.Xml;
namespace xpath
{
class XmlTraverser
{
private XmlDocument doc;
private XmlNamespaceManager nmgr;
public XmlNamespaceManager getXmlNamespaceManager(){
return nmgr;
}
public XmlTraverser(XmlDocument doc)
{
this.doc = doc;
XmlNode node = doc.DocumentElement;
nmgr = new XmlNamespaceManager(doc.NameTable);
traverseDocument(node, "", nmgr);
ShowAllNamespaces(nmgr);
}
private void traverseDocument(XmlNode node, string path, XmlNamespaceManager nmgr)
{
path += "/" + node.Name;
if (node.HasChildNodes)
{
foreach (XmlAttribute att in node.Attributes)
{
if (att.Name.StartsWith("xmlns"))
{
string[] splitString = att.Name.Split(new Char[] { ':' });
nmgr.AddNamespace(splitString[1], att.InnerText);
}
Console.WriteLine(att.Name + " == " + att.InnerText);
}
foreach (XmlNode childNode in node.ChildNodes)
{
if (!childNode.HasChildNodes)
{
Console.WriteLine(path + " = "+childNode.InnerText);
}
traverseDocument(childNode, path, nmgr);
}
}
}
private void ShowAllNamespaces(XmlNamespaceManager nsmgr)
{
do
{
Console.WriteLine("popedScope");
foreach (String prefix in nsmgr)
{
Console.WriteLine("Prefix={0}, Namespace={1}", prefix, nsmgr.LookupNamespace(prefix));
}
}
while (nsmgr.PopScope());
}
}
}
Usage
static void Main(string[] args)
{
XmlDocument doc = new XmlDocument();
doc.Load(@"c:\Data\adrian\adrian.xml");
XmlTraverser xmlTraverser = new XmlTraverser(doc);
XmlNamespaceManager mgr = xmlTraverser.getXmlNamespaceManager();
XmlNodeList nodes = doc.SelectNodes("/ns5:dataItemInstance[ns6:id/ns6:id=16100 and ns6:id/ns6:version=1]/ns5:relatedDIT/ns7:id/text()", mgr);
foreach (XmlNode node in nodes)
{
Console.WriteLine("Got here");
Console.WriteLine(node.InnerText);
}
Console.Read();
}
Thursday, January 21, 2010
Raw Signed Soap Call
using System;
using System.Collections.Generic;
using System.Text;
using Microsoft.Web.Services2.Security.X509;
using Microsoft.Web.Services2;
using Microsoft.Web.Services2.Security.Tokens;
using Microsoft.Web.Services2.Security;
using System.Xml.Serialization;
namespace MDTestTool.Tests
{
class RawSoapTest : Microsoft.Web.Services2.Messaging.SoapClient
{
public RawSoapTest() { }
public RawSoapTest(string url) :base(new Uri(url))
{
}
public string getRawSoapResponseText( string soapText, string method)
{
try
{
this.Timeout = -1;
SoapEnvelope envelope = new SoapEnvelope();
envelope.LoadXml(soapText);
X509CertificateStore store = X509CertificateStore.CurrentUserStore(X509CertificateStore.MyStore);
bool open = store.OpenRead();
X509CertificateCollection col = store.Certificates;
bool found = false;
foreach (X509Certificate cert in col)
{
if (!found && cert.SupportsDigitalSignature && cert.IsCurrent )
{
SignMessage(envelope.Context, cert, 30000);
found = true;
}
}
if (!found) throw new Exception("No suitable Certificate Found");
SoapEnvelope resp = this.SendRequestResponse(method, envelope);
return resp.OuterXml;
}
catch (Exception ex)
{
return ex.Message;
}
}
private void SignMessage(SoapContext requestContext, X509Certificate certificate,int timestampTimeout){
X509SecurityToken stSecurityToken = new X509SecurityToken(certificate);
if (stSecurityToken != null){
MessageSignature sig = new MessageSignature(stSecurityToken);
requestContext.Security.Tokens.Add(stSecurityToken);
requestContext.Security.Elements.Add(sig);
requestContext.Security.Timestamp.TtlInSeconds = timestampTimeout;
}
}
}
}
Friday, November 6, 2009
Regular Expression Matcher
Imports System.io
Imports System.Text.RegularExpressions
Public Class Form1
Public lastMatch As Integer = 0
Private Sub Load_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoadB.Click
Dim myStream As Stream = Nothing
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.InitialDirectory = "H:\REgExEditor\REgExEditor\"
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Try
myStream = openFileDialog1.OpenFile()
If (myStream IsNot Nothing) Then
' Insert code to read the stream here.
Dim sr As New StreamReader(myStream)
Me.Originaltb.Text = sr.ReadToEnd()
End If
Catch Ex As Exception
MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
Finally
' Check this again, since we need to make sure we didn't throw an exception on open.
If (myStream IsNot Nothing) Then
myStream.Close()
End If
End Try
End If
End Sub
Private Sub regexExpression_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles regexExpression.TextChanged
lastMatch = 0
End Sub
Private Sub Match_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Match.Click
Me.Originaltb.ReadOnly = True
Me.Originaltb.Focus()
'Me.Originaltb.SelectionStart = 100
' Me.Originaltb.SelectionLength = 25
'Me.Originaltb.Select(100, 25)
Dim reg As New Regex(Me.regexExpression.Text.Trim())
Dim searchString As String = Me.Originaltb.Text
Dim match As Match = reg.Match(searchString, lastMatch)
If match.Success Then
Me.Originaltb.Select(match.Index, Me.regexExpression.Text.Trim().Length)
lastMatch = match.Index + Me.regexExpression.Text.Trim().Length
' Me.Originaltb.Invalidate()
End If
End Sub
Private Sub TransfomB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TransfomB.Click
Dim reg As New Regex(Me.regexExpression.Text.Trim())
Dim searchString As String = Me.Originaltb.Text
Me.TransformBox.Text = reg.Replace(searchString, Me.replaceTB.Text.Trim())
End Sub
End Class
_
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
_
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
_
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.TabControl1 = New System.Windows.Forms.TabControl
Me.TabPage1 = New System.Windows.Forms.TabPage
Me.Originaltb = New System.Windows.Forms.TextBox
Me.TabPage2 = New System.Windows.Forms.TabPage
Me.regexExpression = New System.Windows.Forms.TextBox
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
Me.LoadB = New System.Windows.Forms.ToolStripButton
Me.Save = New System.Windows.Forms.ToolStripButton
Me.SaveAs = New System.Windows.Forms.ToolStripButton
Me.TransformBox = New System.Windows.Forms.TextBox
Me.TransfomB = New System.Windows.Forms.Button
Me.Label1 = New System.Windows.Forms.Label
Me.Match = New System.Windows.Forms.Button
Me.replaceTB = New System.Windows.Forms.TextBox
Me.Label2 = New System.Windows.Forms.Label
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'TabControl1
'
Me.TabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Location = New System.Drawing.Point(-2, 57)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(708, 335)
Me.TabControl1.TabIndex = 0
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.Originaltb)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(700, 309)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "TabPage1"
Me.TabPage1.UseVisualStyleBackColor = True
'
'Originaltb
'
Me.Originaltb.Dock = System.Windows.Forms.DockStyle.Fill
Me.Originaltb.Location = New System.Drawing.Point(3, 3)
Me.Originaltb.Multiline = True
Me.Originaltb.Name = "Originaltb"
Me.Originaltb.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.Originaltb.Size = New System.Drawing.Size(694, 303)
Me.Originaltb.TabIndex = 1
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.TransformBox)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(700, 309)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "TabPage2"
Me.TabPage2.UseVisualStyleBackColor = True
'
'regexExpression
'
Me.regexExpression.Location = New System.Drawing.Point(56, 31)
Me.regexExpression.Name = "regexExpression"
Me.regexExpression.Size = New System.Drawing.Size(300, 20)
Me.regexExpression.TabIndex = 0
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LoadB, Me.Save, Me.SaveAs})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(702, 25)
Me.ToolStrip1.TabIndex = 1
Me.ToolStrip1.Text = "ToolStrip1"
'
'LoadB
'
Me.LoadB.Image = CType(resources.GetObject("LoadB.Image"), System.Drawing.Image)
Me.LoadB.ImageTransparentColor = System.Drawing.Color.Magenta
Me.LoadB.Name = "LoadB"
Me.LoadB.Size = New System.Drawing.Size(53, 22)
Me.LoadB.Text = "Load"
'
'Save
'
Me.Save.Image = CType(resources.GetObject("Save.Image"), System.Drawing.Image)
Me.Save.ImageTransparentColor = System.Drawing.Color.Magenta
Me.Save.Name = "Save"
Me.Save.Size = New System.Drawing.Size(51, 22)
Me.Save.Text = "Save"
'
'SaveAs
'
Me.SaveAs.Image = CType(resources.GetObject("SaveAs.Image"), System.Drawing.Image)
Me.SaveAs.ImageTransparentColor = System.Drawing.Color.Magenta
Me.SaveAs.Name = "SaveAs"
Me.SaveAs.Size = New System.Drawing.Size(64, 22)
Me.SaveAs.Text = "SaveAs"
'
'TransformBox
'
Me.TransformBox.Dock = System.Windows.Forms.DockStyle.Fill
Me.TransformBox.Location = New System.Drawing.Point(3, 3)
Me.TransformBox.Multiline = True
Me.TransformBox.Name = "TransformBox"
Me.TransformBox.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.TransformBox.Size = New System.Drawing.Size(694, 303)
Me.TransformBox.TabIndex = 2
'
'TransfomB
'
Me.TransfomB.Location = New System.Drawing.Point(615, 29)
Me.TransfomB.Name = "TransfomB"
Me.TransfomB.Size = New System.Drawing.Size(75, 23)
Me.TransfomB.TabIndex = 2
Me.TransfomB.Text = "Transform"
Me.TransfomB.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 34)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(38, 13)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Regex"
'
'Match
'
Me.Match.Location = New System.Drawing.Point(534, 28)
Me.Match.Name = "Match"
Me.Match.Size = New System.Drawing.Size(75, 23)
Me.Match.TabIndex = 4
Me.Match.Text = "Match"
Me.Match.UseVisualStyleBackColor = True
'
'replaceTB
'
Me.replaceTB.Location = New System.Drawing.Point(428, 34)
Me.replaceTB.Name = "replaceTB"
Me.replaceTB.Size = New System.Drawing.Size(100, 20)
Me.replaceTB.TabIndex = 5
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(372, 37)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(47, 13)
Me.Label2.TabIndex = 6
Me.Label2.Text = "Replace"
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(702, 389)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.replaceTB)
Me.Controls.Add(Me.Match)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TransfomB)
Me.Controls.Add(Me.regexExpression)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.TabControl1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout()
Me.TabPage2.ResumeLayout(False)
Me.TabPage2.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents LoadB As System.Windows.Forms.ToolStripButton
Friend WithEvents regexExpression As System.Windows.Forms.TextBox
Friend WithEvents Save As System.Windows.Forms.ToolStripButton
Friend WithEvents SaveAs As System.Windows.Forms.ToolStripButton
Friend WithEvents Originaltb As System.Windows.Forms.TextBox
Friend WithEvents TransformBox As System.Windows.Forms.TextBox
Friend WithEvents TransfomB As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Match As System.Windows.Forms.Button
Friend WithEvents replaceTB As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
End Class
Imports System.Text.RegularExpressions
Public Class Form1
Public lastMatch As Integer = 0
Private Sub Load_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoadB.Click
Dim myStream As Stream = Nothing
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.InitialDirectory = "H:\REgExEditor\REgExEditor\"
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Try
myStream = openFileDialog1.OpenFile()
If (myStream IsNot Nothing) Then
' Insert code to read the stream here.
Dim sr As New StreamReader(myStream)
Me.Originaltb.Text = sr.ReadToEnd()
End If
Catch Ex As Exception
MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
Finally
' Check this again, since we need to make sure we didn't throw an exception on open.
If (myStream IsNot Nothing) Then
myStream.Close()
End If
End Try
End If
End Sub
Private Sub regexExpression_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles regexExpression.TextChanged
lastMatch = 0
End Sub
Private Sub Match_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Match.Click
Me.Originaltb.ReadOnly = True
Me.Originaltb.Focus()
'Me.Originaltb.SelectionStart = 100
' Me.Originaltb.SelectionLength = 25
'Me.Originaltb.Select(100, 25)
Dim reg As New Regex(Me.regexExpression.Text.Trim())
Dim searchString As String = Me.Originaltb.Text
Dim match As Match = reg.Match(searchString, lastMatch)
If match.Success Then
Me.Originaltb.Select(match.Index, Me.regexExpression.Text.Trim().Length)
lastMatch = match.Index + Me.regexExpression.Text.Trim().Length
' Me.Originaltb.Invalidate()
End If
End Sub
Private Sub TransfomB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TransfomB.Click
Dim reg As New Regex(Me.regexExpression.Text.Trim())
Dim searchString As String = Me.Originaltb.Text
Me.TransformBox.Text = reg.Replace(searchString, Me.replaceTB.Text.Trim())
End Sub
End Class
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.TabControl1 = New System.Windows.Forms.TabControl
Me.TabPage1 = New System.Windows.Forms.TabPage
Me.Originaltb = New System.Windows.Forms.TextBox
Me.TabPage2 = New System.Windows.Forms.TabPage
Me.regexExpression = New System.Windows.Forms.TextBox
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
Me.LoadB = New System.Windows.Forms.ToolStripButton
Me.Save = New System.Windows.Forms.ToolStripButton
Me.SaveAs = New System.Windows.Forms.ToolStripButton
Me.TransformBox = New System.Windows.Forms.TextBox
Me.TransfomB = New System.Windows.Forms.Button
Me.Label1 = New System.Windows.Forms.Label
Me.Match = New System.Windows.Forms.Button
Me.replaceTB = New System.Windows.Forms.TextBox
Me.Label2 = New System.Windows.Forms.Label
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'TabControl1
'
Me.TabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Location = New System.Drawing.Point(-2, 57)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(708, 335)
Me.TabControl1.TabIndex = 0
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.Originaltb)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(700, 309)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "TabPage1"
Me.TabPage1.UseVisualStyleBackColor = True
'
'Originaltb
'
Me.Originaltb.Dock = System.Windows.Forms.DockStyle.Fill
Me.Originaltb.Location = New System.Drawing.Point(3, 3)
Me.Originaltb.Multiline = True
Me.Originaltb.Name = "Originaltb"
Me.Originaltb.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.Originaltb.Size = New System.Drawing.Size(694, 303)
Me.Originaltb.TabIndex = 1
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.TransformBox)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(700, 309)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "TabPage2"
Me.TabPage2.UseVisualStyleBackColor = True
'
'regexExpression
'
Me.regexExpression.Location = New System.Drawing.Point(56, 31)
Me.regexExpression.Name = "regexExpression"
Me.regexExpression.Size = New System.Drawing.Size(300, 20)
Me.regexExpression.TabIndex = 0
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LoadB, Me.Save, Me.SaveAs})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(702, 25)
Me.ToolStrip1.TabIndex = 1
Me.ToolStrip1.Text = "ToolStrip1"
'
'LoadB
'
Me.LoadB.Image = CType(resources.GetObject("LoadB.Image"), System.Drawing.Image)
Me.LoadB.ImageTransparentColor = System.Drawing.Color.Magenta
Me.LoadB.Name = "LoadB"
Me.LoadB.Size = New System.Drawing.Size(53, 22)
Me.LoadB.Text = "Load"
'
'Save
'
Me.Save.Image = CType(resources.GetObject("Save.Image"), System.Drawing.Image)
Me.Save.ImageTransparentColor = System.Drawing.Color.Magenta
Me.Save.Name = "Save"
Me.Save.Size = New System.Drawing.Size(51, 22)
Me.Save.Text = "Save"
'
'SaveAs
'
Me.SaveAs.Image = CType(resources.GetObject("SaveAs.Image"), System.Drawing.Image)
Me.SaveAs.ImageTransparentColor = System.Drawing.Color.Magenta
Me.SaveAs.Name = "SaveAs"
Me.SaveAs.Size = New System.Drawing.Size(64, 22)
Me.SaveAs.Text = "SaveAs"
'
'TransformBox
'
Me.TransformBox.Dock = System.Windows.Forms.DockStyle.Fill
Me.TransformBox.Location = New System.Drawing.Point(3, 3)
Me.TransformBox.Multiline = True
Me.TransformBox.Name = "TransformBox"
Me.TransformBox.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.TransformBox.Size = New System.Drawing.Size(694, 303)
Me.TransformBox.TabIndex = 2
'
'TransfomB
'
Me.TransfomB.Location = New System.Drawing.Point(615, 29)
Me.TransfomB.Name = "TransfomB"
Me.TransfomB.Size = New System.Drawing.Size(75, 23)
Me.TransfomB.TabIndex = 2
Me.TransfomB.Text = "Transform"
Me.TransfomB.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 34)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(38, 13)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Regex"
'
'Match
'
Me.Match.Location = New System.Drawing.Point(534, 28)
Me.Match.Name = "Match"
Me.Match.Size = New System.Drawing.Size(75, 23)
Me.Match.TabIndex = 4
Me.Match.Text = "Match"
Me.Match.UseVisualStyleBackColor = True
'
'replaceTB
'
Me.replaceTB.Location = New System.Drawing.Point(428, 34)
Me.replaceTB.Name = "replaceTB"
Me.replaceTB.Size = New System.Drawing.Size(100, 20)
Me.replaceTB.TabIndex = 5
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(372, 37)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(47, 13)
Me.Label2.TabIndex = 6
Me.Label2.Text = "Replace"
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(702, 389)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.replaceTB)
Me.Controls.Add(Me.Match)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TransfomB)
Me.Controls.Add(Me.regexExpression)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.TabControl1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout()
Me.TabPage2.ResumeLayout(False)
Me.TabPage2.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents LoadB As System.Windows.Forms.ToolStripButton
Friend WithEvents regexExpression As System.Windows.Forms.TextBox
Friend WithEvents Save As System.Windows.Forms.ToolStripButton
Friend WithEvents SaveAs As System.Windows.Forms.ToolStripButton
Friend WithEvents Originaltb As System.Windows.Forms.TextBox
Friend WithEvents TransformBox As System.Windows.Forms.TextBox
Friend WithEvents TransfomB As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Match As System.Windows.Forms.Button
Friend WithEvents replaceTB As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
End Class
Subscribe to:
Comments (Atom)