init commit
This commit is contained in:
parent
b5ddb77a54
commit
5167aa05cf
63
.gitattributes
vendored
Normal file
63
.gitattributes
vendored
Normal file
@ -0,0 +1,63 @@
|
|||||||
|
###############################################################################
|
||||||
|
# Set default behavior to automatically normalize line endings.
|
||||||
|
###############################################################################
|
||||||
|
* text=auto
|
||||||
|
|
||||||
|
###############################################################################
|
||||||
|
# Set default behavior for command prompt diff.
|
||||||
|
#
|
||||||
|
# This is need for earlier builds of msysgit that does not have it on by
|
||||||
|
# default for csharp files.
|
||||||
|
# Note: This is only used by command line
|
||||||
|
###############################################################################
|
||||||
|
#*.cs diff=csharp
|
||||||
|
|
||||||
|
###############################################################################
|
||||||
|
# Set the merge driver for project and solution files
|
||||||
|
#
|
||||||
|
# Merging from the command prompt will add diff markers to the files if there
|
||||||
|
# are conflicts (Merging from VS is not affected by the settings below, in VS
|
||||||
|
# the diff markers are never inserted). Diff markers may cause the following
|
||||||
|
# file extensions to fail to load in VS. An alternative would be to treat
|
||||||
|
# these files as binary and thus will always conflict and require user
|
||||||
|
# intervention with every merge. To do so, just uncomment the entries below
|
||||||
|
###############################################################################
|
||||||
|
#*.sln merge=binary
|
||||||
|
#*.csproj merge=binary
|
||||||
|
#*.vbproj merge=binary
|
||||||
|
#*.vcxproj merge=binary
|
||||||
|
#*.vcproj merge=binary
|
||||||
|
#*.dbproj merge=binary
|
||||||
|
#*.fsproj merge=binary
|
||||||
|
#*.lsproj merge=binary
|
||||||
|
#*.wixproj merge=binary
|
||||||
|
#*.modelproj merge=binary
|
||||||
|
#*.sqlproj merge=binary
|
||||||
|
#*.wwaproj merge=binary
|
||||||
|
|
||||||
|
###############################################################################
|
||||||
|
# behavior for image files
|
||||||
|
#
|
||||||
|
# image files are treated as binary by default.
|
||||||
|
###############################################################################
|
||||||
|
#*.jpg binary
|
||||||
|
#*.png binary
|
||||||
|
#*.gif binary
|
||||||
|
|
||||||
|
###############################################################################
|
||||||
|
# diff behavior for common document formats
|
||||||
|
#
|
||||||
|
# Convert binary document formats to text before diffing them. This feature
|
||||||
|
# is only available from the command line. Turn it on by uncommenting the
|
||||||
|
# entries below.
|
||||||
|
###############################################################################
|
||||||
|
#*.doc diff=astextplain
|
||||||
|
#*.DOC diff=astextplain
|
||||||
|
#*.docx diff=astextplain
|
||||||
|
#*.DOCX diff=astextplain
|
||||||
|
#*.dot diff=astextplain
|
||||||
|
#*.DOT diff=astextplain
|
||||||
|
#*.pdf diff=astextplain
|
||||||
|
#*.PDF diff=astextplain
|
||||||
|
#*.rtf diff=astextplain
|
||||||
|
#*.RTF diff=astextplain
|
||||||
363
.gitignore
vendored
Normal file
363
.gitignore
vendored
Normal file
@ -0,0 +1,363 @@
|
|||||||
|
## Ignore Visual Studio temporary files, build results, and
|
||||||
|
## files generated by popular Visual Studio add-ons.
|
||||||
|
##
|
||||||
|
## Get latest from https://github.com/github/gitignore/blob/master/VisualStudio.gitignore
|
||||||
|
|
||||||
|
# User-specific files
|
||||||
|
*.rsuser
|
||||||
|
*.suo
|
||||||
|
*.user
|
||||||
|
*.userosscache
|
||||||
|
*.sln.docstates
|
||||||
|
|
||||||
|
# User-specific files (MonoDevelop/Xamarin Studio)
|
||||||
|
*.userprefs
|
||||||
|
|
||||||
|
# Mono auto generated files
|
||||||
|
mono_crash.*
|
||||||
|
|
||||||
|
# Build results
|
||||||
|
[Dd]ebug/
|
||||||
|
[Dd]ebugPublic/
|
||||||
|
[Rr]elease/
|
||||||
|
[Rr]eleases/
|
||||||
|
x64/
|
||||||
|
x86/
|
||||||
|
[Ww][Ii][Nn]32/
|
||||||
|
[Aa][Rr][Mm]/
|
||||||
|
[Aa][Rr][Mm]64/
|
||||||
|
bld/
|
||||||
|
[Bb]in/
|
||||||
|
[Oo]bj/
|
||||||
|
[Oo]ut/
|
||||||
|
[Ll]og/
|
||||||
|
[Ll]ogs/
|
||||||
|
|
||||||
|
# Visual Studio 2015/2017 cache/options directory
|
||||||
|
.vs/
|
||||||
|
# Uncomment if you have tasks that create the project's static files in wwwroot
|
||||||
|
#wwwroot/
|
||||||
|
|
||||||
|
# Visual Studio 2017 auto generated files
|
||||||
|
Generated\ Files/
|
||||||
|
|
||||||
|
# MSTest test Results
|
||||||
|
[Tt]est[Rr]esult*/
|
||||||
|
[Bb]uild[Ll]og.*
|
||||||
|
|
||||||
|
# NUnit
|
||||||
|
*.VisualState.xml
|
||||||
|
TestResult.xml
|
||||||
|
nunit-*.xml
|
||||||
|
|
||||||
|
# Build Results of an ATL Project
|
||||||
|
[Dd]ebugPS/
|
||||||
|
[Rr]eleasePS/
|
||||||
|
dlldata.c
|
||||||
|
|
||||||
|
# Benchmark Results
|
||||||
|
BenchmarkDotNet.Artifacts/
|
||||||
|
|
||||||
|
# .NET Core
|
||||||
|
project.lock.json
|
||||||
|
project.fragment.lock.json
|
||||||
|
artifacts/
|
||||||
|
|
||||||
|
# ASP.NET Scaffolding
|
||||||
|
ScaffoldingReadMe.txt
|
||||||
|
|
||||||
|
# StyleCop
|
||||||
|
StyleCopReport.xml
|
||||||
|
|
||||||
|
# Files built by Visual Studio
|
||||||
|
*_i.c
|
||||||
|
*_p.c
|
||||||
|
*_h.h
|
||||||
|
*.ilk
|
||||||
|
*.meta
|
||||||
|
*.obj
|
||||||
|
*.iobj
|
||||||
|
*.pch
|
||||||
|
*.pdb
|
||||||
|
*.ipdb
|
||||||
|
*.pgc
|
||||||
|
*.pgd
|
||||||
|
*.rsp
|
||||||
|
*.sbr
|
||||||
|
*.tlb
|
||||||
|
*.tli
|
||||||
|
*.tlh
|
||||||
|
*.tmp
|
||||||
|
*.tmp_proj
|
||||||
|
*_wpftmp.csproj
|
||||||
|
*.log
|
||||||
|
*.vspscc
|
||||||
|
*.vssscc
|
||||||
|
.builds
|
||||||
|
*.pidb
|
||||||
|
*.svclog
|
||||||
|
*.scc
|
||||||
|
|
||||||
|
# Chutzpah Test files
|
||||||
|
_Chutzpah*
|
||||||
|
|
||||||
|
# Visual C++ cache files
|
||||||
|
ipch/
|
||||||
|
*.aps
|
||||||
|
*.ncb
|
||||||
|
*.opendb
|
||||||
|
*.opensdf
|
||||||
|
*.sdf
|
||||||
|
*.cachefile
|
||||||
|
*.VC.db
|
||||||
|
*.VC.VC.opendb
|
||||||
|
|
||||||
|
# Visual Studio profiler
|
||||||
|
*.psess
|
||||||
|
*.vsp
|
||||||
|
*.vspx
|
||||||
|
*.sap
|
||||||
|
|
||||||
|
# Visual Studio Trace Files
|
||||||
|
*.e2e
|
||||||
|
|
||||||
|
# TFS 2012 Local Workspace
|
||||||
|
$tf/
|
||||||
|
|
||||||
|
# Guidance Automation Toolkit
|
||||||
|
*.gpState
|
||||||
|
|
||||||
|
# ReSharper is a .NET coding add-in
|
||||||
|
_ReSharper*/
|
||||||
|
*.[Rr]e[Ss]harper
|
||||||
|
*.DotSettings.user
|
||||||
|
|
||||||
|
# TeamCity is a build add-in
|
||||||
|
_TeamCity*
|
||||||
|
|
||||||
|
# DotCover is a Code Coverage Tool
|
||||||
|
*.dotCover
|
||||||
|
|
||||||
|
# AxoCover is a Code Coverage Tool
|
||||||
|
.axoCover/*
|
||||||
|
!.axoCover/settings.json
|
||||||
|
|
||||||
|
# Coverlet is a free, cross platform Code Coverage Tool
|
||||||
|
coverage*.json
|
||||||
|
coverage*.xml
|
||||||
|
coverage*.info
|
||||||
|
|
||||||
|
# Visual Studio code coverage results
|
||||||
|
*.coverage
|
||||||
|
*.coveragexml
|
||||||
|
|
||||||
|
# NCrunch
|
||||||
|
_NCrunch_*
|
||||||
|
.*crunch*.local.xml
|
||||||
|
nCrunchTemp_*
|
||||||
|
|
||||||
|
# MightyMoose
|
||||||
|
*.mm.*
|
||||||
|
AutoTest.Net/
|
||||||
|
|
||||||
|
# Web workbench (sass)
|
||||||
|
.sass-cache/
|
||||||
|
|
||||||
|
# Installshield output folder
|
||||||
|
[Ee]xpress/
|
||||||
|
|
||||||
|
# DocProject is a documentation generator add-in
|
||||||
|
DocProject/buildhelp/
|
||||||
|
DocProject/Help/*.HxT
|
||||||
|
DocProject/Help/*.HxC
|
||||||
|
DocProject/Help/*.hhc
|
||||||
|
DocProject/Help/*.hhk
|
||||||
|
DocProject/Help/*.hhp
|
||||||
|
DocProject/Help/Html2
|
||||||
|
DocProject/Help/html
|
||||||
|
|
||||||
|
# Click-Once directory
|
||||||
|
publish/
|
||||||
|
|
||||||
|
# Publish Web Output
|
||||||
|
*.[Pp]ublish.xml
|
||||||
|
*.azurePubxml
|
||||||
|
# Note: Comment the next line if you want to checkin your web deploy settings,
|
||||||
|
# but database connection strings (with potential passwords) will be unencrypted
|
||||||
|
*.pubxml
|
||||||
|
*.publishproj
|
||||||
|
|
||||||
|
# Microsoft Azure Web App publish settings. Comment the next line if you want to
|
||||||
|
# checkin your Azure Web App publish settings, but sensitive information contained
|
||||||
|
# in these scripts will be unencrypted
|
||||||
|
PublishScripts/
|
||||||
|
|
||||||
|
# NuGet Packages
|
||||||
|
*.nupkg
|
||||||
|
# NuGet Symbol Packages
|
||||||
|
*.snupkg
|
||||||
|
# The packages folder can be ignored because of Package Restore
|
||||||
|
**/[Pp]ackages/*
|
||||||
|
# except build/, which is used as an MSBuild target.
|
||||||
|
!**/[Pp]ackages/build/
|
||||||
|
# Uncomment if necessary however generally it will be regenerated when needed
|
||||||
|
#!**/[Pp]ackages/repositories.config
|
||||||
|
# NuGet v3's project.json files produces more ignorable files
|
||||||
|
*.nuget.props
|
||||||
|
*.nuget.targets
|
||||||
|
|
||||||
|
# Microsoft Azure Build Output
|
||||||
|
csx/
|
||||||
|
*.build.csdef
|
||||||
|
|
||||||
|
# Microsoft Azure Emulator
|
||||||
|
ecf/
|
||||||
|
rcf/
|
||||||
|
|
||||||
|
# Windows Store app package directories and files
|
||||||
|
AppPackages/
|
||||||
|
BundleArtifacts/
|
||||||
|
Package.StoreAssociation.xml
|
||||||
|
_pkginfo.txt
|
||||||
|
*.appx
|
||||||
|
*.appxbundle
|
||||||
|
*.appxupload
|
||||||
|
|
||||||
|
# Visual Studio cache files
|
||||||
|
# files ending in .cache can be ignored
|
||||||
|
*.[Cc]ache
|
||||||
|
# but keep track of directories ending in .cache
|
||||||
|
!?*.[Cc]ache/
|
||||||
|
|
||||||
|
# Others
|
||||||
|
ClientBin/
|
||||||
|
~$*
|
||||||
|
*~
|
||||||
|
*.dbmdl
|
||||||
|
*.dbproj.schemaview
|
||||||
|
*.jfm
|
||||||
|
*.pfx
|
||||||
|
*.publishsettings
|
||||||
|
orleans.codegen.cs
|
||||||
|
|
||||||
|
# Including strong name files can present a security risk
|
||||||
|
# (https://github.com/github/gitignore/pull/2483#issue-259490424)
|
||||||
|
#*.snk
|
||||||
|
|
||||||
|
# Since there are multiple workflows, uncomment next line to ignore bower_components
|
||||||
|
# (https://github.com/github/gitignore/pull/1529#issuecomment-104372622)
|
||||||
|
#bower_components/
|
||||||
|
|
||||||
|
# RIA/Silverlight projects
|
||||||
|
Generated_Code/
|
||||||
|
|
||||||
|
# Backup & report files from converting an old project file
|
||||||
|
# to a newer Visual Studio version. Backup files are not needed,
|
||||||
|
# because we have git ;-)
|
||||||
|
_UpgradeReport_Files/
|
||||||
|
Backup*/
|
||||||
|
UpgradeLog*.XML
|
||||||
|
UpgradeLog*.htm
|
||||||
|
ServiceFabricBackup/
|
||||||
|
*.rptproj.bak
|
||||||
|
|
||||||
|
# SQL Server files
|
||||||
|
*.mdf
|
||||||
|
*.ldf
|
||||||
|
*.ndf
|
||||||
|
|
||||||
|
# Business Intelligence projects
|
||||||
|
*.rdl.data
|
||||||
|
*.bim.layout
|
||||||
|
*.bim_*.settings
|
||||||
|
*.rptproj.rsuser
|
||||||
|
*- [Bb]ackup.rdl
|
||||||
|
*- [Bb]ackup ([0-9]).rdl
|
||||||
|
*- [Bb]ackup ([0-9][0-9]).rdl
|
||||||
|
|
||||||
|
# Microsoft Fakes
|
||||||
|
FakesAssemblies/
|
||||||
|
|
||||||
|
# GhostDoc plugin setting file
|
||||||
|
*.GhostDoc.xml
|
||||||
|
|
||||||
|
# Node.js Tools for Visual Studio
|
||||||
|
.ntvs_analysis.dat
|
||||||
|
node_modules/
|
||||||
|
|
||||||
|
# Visual Studio 6 build log
|
||||||
|
*.plg
|
||||||
|
|
||||||
|
# Visual Studio 6 workspace options file
|
||||||
|
*.opt
|
||||||
|
|
||||||
|
# Visual Studio 6 auto-generated workspace file (contains which files were open etc.)
|
||||||
|
*.vbw
|
||||||
|
|
||||||
|
# Visual Studio LightSwitch build output
|
||||||
|
**/*.HTMLClient/GeneratedArtifacts
|
||||||
|
**/*.DesktopClient/GeneratedArtifacts
|
||||||
|
**/*.DesktopClient/ModelManifest.xml
|
||||||
|
**/*.Server/GeneratedArtifacts
|
||||||
|
**/*.Server/ModelManifest.xml
|
||||||
|
_Pvt_Extensions
|
||||||
|
|
||||||
|
# Paket dependency manager
|
||||||
|
.paket/paket.exe
|
||||||
|
paket-files/
|
||||||
|
|
||||||
|
# FAKE - F# Make
|
||||||
|
.fake/
|
||||||
|
|
||||||
|
# CodeRush personal settings
|
||||||
|
.cr/personal
|
||||||
|
|
||||||
|
# Python Tools for Visual Studio (PTVS)
|
||||||
|
__pycache__/
|
||||||
|
*.pyc
|
||||||
|
|
||||||
|
# Cake - Uncomment if you are using it
|
||||||
|
# tools/**
|
||||||
|
# !tools/packages.config
|
||||||
|
|
||||||
|
# Tabs Studio
|
||||||
|
*.tss
|
||||||
|
|
||||||
|
# Telerik's JustMock configuration file
|
||||||
|
*.jmconfig
|
||||||
|
|
||||||
|
# BizTalk build output
|
||||||
|
*.btp.cs
|
||||||
|
*.btm.cs
|
||||||
|
*.odx.cs
|
||||||
|
*.xsd.cs
|
||||||
|
|
||||||
|
# OpenCover UI analysis results
|
||||||
|
OpenCover/
|
||||||
|
|
||||||
|
# Azure Stream Analytics local run output
|
||||||
|
ASALocalRun/
|
||||||
|
|
||||||
|
# MSBuild Binary and Structured Log
|
||||||
|
*.binlog
|
||||||
|
|
||||||
|
# NVidia Nsight GPU debugger configuration file
|
||||||
|
*.nvuser
|
||||||
|
|
||||||
|
# MFractors (Xamarin productivity tool) working folder
|
||||||
|
.mfractor/
|
||||||
|
|
||||||
|
# Local History for Visual Studio
|
||||||
|
.localhistory/
|
||||||
|
|
||||||
|
# BeatPulse healthcheck temp database
|
||||||
|
healthchecksdb
|
||||||
|
|
||||||
|
# Backup folder for Package Reference Convert tool in Visual Studio 2017
|
||||||
|
MigrationBackup/
|
||||||
|
|
||||||
|
# Ionide (cross platform F# VS Code tools) working folder
|
||||||
|
.ionide/
|
||||||
|
|
||||||
|
# Fody - auto-generated XML schema
|
||||||
|
FodyWeavers.xsd
|
||||||
6
App.config
Normal file
6
App.config
Normal file
@ -0,0 +1,6 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<configuration>
|
||||||
|
<startup>
|
||||||
|
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
|
||||||
|
</startup>
|
||||||
|
</configuration>
|
||||||
BIN
Circled-Right-2-24.png
Normal file
BIN
Circled-Right-2-24.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 903 B |
BIN
Fine-Print-24.png
Normal file
BIN
Fine-Print-24.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 720 B |
263
Form1.Designer.vb
generated
Normal file
263
Form1.Designer.vb
generated
Normal file
@ -0,0 +1,263 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class Form1
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Form overrides dispose to clean up the component list.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
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.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
|
||||||
|
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
|
||||||
|
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||||
|
Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||||
|
Me.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||||
|
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
|
||||||
|
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
|
||||||
|
Me.tsbOpenFile = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||||
|
Me.tsbFileName = New System.Windows.Forms.ToolStripTextBox()
|
||||||
|
Me.tsbConvert = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
|
||||||
|
Me.tsbSaveAs = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||||
|
Me.tsbPointsOnly = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.ToolStripComboBox2 = New System.Windows.Forms.ToolStripComboBox()
|
||||||
|
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
|
||||||
|
Me.ToolStripComboBox1 = New System.Windows.Forms.ToolStripComboBox()
|
||||||
|
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
|
||||||
|
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
|
||||||
|
Me.tsbHelp = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
|
||||||
|
Me.StatusStrip1.SuspendLayout()
|
||||||
|
Me.ToolStrip1.SuspendLayout()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'RichTextBox1
|
||||||
|
'
|
||||||
|
Me.RichTextBox1.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.RichTextBox1.BackColor = System.Drawing.SystemColors.ControlLightLight
|
||||||
|
Me.RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||||
|
Me.RichTextBox1.Font = New System.Drawing.Font("Courier New", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
|
||||||
|
Me.RichTextBox1.Location = New System.Drawing.Point(0, 29)
|
||||||
|
Me.RichTextBox1.Margin = New System.Windows.Forms.Padding(0)
|
||||||
|
Me.RichTextBox1.Name = "RichTextBox1"
|
||||||
|
Me.RichTextBox1.ReadOnly = True
|
||||||
|
Me.RichTextBox1.Size = New System.Drawing.Size(1251, 690)
|
||||||
|
Me.RichTextBox1.TabIndex = 1
|
||||||
|
Me.RichTextBox1.Text = ""
|
||||||
|
'
|
||||||
|
'StatusStrip1
|
||||||
|
'
|
||||||
|
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1, Me.ToolStripStatusLabel2})
|
||||||
|
Me.StatusStrip1.Location = New System.Drawing.Point(0, 719)
|
||||||
|
Me.StatusStrip1.Name = "StatusStrip1"
|
||||||
|
Me.StatusStrip1.Size = New System.Drawing.Size(1251, 22)
|
||||||
|
Me.StatusStrip1.TabIndex = 2
|
||||||
|
Me.StatusStrip1.Text = "StatusStrip1"
|
||||||
|
'
|
||||||
|
'ToolStripStatusLabel1
|
||||||
|
'
|
||||||
|
Me.ToolStripStatusLabel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
|
||||||
|
Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||||
|
Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(99, 17)
|
||||||
|
Me.ToolStripStatusLabel1.Text = "Made by Boris Bilc"
|
||||||
|
'
|
||||||
|
'ToolStripStatusLabel2
|
||||||
|
'
|
||||||
|
Me.ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
|
||||||
|
Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(0, 17)
|
||||||
|
'
|
||||||
|
'OpenFileDialog1
|
||||||
|
'
|
||||||
|
Me.OpenFileDialog1.DefaultExt = "*.GSI"
|
||||||
|
Me.OpenFileDialog1.Filter = "GSI Files|*.GSI"
|
||||||
|
'
|
||||||
|
'SaveFileDialog1
|
||||||
|
'
|
||||||
|
Me.SaveFileDialog1.DefaultExt = "*.txt"
|
||||||
|
Me.SaveFileDialog1.Title = "Save As..."
|
||||||
|
'
|
||||||
|
'tsbOpenFile
|
||||||
|
'
|
||||||
|
Me.tsbOpenFile.Image = CType(resources.GetObject("tsbOpenFile.Image"), System.Drawing.Image)
|
||||||
|
Me.tsbOpenFile.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.tsbOpenFile.Name = "tsbOpenFile"
|
||||||
|
Me.tsbOpenFile.Size = New System.Drawing.Size(83, 26)
|
||||||
|
Me.tsbOpenFile.Text = "Odpri GSI"
|
||||||
|
Me.tsbOpenFile.ToolTipText = "Open File..."
|
||||||
|
'
|
||||||
|
'ToolStripSeparator1
|
||||||
|
'
|
||||||
|
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
||||||
|
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 29)
|
||||||
|
'
|
||||||
|
'tsbFileName
|
||||||
|
'
|
||||||
|
Me.tsbFileName.AutoSize = False
|
||||||
|
Me.tsbFileName.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
|
||||||
|
Me.tsbFileName.Name = "tsbFileName"
|
||||||
|
Me.tsbFileName.ReadOnly = True
|
||||||
|
Me.tsbFileName.Size = New System.Drawing.Size(160, 23)
|
||||||
|
Me.tsbFileName.Text = "Odpri GSI datoteko..."
|
||||||
|
'
|
||||||
|
'tsbConvert
|
||||||
|
'
|
||||||
|
Me.tsbConvert.Enabled = False
|
||||||
|
Me.tsbConvert.Image = CType(resources.GetObject("tsbConvert.Image"), System.Drawing.Image)
|
||||||
|
Me.tsbConvert.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.tsbConvert.Name = "tsbConvert"
|
||||||
|
Me.tsbConvert.Size = New System.Drawing.Size(77, 26)
|
||||||
|
Me.tsbConvert.Text = "Poročilo"
|
||||||
|
Me.tsbConvert.ToolTipText = "Convert"
|
||||||
|
'
|
||||||
|
'ToolStripSeparator2
|
||||||
|
'
|
||||||
|
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
|
||||||
|
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 29)
|
||||||
|
'
|
||||||
|
'tsbSaveAs
|
||||||
|
'
|
||||||
|
Me.tsbSaveAs.Enabled = False
|
||||||
|
Me.tsbSaveAs.Image = CType(resources.GetObject("tsbSaveAs.Image"), System.Drawing.Image)
|
||||||
|
Me.tsbSaveAs.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.tsbSaveAs.Name = "tsbSaveAs"
|
||||||
|
Me.tsbSaveAs.Size = New System.Drawing.Size(78, 26)
|
||||||
|
Me.tsbSaveAs.Text = "Shrani ..."
|
||||||
|
'
|
||||||
|
'ToolStrip1
|
||||||
|
'
|
||||||
|
Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
|
||||||
|
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(22, 22)
|
||||||
|
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbOpenFile, Me.ToolStripSeparator2, Me.tsbFileName, Me.ToolStripSeparator1, Me.tsbConvert, Me.tsbPointsOnly, Me.ToolStripComboBox2, Me.ToolStripLabel2, Me.ToolStripComboBox1, Me.ToolStripLabel1, Me.ToolStripSeparator3, Me.tsbHelp, Me.ToolStripSeparator4, Me.tsbSaveAs})
|
||||||
|
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.ToolStrip1.Name = "ToolStrip1"
|
||||||
|
Me.ToolStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
|
||||||
|
Me.ToolStrip1.Size = New System.Drawing.Size(1251, 29)
|
||||||
|
Me.ToolStrip1.TabIndex = 0
|
||||||
|
Me.ToolStrip1.Text = "ToolStrip1"
|
||||||
|
'
|
||||||
|
'tsbPointsOnly
|
||||||
|
'
|
||||||
|
Me.tsbPointsOnly.Enabled = False
|
||||||
|
Me.tsbPointsOnly.Image = CType(resources.GetObject("tsbPointsOnly.Image"), System.Drawing.Image)
|
||||||
|
Me.tsbPointsOnly.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.tsbPointsOnly.Name = "tsbPointsOnly"
|
||||||
|
Me.tsbPointsOnly.Size = New System.Drawing.Size(63, 26)
|
||||||
|
Me.tsbPointsOnly.Text = "Točke"
|
||||||
|
Me.tsbPointsOnly.ToolTipText = "Points Only"
|
||||||
|
'
|
||||||
|
'ToolStripComboBox2
|
||||||
|
'
|
||||||
|
Me.ToolStripComboBox2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
|
||||||
|
Me.ToolStripComboBox2.DropDownWidth = 50
|
||||||
|
Me.ToolStripComboBox2.FlatStyle = System.Windows.Forms.FlatStyle.System
|
||||||
|
Me.ToolStripComboBox2.Items.AddRange(New Object() {"Pika", "Vejica"})
|
||||||
|
Me.ToolStripComboBox2.Name = "ToolStripComboBox2"
|
||||||
|
Me.ToolStripComboBox2.Size = New System.Drawing.Size(75, 29)
|
||||||
|
Me.ToolStripComboBox2.Text = "Pika"
|
||||||
|
'
|
||||||
|
'ToolStripLabel2
|
||||||
|
'
|
||||||
|
Me.ToolStripLabel2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
|
||||||
|
Me.ToolStripLabel2.Name = "ToolStripLabel2"
|
||||||
|
Me.ToolStripLabel2.Size = New System.Drawing.Size(56, 26)
|
||||||
|
Me.ToolStripLabel2.Text = "Decimale"
|
||||||
|
'
|
||||||
|
'ToolStripComboBox1
|
||||||
|
'
|
||||||
|
Me.ToolStripComboBox1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
|
||||||
|
Me.ToolStripComboBox1.FlatStyle = System.Windows.Forms.FlatStyle.System
|
||||||
|
Me.ToolStripComboBox1.Items.AddRange(New Object() {"Da", "Ne"})
|
||||||
|
Me.ToolStripComboBox1.Name = "ToolStripComboBox1"
|
||||||
|
Me.ToolStripComboBox1.Size = New System.Drawing.Size(75, 29)
|
||||||
|
Me.ToolStripComboBox1.Text = "Da"
|
||||||
|
'
|
||||||
|
'ToolStripLabel1
|
||||||
|
'
|
||||||
|
Me.ToolStripLabel1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
|
||||||
|
Me.ToolStripLabel1.Image = CType(resources.GetObject("ToolStripLabel1.Image"), System.Drawing.Image)
|
||||||
|
Me.ToolStripLabel1.Name = "ToolStripLabel1"
|
||||||
|
Me.ToolStripLabel1.Size = New System.Drawing.Size(123, 26)
|
||||||
|
Me.ToolStripLabel1.Text = "Uporabi kodiranje"
|
||||||
|
'
|
||||||
|
'ToolStripSeparator3
|
||||||
|
'
|
||||||
|
Me.ToolStripSeparator3.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
|
||||||
|
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
|
||||||
|
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 29)
|
||||||
|
'
|
||||||
|
'tsbHelp
|
||||||
|
'
|
||||||
|
Me.tsbHelp.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
|
||||||
|
Me.tsbHelp.Image = CType(resources.GetObject("tsbHelp.Image"), System.Drawing.Image)
|
||||||
|
Me.tsbHelp.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.tsbHelp.Name = "tsbHelp"
|
||||||
|
Me.tsbHelp.Size = New System.Drawing.Size(71, 26)
|
||||||
|
Me.tsbHelp.Text = "Pomoč"
|
||||||
|
'
|
||||||
|
'ToolStripSeparator4
|
||||||
|
'
|
||||||
|
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
|
||||||
|
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 29)
|
||||||
|
'
|
||||||
|
'Form1
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(1251, 741)
|
||||||
|
Me.Controls.Add(Me.StatusStrip1)
|
||||||
|
Me.Controls.Add(Me.RichTextBox1)
|
||||||
|
Me.Controls.Add(Me.ToolStrip1)
|
||||||
|
Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
|
||||||
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||||
|
Me.MinimumSize = New System.Drawing.Size(1000, 480)
|
||||||
|
Me.Name = "Form1"
|
||||||
|
Me.Text = "TPS1100 Converter"
|
||||||
|
Me.StatusStrip1.ResumeLayout(False)
|
||||||
|
Me.StatusStrip1.PerformLayout()
|
||||||
|
Me.ToolStrip1.ResumeLayout(False)
|
||||||
|
Me.ToolStrip1.PerformLayout()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
Me.PerformLayout()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Friend WithEvents RichTextBox1 As RichTextBox
|
||||||
|
Friend WithEvents StatusStrip1 As StatusStrip
|
||||||
|
Friend WithEvents OpenFileDialog1 As OpenFileDialog
|
||||||
|
Friend WithEvents SaveFileDialog1 As SaveFileDialog
|
||||||
|
Friend WithEvents tsbOpenFile As ToolStripButton
|
||||||
|
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
|
||||||
|
Friend WithEvents tsbFileName As ToolStripTextBox
|
||||||
|
Friend WithEvents tsbConvert As ToolStripButton
|
||||||
|
Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
|
||||||
|
Friend WithEvents tsbSaveAs As ToolStripButton
|
||||||
|
Friend WithEvents ToolStrip1 As ToolStrip
|
||||||
|
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
|
||||||
|
Friend WithEvents ToolStripLabel1 As ToolStripLabel
|
||||||
|
Friend WithEvents ToolStripComboBox1 As ToolStripComboBox
|
||||||
|
Friend WithEvents ToolStripLabel2 As ToolStripLabel
|
||||||
|
Friend WithEvents ToolStripComboBox2 As ToolStripComboBox
|
||||||
|
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||||
|
Friend WithEvents ToolStripStatusLabel2 As ToolStripStatusLabel
|
||||||
|
Friend WithEvents tsbPointsOnly As ToolStripButton
|
||||||
|
Friend WithEvents tsbHelp As ToolStripButton
|
||||||
|
Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
|
||||||
|
End Class
|
||||||
3306
Form1.resx
Normal file
3306
Form1.resx
Normal file
File diff suppressed because it is too large
Load Diff
382
Form1.vb
Normal file
382
Form1.vb
Normal file
@ -0,0 +1,382 @@
|
|||||||
|
Imports System.IO
|
||||||
|
|
||||||
|
Public Class Form1
|
||||||
|
Private Sub tsbOpenFile_Click(sender As Object, e As EventArgs) Handles tsbOpenFile.Click
|
||||||
|
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
|
||||||
|
tsbFileName.Text = OpenFileDialog1.SafeFileName
|
||||||
|
RichTextBox1.Clear()
|
||||||
|
tsbSaveAs.Text = "Shrani ..."
|
||||||
|
tsbSaveAs.Enabled = False
|
||||||
|
tsbConvert.Enabled = True
|
||||||
|
tsbPointsOnly.Enabled = True
|
||||||
|
Else
|
||||||
|
tsbFileName.Text = "Odpri GSI datoteko..."
|
||||||
|
RichTextBox1.Clear()
|
||||||
|
tsbSaveAs.Text = "Shrani ..."
|
||||||
|
tsbSaveAs.Enabled = False
|
||||||
|
tsbConvert.Enabled = False
|
||||||
|
tsbPointsOnly.Enabled = False
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub tsbConvert_Click(sender As Object, e As EventArgs) Handles tsbConvert.Click
|
||||||
|
RichTextBox1.Clear()
|
||||||
|
RichTextBox1.AppendText("TPS 1100 GSI Conversion" + vbCrLf + "++++++++++++++++++++++++++++++++" + vbCrLf)
|
||||||
|
|
||||||
|
' prepare StreamReader
|
||||||
|
Dim streamReader As StreamReader = New StreamReader(OpenFileDialog1.FileName)
|
||||||
|
Dim i As Integer = 0
|
||||||
|
|
||||||
|
' loop untill end of stream
|
||||||
|
Do Until streamReader.EndOfStream
|
||||||
|
' Read and Split each line to separate it into fields
|
||||||
|
Dim line() As String = streamReader.ReadLine().Split(" ")
|
||||||
|
' Remove * sign from index line
|
||||||
|
line(0) = Replace(line(0), "*", "")
|
||||||
|
|
||||||
|
' Check if it's a new station setup
|
||||||
|
If Microsoft.VisualBasic.Left(line(1), 2) = "25" Then
|
||||||
|
RichTextBox1.AppendText(vbCrLf + "Station:" + vbCrLf + "*************" + vbCrLf)
|
||||||
|
'RichTextBox1.AppendText("PtName:" + vbTab + "Hz.Corr.:" + vbTab + "StnE:" + vbTab + "StnN:" + vbTab + "StnH:" + vbTab + "Refl.h.: " + vbTab + "Inst.h.: " + vbCrLf)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Microsoft.VisualBasic.Left(line(1), 2) = "84" Then
|
||||||
|
RichTextBox1.AppendText(vbCrLf + "Station:" + vbCrLf + "*************" + vbCrLf)
|
||||||
|
'RichTextBox1.AppendText("PtName:" + vbTab + "StnE:" + vbTab + "StnN:" + vbTab + "StnH:" + vbTab + "Refl.h.: " + vbTab + "Inst.h.: " + vbCrLf)
|
||||||
|
End If
|
||||||
|
' Seaparate word index and data
|
||||||
|
For Each readLine As String In line
|
||||||
|
If readLine = "" Then
|
||||||
|
' do nothing
|
||||||
|
Else
|
||||||
|
' wordindex is always 6 characters long and is read fron left to right
|
||||||
|
Dim wordIndex As String
|
||||||
|
wordIndex = Microsoft.VisualBasic.Left(readLine, 2)
|
||||||
|
|
||||||
|
' data is always 17 characters long and is read from right to left and has a +/- sign in first place
|
||||||
|
Dim data As String
|
||||||
|
Dim numData As Double
|
||||||
|
data = Microsoft.VisualBasic.Right(readLine, 17)
|
||||||
|
|
||||||
|
If wordIndex = "11" Then
|
||||||
|
data = Microsoft.VisualBasic.Right(data, 16).TrimStart("0"c)
|
||||||
|
ElseIf wordIndex = "19" Then ' Date/Time
|
||||||
|
data = "DateTime= " + Microsoft.VisualBasic.Right(data, 8)
|
||||||
|
ElseIf wordIndex = "21" Then ' Horizontal angle
|
||||||
|
numData = data / 100000
|
||||||
|
data = Format(numData, "0.0000")
|
||||||
|
ElseIf wordIndex = "22" Then ' Vertical angle
|
||||||
|
numData = data / 100000
|
||||||
|
data = Format(numData, "0.0000")
|
||||||
|
ElseIf wordIndex = "25" Then ' Hz. Orientation correction
|
||||||
|
numData = data / 100000
|
||||||
|
data = "HzCor= " + Format(numData, "0.0000")
|
||||||
|
ElseIf wordIndex = "31" Then ' Slope distance
|
||||||
|
numData = data / 1000
|
||||||
|
data = Format(numData, "0.000")
|
||||||
|
ElseIf wordIndex = "32" Then ' Horizontal distance
|
||||||
|
numData = data / 1000
|
||||||
|
data = Format(numData, "0.000")
|
||||||
|
ElseIf wordIndex = "33" Then ' Height difference
|
||||||
|
numData = data / 1000
|
||||||
|
data = Format(numData, "0.000")
|
||||||
|
ElseIf wordIndex = "34" Then ' Stationing
|
||||||
|
numData = data / 1000
|
||||||
|
data = "Station= " + Format(numData, "0.000")
|
||||||
|
ElseIf wordIndex = "35" Then ' Info za offset???
|
||||||
|
numData = data / 1000
|
||||||
|
data = "Offset= " + Format(numData, "0.000")
|
||||||
|
ElseIf wordIndex = "41" Then ' Code
|
||||||
|
'numData = data
|
||||||
|
'data = "Code= " + numData.ToString
|
||||||
|
If ToolStripComboBox1.Text = "Da" Then
|
||||||
|
If data = "+0000000000000010" Then
|
||||||
|
data = vbCrLf + "Setup: Quick Set" + vbCrLf + "============================="
|
||||||
|
End If
|
||||||
|
If data = "+0000000000000020" Then
|
||||||
|
data = vbCrLf + "Setup: Set Hz" + vbCrLf + "=============================" + vbCrLf + "PtID HZ V SD HD RefHt PrCon HtDif E N H PtCode"
|
||||||
|
End If
|
||||||
|
If data = "+0000000000000030" Then
|
||||||
|
data = vbCrLf + "Setup: Resection" + vbCrLf + "=============================" + vbCrLf + "PtID HZ V SD HD RefHt PrCon HtDif E N H PtCode"
|
||||||
|
End If
|
||||||
|
If data = "+0000000000000040" Then
|
||||||
|
data = vbCrLf + "Setup: Free Station" + vbCrLf + "=============================" + vbCrLf + "PtID HZ V SD HD RefHt PrCon HtDif E N H PtCode"
|
||||||
|
End If
|
||||||
|
If data = "+0000000000000050" Then
|
||||||
|
data = vbCrLf + "Setup: Orientation & Ht. transfer" + vbCrLf + "=============================" + vbCrLf + "PtID HZ V SD HD RefHt PrCon HtDif E N H PtCode"
|
||||||
|
End If
|
||||||
|
If data = "+0000000000000090" Then
|
||||||
|
data = vbCrLf + "Measured:" + vbCrLf + "-------------------" + vbCrLf + "PtID HZ V SD HD RefHt PrCon HtDif E N H PtCode"
|
||||||
|
End If
|
||||||
|
If data = "+0000000000000099" Then
|
||||||
|
data = "Imported:" + vbCrLf + "-------------------"
|
||||||
|
End If
|
||||||
|
If data = "+00000000STA_OFFS" Then
|
||||||
|
data = "Offsets: " + vbCrLf
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
ElseIf wordIndex = "42" Then ' Code: Info 1
|
||||||
|
data = "Info1= " + Microsoft.VisualBasic.Right(data, 16).TrimStart("0"c)
|
||||||
|
ElseIf wordIndex = "43" Then ' Code: Info 2
|
||||||
|
data = "Info2= " + Microsoft.VisualBasic.Right(data, 16).TrimStart("0"c)
|
||||||
|
ElseIf wordIndex = "44" Then ' Code: Info 3
|
||||||
|
data = "Info3= " + Microsoft.VisualBasic.Right(data, 16).TrimStart("0"c)
|
||||||
|
ElseIf wordIndex = "45" Then ' Code: Info 4
|
||||||
|
data = "Info4= " + Microsoft.VisualBasic.Right(data, 16).TrimStart("0"c)
|
||||||
|
ElseIf wordIndex = "47" Then ' Code: Info 6
|
||||||
|
data = "Info6= " + Microsoft.VisualBasic.Right(data, 16).TrimStart("0"c)
|
||||||
|
ElseIf wordIndex = "58" Then ' Prism constant
|
||||||
|
numData = data / 10000
|
||||||
|
data = numData.ToString
|
||||||
|
ElseIf wordIndex = "71" Then ' Point Code
|
||||||
|
numData = data
|
||||||
|
data = numData.ToString
|
||||||
|
ElseIf wordIndex = "81" Then ' Target Easting
|
||||||
|
numData = data / 1000
|
||||||
|
data = Format(numData, "0.000")
|
||||||
|
ElseIf wordIndex = "82" Then ' Target Northing
|
||||||
|
numData = data / 1000
|
||||||
|
data = Format(numData, "0.000")
|
||||||
|
ElseIf wordIndex = "83" Then ' Target Height
|
||||||
|
numData = data / 1000
|
||||||
|
data = Format(numData, "0.000")
|
||||||
|
ElseIf wordIndex = "84" Then ' Station Easting
|
||||||
|
numData = data / 1000
|
||||||
|
data = "StE= " + Format(numData, "0.000")
|
||||||
|
ElseIf wordIndex = "85" Then ' Station Northing
|
||||||
|
numData = data / 1000
|
||||||
|
data = "StN= " + Format(numData, "0.000")
|
||||||
|
ElseIf wordIndex = "86" Then ' Station Height
|
||||||
|
numData = data / 1000
|
||||||
|
data = "StH= " + Format(numData, "0.000")
|
||||||
|
ElseIf wordIndex = "87" Then ' Reflector height
|
||||||
|
numData = data / 1000
|
||||||
|
data = Format(numData, "0.000")
|
||||||
|
ElseIf wordIndex = "88" Then ' Instriment height
|
||||||
|
numData = data / 1000
|
||||||
|
data = "InstHt= " + Format(numData, "0.000")
|
||||||
|
ElseIf wordIndex = "18" Then ' DATE YY.ss
|
||||||
|
numData = data / 1000000
|
||||||
|
data = "Year.Sec= " + Format(numData, "0.00")
|
||||||
|
Else
|
||||||
|
numData = 0
|
||||||
|
End If
|
||||||
|
If ToolStripComboBox2.Text = "Pika" Then
|
||||||
|
If wordIndex IsNot "11" Then
|
||||||
|
data = data.ToString.Replace(",", ".")
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
RichTextBox1.AppendText(data + " ")
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
RichTextBox1.AppendText(vbCrLf)
|
||||||
|
Loop
|
||||||
|
ToolStripStatusLabel1.Text = "Konverzija končana. Shrani datoteko!"
|
||||||
|
SaveFileDialog1.Filter = "Zapisnik meritve|*.mer|Text file|*.txt|All files|*.*"
|
||||||
|
streamReader.Close()
|
||||||
|
tsbSaveAs.Enabled = True
|
||||||
|
tsbSaveAs.Text = "Shrani Zapisnik"
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub tsbSaveAs_Click(sender As Object, e As EventArgs) Handles tsbSaveAs.Click
|
||||||
|
SaveFileDialog1.FileName = Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName)
|
||||||
|
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
|
||||||
|
RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
|
||||||
|
ToolStripStatusLabel1.Text = "Shranjeno: " + SaveFileDialog1.FileName.ToString
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub tsbPointsOnly_Click(sender As Object, e As EventArgs) Handles tsbPointsOnly.Click
|
||||||
|
RichTextBox1.Clear()
|
||||||
|
Dim measuredPoints As Integer = 1
|
||||||
|
Dim newStation As Integer = 0
|
||||||
|
Dim streamReader As StreamReader = New StreamReader(OpenFileDialog1.FileName)
|
||||||
|
Do Until streamReader.EndOfStream
|
||||||
|
' Read and Split each line to separate it into fields
|
||||||
|
Dim line() As String = streamReader.ReadLine().Split(" ")
|
||||||
|
' Remove * sign from index line
|
||||||
|
line(0) = Replace(line(0), "*", "")
|
||||||
|
|
||||||
|
If Microsoft.VisualBasic.Left(line(1), 2) = "25" Then
|
||||||
|
measuredPoints = 1
|
||||||
|
End If
|
||||||
|
' Seaparate word index and data
|
||||||
|
For Each readLine As String In line
|
||||||
|
|
||||||
|
If readLine = "" Then
|
||||||
|
' do nothing
|
||||||
|
Else
|
||||||
|
' wordindex is always 6 characters long and is read fron left to right
|
||||||
|
Dim wordIndex As String
|
||||||
|
wordIndex = Microsoft.VisualBasic.Left(readLine, 2)
|
||||||
|
' data is always 17 characters long and is read from right to left and has a +/- sign in first place
|
||||||
|
Dim data As String
|
||||||
|
Dim numData As Double
|
||||||
|
|
||||||
|
data = Microsoft.VisualBasic.Right(readLine, 17)
|
||||||
|
If wordIndex = "41" Then
|
||||||
|
If data = "+00000000STA_OFFS" Then
|
||||||
|
data = "90"
|
||||||
|
End If
|
||||||
|
numData = data
|
||||||
|
If numData >= 90 Then
|
||||||
|
measuredPoints = 1
|
||||||
|
ElseIf numData >= 10 < 90 Then
|
||||||
|
measuredPoints = 0
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
If wordIndex = "11" And measuredPoints = 1 Then
|
||||||
|
data = Microsoft.VisualBasic.Right(data, 16).TrimStart("0"c)
|
||||||
|
RichTextBox1.AppendText(data + " ")
|
||||||
|
ElseIf wordIndex = "81" And measuredPoints = 1 Then ' Target Easting
|
||||||
|
numData = data / 1000
|
||||||
|
data = Format(numData, "0.000")
|
||||||
|
If ToolStripComboBox2.Text = "Pika" Then
|
||||||
|
data = data.ToString.Replace(",", ".")
|
||||||
|
End If
|
||||||
|
RichTextBox1.AppendText(data + " ")
|
||||||
|
ElseIf wordIndex = "82" And measuredPoints = 1 Then ' Target Northing
|
||||||
|
numData = data / 1000
|
||||||
|
data = Format(numData, "0.000")
|
||||||
|
If ToolStripComboBox2.Text = "Pika" Then
|
||||||
|
data = data.ToString.Replace(",", ".")
|
||||||
|
End If
|
||||||
|
RichTextBox1.AppendText(data + " ")
|
||||||
|
ElseIf wordIndex = "83" And measuredPoints = 1 Then ' Target Height
|
||||||
|
numData = data / 1000
|
||||||
|
data = Format(numData, "0.000")
|
||||||
|
If ToolStripComboBox2.Text = "Pika" Then
|
||||||
|
data = data.ToString.Replace(",", ".")
|
||||||
|
End If
|
||||||
|
RichTextBox1.AppendText(data + vbCrLf)
|
||||||
|
ElseIf wordIndex = "84" And measuredPoints = 1 Then ' Station Easting
|
||||||
|
numData = data / 1000
|
||||||
|
data = Format(numData, "0.000")
|
||||||
|
If ToolStripComboBox2.Text = "Pika" Then
|
||||||
|
data = data.ToString.Replace(",", ".")
|
||||||
|
End If
|
||||||
|
RichTextBox1.AppendText(data + " ")
|
||||||
|
ElseIf wordIndex = "85" And measuredPoints = 1 Then ' Station Northing
|
||||||
|
numData = data / 1000
|
||||||
|
data = Format(numData, "0.000")
|
||||||
|
If ToolStripComboBox2.Text = "Pika" Then
|
||||||
|
data = data.ToString.Replace(",", ".")
|
||||||
|
End If
|
||||||
|
RichTextBox1.AppendText(data + " ")
|
||||||
|
ElseIf wordIndex = "86" And measuredPoints = 1 Then ' Station Height
|
||||||
|
numData = data / 1000
|
||||||
|
data = Format(numData, "0.000")
|
||||||
|
If ToolStripComboBox2.Text = "Pika" Then
|
||||||
|
data = data.ToString.Replace(",", ".")
|
||||||
|
End If
|
||||||
|
RichTextBox1.AppendText(data + vbCrLf)
|
||||||
|
Else
|
||||||
|
numData = 0
|
||||||
|
data = ""
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Loop
|
||||||
|
ToolStripStatusLabel1.Text = "Konverzija končana. Shrani datoteko!"
|
||||||
|
SaveFileDialog1.Filter = "KOO datoteka|*.koo|Text file|*.txt|All files|*.*"
|
||||||
|
streamReader.Close()
|
||||||
|
tsbSaveAs.Enabled = True
|
||||||
|
tsbSaveAs.Text = "Shrani Točke"
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub tsbKooConvert_Click(sender As Object, e As EventArgs)
|
||||||
|
RichTextBox1.Clear()
|
||||||
|
Dim measuredPoints As Integer = 0
|
||||||
|
Dim newStation As Integer = 0
|
||||||
|
Dim streamReader As StreamReader = New StreamReader(OpenFileDialog1.FileName)
|
||||||
|
Do Until streamReader.EndOfStream
|
||||||
|
' Read and Split each line to separate it into fields
|
||||||
|
Dim line() As String = streamReader.ReadLine().Split(" ")
|
||||||
|
' Remove * sign from index line
|
||||||
|
line(0) = Replace(line(0), "*", "")
|
||||||
|
|
||||||
|
If Microsoft.VisualBasic.Left(line(1), 2) = "25" Then
|
||||||
|
newStation = 1
|
||||||
|
End If
|
||||||
|
' Seaparate word index and data
|
||||||
|
For Each readLine As String In line
|
||||||
|
|
||||||
|
If readLine = "" Then
|
||||||
|
' do nothing
|
||||||
|
Else
|
||||||
|
' wordindex is always 6 characters long and is read fron left to right
|
||||||
|
Dim wordIndex As String
|
||||||
|
wordIndex = Microsoft.VisualBasic.Left(readLine, 2)
|
||||||
|
' data is always 17 characters long and is read from right to left and has a +/- sign in first place
|
||||||
|
Dim data As String
|
||||||
|
Dim numData As Double
|
||||||
|
|
||||||
|
data = Microsoft.VisualBasic.Right(readLine, 17)
|
||||||
|
|
||||||
|
If wordIndex = "11" Then
|
||||||
|
data = Microsoft.VisualBasic.Right(data, 16).TrimStart("0"c)
|
||||||
|
RichTextBox1.AppendText(data + " ")
|
||||||
|
ElseIf wordIndex = "81" Then ' Target Easting
|
||||||
|
numData = data / 1000
|
||||||
|
data = Format(numData, "0.000")
|
||||||
|
If ToolStripComboBox2.Text = "Pika" Then
|
||||||
|
data = data.ToString.Replace(",", ".")
|
||||||
|
End If
|
||||||
|
RichTextBox1.AppendText(data + " ")
|
||||||
|
ElseIf wordIndex = "82" Then ' Target Northing
|
||||||
|
numData = data / 1000
|
||||||
|
data = Format(numData, "0.000")
|
||||||
|
If ToolStripComboBox2.Text = "Pika" Then
|
||||||
|
data = data.ToString.Replace(",", ".")
|
||||||
|
End If
|
||||||
|
RichTextBox1.AppendText(data + " ")
|
||||||
|
ElseIf wordIndex = "83" Then ' Target Height
|
||||||
|
numData = data / 1000
|
||||||
|
data = Format(numData, "0.000")
|
||||||
|
If ToolStripComboBox2.Text = "Pika" Then
|
||||||
|
data = data.ToString.Replace(",", ".")
|
||||||
|
End If
|
||||||
|
RichTextBox1.AppendText(data + vbCrLf)
|
||||||
|
ElseIf wordIndex = "84" Then ' Station Easting
|
||||||
|
numData = data / 1000
|
||||||
|
data = Format(numData, "0.000")
|
||||||
|
If ToolStripComboBox2.Text = "Pika" Then
|
||||||
|
data = data.ToString.Replace(",", ".")
|
||||||
|
End If
|
||||||
|
RichTextBox1.AppendText(data + " ")
|
||||||
|
ElseIf wordIndex = "85" Then ' Station Northing
|
||||||
|
numData = data / 1000
|
||||||
|
data = Format(numData, "0.000")
|
||||||
|
If ToolStripComboBox2.Text = "Pika" Then
|
||||||
|
data = data.ToString.Replace(",", ".")
|
||||||
|
End If
|
||||||
|
RichTextBox1.AppendText(data + " ")
|
||||||
|
ElseIf wordIndex = "86" Then ' Station Height
|
||||||
|
numData = data / 1000
|
||||||
|
data = Format(numData, "0.000")
|
||||||
|
If ToolStripComboBox2.Text = "Pika" Then
|
||||||
|
data = data.ToString.Replace(",", ".")
|
||||||
|
End If
|
||||||
|
RichTextBox1.AppendText(data + vbCrLf)
|
||||||
|
Else
|
||||||
|
numData = 0
|
||||||
|
data = ""
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Loop
|
||||||
|
ToolStripStatusLabel1.Text = "Konverzija končana. Shrani datoteko!"
|
||||||
|
SaveFileDialog1.Filter = "KOO datoteka|*.koo|Text file|*.txt|All files|*.*"
|
||||||
|
streamReader.Close()
|
||||||
|
tsbSaveAs.Enabled = True
|
||||||
|
tsbSaveAs.Text = "Shrani Točke"
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub tsbHelp_Click(sender As Object, e As EventArgs) Handles tsbHelp.Click
|
||||||
|
MessageBox.Show("Za konvertiranje GSI datoteke najprej izberi datoteko, ki jo želiš konvertirati z ukazom 'Open File'. Nato izberi metodo konverzije (Poročilo, Merjene točke, Vse točke). Po končani knverziji shrani novo datoteko z ukazom 'Save As...'",
|
||||||
|
"Kratka navodila")
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
BIN
ModernXP-41-Settings-icon.png
Normal file
BIN
ModernXP-41-Settings-icon.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 5.9 KiB |
44
My Project/Application.Designer.vb
generated
Normal file
44
My Project/Application.Designer.vb
generated
Normal file
@ -0,0 +1,44 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
|
||||||
|
' or if you encounter build errors in this file, go to the Project Designer
|
||||||
|
' (go to Project Properties or double-click the My Project node in
|
||||||
|
' Solution Explorer), and make changes on the Application tab.
|
||||||
|
'
|
||||||
|
Partial Friend Class MyApplication
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||||
|
Public Sub New()
|
||||||
|
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
|
||||||
|
Me.IsSingleInstance = false
|
||||||
|
Me.EnableVisualStyles = true
|
||||||
|
Me.SaveMySettingsOnExit = true
|
||||||
|
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||||
|
Protected Overrides Sub OnCreateMainForm()
|
||||||
|
Me.MainForm = Global.TPS1100_Convert.Form1
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||||
|
Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
|
||||||
|
Me.MinimumSplashScreenDisplayTime = 0
|
||||||
|
Return MyBase.OnInitialize(commandLineArgs)
|
||||||
|
End Function
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
12
My Project/Application.myapp
Normal file
12
My Project/Application.myapp
Normal file
@ -0,0 +1,12 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<MyApplicationData xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||||
|
<MySubMain>true</MySubMain>
|
||||||
|
<MainForm>Form1</MainForm>
|
||||||
|
<SingleInstance>false</SingleInstance>
|
||||||
|
<ShutdownMode>0</ShutdownMode>
|
||||||
|
<EnableVisualStyles>true</EnableVisualStyles>
|
||||||
|
<AuthenticationMode>0</AuthenticationMode>
|
||||||
|
<MinimumSplashScreenDisplayTime>0</MinimumSplashScreenDisplayTime>
|
||||||
|
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||||
|
<HighDpiMpde>false</HighDpiMpde>
|
||||||
|
</MyApplicationData>
|
||||||
35
My Project/AssemblyInfo.vb
Normal file
35
My Project/AssemblyInfo.vb
Normal file
@ -0,0 +1,35 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Reflection
|
||||||
|
Imports System.Runtime.InteropServices
|
||||||
|
|
||||||
|
' General Information about an assembly is controlled through the following
|
||||||
|
' set of attributes. Change these attribute values to modify the information
|
||||||
|
' associated with an assembly.
|
||||||
|
|
||||||
|
' Review the values of the assembly attributes
|
||||||
|
|
||||||
|
<Assembly: AssemblyTitle("TPS1100 Convert")>
|
||||||
|
<Assembly: AssemblyDescription("")>
|
||||||
|
<Assembly: AssemblyCompany("")>
|
||||||
|
<Assembly: AssemblyProduct("TPS1100 Convert")>
|
||||||
|
<Assembly: AssemblyCopyright("Copyright © 2016")>
|
||||||
|
<Assembly: AssemblyTrademark("")>
|
||||||
|
|
||||||
|
<Assembly: ComVisible(False)>
|
||||||
|
|
||||||
|
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||||
|
<Assembly: Guid("b0770235-976b-45ac-af93-5c4df5f54835")>
|
||||||
|
|
||||||
|
' Version information for an assembly consists of the following four values:
|
||||||
|
'
|
||||||
|
' Major Version
|
||||||
|
' Minor Version
|
||||||
|
' Build Number
|
||||||
|
' Revision
|
||||||
|
'
|
||||||
|
' You can specify all the values or you can default the Build and Revision Numbers
|
||||||
|
' by using the '*' as shown below:
|
||||||
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
|
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||||
|
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||||
63
My Project/Resources.Designer.vb
generated
Normal file
63
My Project/Resources.Designer.vb
generated
Normal file
@ -0,0 +1,63 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
Imports System
|
||||||
|
|
||||||
|
Namespace My.Resources
|
||||||
|
|
||||||
|
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||||
|
'class via a tool like ResGen or Visual Studio.
|
||||||
|
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||||
|
'with the /str option, or rebuild your VS project.
|
||||||
|
'''<summary>
|
||||||
|
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||||
|
Friend Module Resources
|
||||||
|
|
||||||
|
Private resourceMan As Global.System.Resources.ResourceManager
|
||||||
|
|
||||||
|
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Returns the cached ResourceManager instance used by this class.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||||
|
Get
|
||||||
|
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||||
|
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("TPS1100_Convert.Resources", GetType(Resources).Assembly)
|
||||||
|
resourceMan = temp
|
||||||
|
End If
|
||||||
|
Return resourceMan
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Overrides the current thread's CurrentUICulture property for all
|
||||||
|
''' resource lookups using this strongly typed resource class.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||||
|
Get
|
||||||
|
Return resourceCulture
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
resourceCulture = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
117
My Project/Resources.resx
Normal file
117
My Project/Resources.resx
Normal file
@ -0,0 +1,117 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
</root>
|
||||||
73
My Project/Settings.Designer.vb
generated
Normal file
73
My Project/Settings.Designer.vb
generated
Normal file
@ -0,0 +1,73 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.7.0.0"), _
|
||||||
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Partial Friend NotInheritable Class MySettings
|
||||||
|
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||||
|
|
||||||
|
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||||
|
|
||||||
|
#Region "My.Settings Auto-Save Functionality"
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
Private Shared addedHandler As Boolean
|
||||||
|
|
||||||
|
Private Shared addedHandlerLockObject As New Object
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
|
||||||
|
If My.Application.SaveMySettingsOnExit Then
|
||||||
|
My.Settings.Save()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
#End If
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Public Shared ReadOnly Property [Default]() As MySettings
|
||||||
|
Get
|
||||||
|
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
If Not addedHandler Then
|
||||||
|
SyncLock addedHandlerLockObject
|
||||||
|
If Not addedHandler Then
|
||||||
|
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||||
|
addedHandler = True
|
||||||
|
End If
|
||||||
|
End SyncLock
|
||||||
|
End If
|
||||||
|
#End If
|
||||||
|
Return defaultInstance
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||||
|
Friend Module MySettingsProperty
|
||||||
|
|
||||||
|
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||||
|
Friend ReadOnly Property Settings() As Global.TPS1100_Convert.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.TPS1100_Convert.My.MySettings.Default
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
7
My Project/Settings.settings
Normal file
7
My Project/Settings.settings
Normal file
@ -0,0 +1,7 @@
|
|||||||
|
<?xml version='1.0' encoding='utf-8'?>
|
||||||
|
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||||
|
<Profiles>
|
||||||
|
<Profile Name="(Default)" />
|
||||||
|
</Profiles>
|
||||||
|
<Settings />
|
||||||
|
</SettingsFile>
|
||||||
73
My Project/app.manifest
Normal file
73
My Project/app.manifest
Normal file
@ -0,0 +1,73 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
|
||||||
|
<assemblyIdentity version="1.0.0.0" name="MyApplication.app" />
|
||||||
|
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
|
||||||
|
<security>
|
||||||
|
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||||
|
<!-- UAC Manifest Options
|
||||||
|
If you want to change the Windows User Account Control level replace the
|
||||||
|
requestedExecutionLevel node with one of the following.
|
||||||
|
|
||||||
|
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||||
|
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
|
||||||
|
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
|
||||||
|
|
||||||
|
Specifying requestedExecutionLevel element will disable file and registry virtualization.
|
||||||
|
Remove this element if your application requires this virtualization for backwards
|
||||||
|
compatibility.
|
||||||
|
-->
|
||||||
|
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||||
|
</requestedPrivileges>
|
||||||
|
<applicationRequestMinimum>
|
||||||
|
<defaultAssemblyRequest permissionSetReference="Custom" />
|
||||||
|
<PermissionSet class="System.Security.PermissionSet" version="1" ID="Custom" SameSite="site" Unrestricted="true" />
|
||||||
|
</applicationRequestMinimum>
|
||||||
|
</security>
|
||||||
|
</trustInfo>
|
||||||
|
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
|
||||||
|
<application>
|
||||||
|
<!-- A list of the Windows versions that this application has been tested on
|
||||||
|
and is designed to work with. Uncomment the appropriate elements
|
||||||
|
and Windows will automatically select the most compatible environment. -->
|
||||||
|
<!-- Windows Vista -->
|
||||||
|
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
|
||||||
|
<!-- Windows 7 -->
|
||||||
|
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
|
||||||
|
<!-- Windows 8 -->
|
||||||
|
<!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
|
||||||
|
<!-- Windows 8.1 -->
|
||||||
|
<!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
|
||||||
|
<!-- Windows 10 -->
|
||||||
|
<!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
|
||||||
|
</application>
|
||||||
|
</compatibility>
|
||||||
|
<!-- Indicates that the application is DPI-aware and will not be automatically scaled by Windows at higher
|
||||||
|
DPIs. Windows Presentation Foundation (WPF) applications are automatically DPI-aware and do not need
|
||||||
|
to opt in. Windows Forms applications targeting .NET Framework 4.6 that opt into this setting, should
|
||||||
|
also set the 'EnableWindowsFormsHighDpiAutoResizing' setting to 'true' in their app.config.
|
||||||
|
|
||||||
|
Makes the application long-path aware. See https://docs.microsoft.com/windows/win32/fileio/maximum-file-path-limitation -->
|
||||||
|
<!--
|
||||||
|
<application xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||||
|
<windowsSettings>
|
||||||
|
<dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
|
||||||
|
<longPathAware xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">true</longPathAware>
|
||||||
|
</windowsSettings>
|
||||||
|
</application>
|
||||||
|
-->
|
||||||
|
<!-- Enable themes for Windows common controls and dialogs (Windows XP and later) -->
|
||||||
|
<!--
|
||||||
|
<dependency>
|
||||||
|
<dependentAssembly>
|
||||||
|
<assemblyIdentity
|
||||||
|
type="win32"
|
||||||
|
name="Microsoft.Windows.Common-Controls"
|
||||||
|
version="6.0.0.0"
|
||||||
|
processorArchitecture="*"
|
||||||
|
publicKeyToken="6595b64144ccf1df"
|
||||||
|
language="*"
|
||||||
|
/>
|
||||||
|
</dependentAssembly>
|
||||||
|
</dependency>
|
||||||
|
-->
|
||||||
|
</assembly>
|
||||||
BIN
Save-as-24.png
Normal file
BIN
Save-as-24.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 708 B |
49
TEST.GSI
Normal file
49
TEST.GSI
Normal file
@ -0,0 +1,49 @@
|
|||||||
|
*110001+00000000000GS001 81..00+0000000465423089 82..00+0000000110526243 83..00+0000000000301586
|
||||||
|
*110002+00000000000GS002 81..00+0000000465437688 82..00+0000000110547569 83..00+0000000000302107
|
||||||
|
*110003+00000000000GS003 81..00+0000000465472908 82..00+0000000110527226 83..00+0000000000302945
|
||||||
|
*410010+0000000000000040
|
||||||
|
*110004+00000000000GS001 21.324+0000000013831010 22.324+0000000008932340 31..00+0000000000029523 32..10+0000000000029522 87..10+0000000000002500 58..16+0000000000000175 33..10-0000000000000754 81..00+0000000531242578 82..00+0000000073008189 83..00+0000000000800864 71....+0000000000000000
|
||||||
|
*110005+00000000000GS002 21.324+0000000019023040 22.324+0000000010338410 31..00+0000000000007115 32..10+0000000000006914 87..10+0000000000000100 58..16+0000000000000175 33..10-0000000000000268 81..00+0000000531221776 82..00+0000000073023505 83..00+0000000000801350 71....+0000000000000000
|
||||||
|
*110006+00000000000GS003 21.324+0000000003614410 22.324+0000000009121020 31..00+0000000000034333 32..10+0000000000034324 87..10+0000000000000100 58..16+0000000000000175 33..10+0000000000000601 81..00+0000000531243315 82..00+0000000073057988 83..00+0000000000802219 71....+0000000000000000
|
||||||
|
*110007+0000000000011111 25.344+0000000008801190 84..40+0000000465444529 85..40+0000000110546554 86..40+0000000000302353 87..10+0000000000000100 88..10+0000000000001510
|
||||||
|
*410010+0000000000000090
|
||||||
|
*110008+00000000000GS003 21.324+0000000012415590 22.324+0000000009121020 31..00+0000000000034332 32..10+0000000000034323 87..10+0000000000000100 58..16+0000000000000175 33..10+0000000000000601 81..00+0000000465472895 82..00+0000000110527228 83..00+0000000000302954 71....+0000000000000000
|
||||||
|
*110009+00000000000GS001 21.324+0000000022632260 22.324+0000000008932390 31..00+0000000000029524 32..10+0000000000029523 87..10+0000000000002500 58..16+0000000000000175 33..10-0000000000000755 81..00+0000000465423100 82..00+0000000110526246 83..00+0000000000301598 71....+0000000000000000
|
||||||
|
*110010+00000000000GS002 21.324+0000000027824300 22.324+0000000010339390 31..00+0000000000007112 32..10+0000000000006911 87..10+0000000000000100 58..16+0000000000000175 33..10-0000000000000270 81..00+0000000465437693 82..00+0000000110547564 83..00+0000000000302084 71....+0000000000000000
|
||||||
|
*110011+0000000000000001 21.324+0000000011254090 22.324+0000000008815450 31..00+0000000000032800 32..10+0000000000032785 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000001205 81..00+0000000465474729 82..00+0000000110533795 83..00+0000000000303558 71....+0000000000000000
|
||||||
|
*110012+0000000000000002 21.324+0000000011144520 22.324+0000000008850390 31..00+0000000000020325 32..10+0000000000020321 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000620 81..00+0000000465463403 82..00+0000000110539024 83..00+0000000000302973 71....+0000000000000000
|
||||||
|
*110013+0000000000000003 21.324+0000000010859200 22.324+0000000008922510 31..00+0000000000011668 32..10+0000000000011667 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000336 81..00+0000000465455561 82..00+0000000110542757 83..00+0000000000302689 71....+0000000000000000
|
||||||
|
*110014+0000000000000004 21.324+0000000007358330 22.324+0000000009603030 31..00+0000000000001983 32..10+0000000000001972 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000001 81..00+0000000465446424 82..00+0000000110547098 83..00+0000000000302354 71....+0000000000000000
|
||||||
|
*110015+0000000000000005 21.324+0000000005042460 22.324+0000000010727030 31..00+0000000000004476 32..10+0000000000004270 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000000168 81..00+0000000465447834 82..00+0000000110549258 83..00+0000000000302521 71....+0000000000000000
|
||||||
|
*110016+0000000000000006 21.324+0000000003846420 22.324+0000000010921450 31..00+0000000000004204 32..10+0000000000003966 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000000116 81..00+0000000465447013 82..00+0000000110549645 83..00+0000000000302470 71....+0000000000000000
|
||||||
|
*110017+0000000000000007 21.324+0000000003747460 22.324+0000000010758590 31..00+0000000000004468 32..10+0000000000004249 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000000131 81..00+0000000465447133 82..00+0000000110549911 83..00+0000000000302484 71....+0000000000000000
|
||||||
|
*110018+0000000000000008 21.324+0000000033802160 22.324+0000000010150570 31..00+0000000000006199 32..10+0000000000006067 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000000237 81..00+0000000465442260 82..00+0000000110552180 83..00+0000000000302590 71....+0000000000000000
|
||||||
|
*110019+0000000000000009 21.324+0000000029836160 22.324+0000000010648530 31..00+0000000000005488 32..10+0000000000005254 87..10+0000000000000000 58..16+0000000000000344 33..10-0000000000000078 81..00+0000000465439917 82..00+0000000110549069 83..00+0000000000302276 71....+0000000000000000
|
||||||
|
*110020+0000000000000010 21.324+0000000028230220 22.324+0000000009248440 31..00+0000000000010785 32..10+0000000000010772 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000319 81..00+0000000465434013 82..00+0000000110548886 83..00+0000000000302034 71....+0000000000000000
|
||||||
|
*110021+0000000000000011 21.324+0000000005208020 22.324+0000000009428210 31..00+0000000000004313 32..10+0000000000004300 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000001174 81..00+0000000465447924 82..00+0000000110549193 83..00+0000000000303527 71....+0000000000000000
|
||||||
|
*110022+0000000000000012 21.324+0000000005044450 22.324+0000000008137520 31..00+0000000000004677 32..10+0000000000004627 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000891 81..00+0000000465448112 82..00+0000000110549481 83..00+0000000000303244 71....+0000000000000000
|
||||||
|
*110023+0000000000000013 21.324+0000000004322420 22.324+0000000007933420 31..00+0000000000011597 32..10+0000000000011405 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000002311 81..00+0000000465452362 82..00+0000000110554843 83..00+0000000000304664 71....+0000000000000000
|
||||||
|
*110024+0000000000000014 21.324+0000000004213390 22.324+0000000008007010 31..00+0000000000015065 32..10+0000000000014842 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000002796 81..00+0000000465454504 82..00+0000000110557544 83..00+0000000000305149 71....+0000000000000000
|
||||||
|
*110025+0000000000000015 21.324+0000000003346460 22.324+0000000008111590 31..00+0000000000017167 32..10+0000000000016965 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000002836 81..00+0000000465453962 82..00+0000000110560654 83..00+0000000000305190 71....+0000000000000000
|
||||||
|
*110026+0000000000000016 21.324+0000000001534560 22.324+0000000008200030 31..00+0000000000027304 32..10+0000000000027038 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000004010 81..00+0000000465451792 82..00+0000000110572598 83..00+0000000000306363 71....+0000000000000000
|
||||||
|
*110027+0000000000000017 21.324+0000000001558300 22.324+0000000008036540 31..00+0000000000028384 32..10+0000000000028004 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000004838 81..00+0000000465452236 82..00+0000000110573476 83..00+0000000000307192 71....+0000000000000000
|
||||||
|
*110028+0000000000000018 21.324+0000000001428410 22.324+0000000008121540 31..00+0000000000028412 32..10+0000000000028090 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000004476 81..00+0000000465451552 82..00+0000000110573751 83..00+0000000000306829 71....+0000000000000000
|
||||||
|
*110029+0000000000000019 21.324+0000000003416460 22.324+0000000008238380 31..00+0000000000027992 32..10+0000000000027761 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000003794 81..00+0000000465460165 82..00+0000000110569493 83..00+0000000000306147 71....+0000000000000000
|
||||||
|
*110030+0000000000000020 21.324+0000000004217270 22.324+0000000007814330 31..00+0000000000024595 32..10+0000000000024079 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000006522 81..00+0000000465460732 82..00+0000000110564366 83..00+0000000000308875 71....+0000000000000000
|
||||||
|
*110031+0000000000000021 21.324+0000000005331040 22.324+0000000007125310 31..00+0000000000015239 32..10+0000000000014445 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000006364 81..00+0000000465456144 82..00+0000000110555142 83..00+0000000000308718 71....+0000000000000000
|
||||||
|
*110032+0000000000000022 21.324+0000000008053160 22.324+0000000007227170 31..00+0000000000023186 32..10+0000000000022107 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000008500 81..00+0000000465466357 82..00+0000000110550055 83..00+0000000000310853 71....+0000000000000000
|
||||||
|
*110033+0000000000000023 21.324+0000000001902580 22.324+0000000007724330 31..00+0000000000039212 32..10+0000000000038269 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000010058 81..00+0000000465457019 82..00+0000000110582726 83..00+0000000000312411 71....+0000000000000000
|
||||||
|
*110034+0000000000000024 21.324+0000000003810480 22.324+0000000007832240 31..00+0000000000043712 32..10+0000000000042840 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000010195 81..00+0000000465471010 82..00+0000000110580229 83..00+0000000000312548 71....+0000000000000000
|
||||||
|
*110035+0000000000000031 21.324+0000000034458570 22.324+0000000009054050 31..00+0000000000005359 32..10+0000000000005358 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000001426 81..00+0000000465443141 82..00+0000000110551729 83..00+0000000000303779 71....+0000000000000000
|
||||||
|
*110036+0000000000000032 21.324+0000000029233050 22.324+0000000009558110 31..00+0000000000004488 32..10+0000000000004464 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000257 81..00+0000000465440407 82..00+0000000110548265 83..00+0000000000302097 71....+0000000000000000
|
||||||
|
*110037+0000000000000033 21.324+0000000027506040 22.324+0000000009425520 31..00+0000000000006362 32..10+0000000000006343 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000282 81..00+0000000465438211 82..00+0000000110547118 83..00+0000000000302072 71....+0000000000000000
|
||||||
|
*110038+0000000000000034 21.324+0000000027631400 22.324+0000000009349170 31..00+0000000000010047 32..10+0000000000010024 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000460 81..00+0000000465434570 82..00+0000000110547693 83..00+0000000000301894 71....+0000000000000000
|
||||||
|
*110039+0000000000000035 21.324+0000000027424370 22.324+0000000009425240 31..00+0000000000007978 32..10+0000000000007954 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000405 81..00+0000000465436599 82..00+0000000110547165 83..00+0000000000301948 71....+0000000000000000
|
||||||
|
*110040+0000000000000036 21.324+0000000027337580 22.324+0000000009552300 31..00+0000000000005445 32..10+0000000000005416 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000347 81..00+0000000465439124 82..00+0000000110546897 83..00+0000000000302006 71....+0000000000000000
|
||||||
|
*110041+0000000000000037 21.324+0000000026954060 22.324+0000000009916340 31..00+0000000000002914 32..10+0000000000002876 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000260 81..00+0000000465441653 82..00+0000000110546549 83..00+0000000000302094 71....+0000000000000000
|
||||||
|
*110042+0000000000000038 21.324+0000000013027410 22.324+0000000009545570 31..00+0000000000002638 32..10+0000000000002625 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000055 81..00+0000000465446526 82..00+0000000110544850 83..00+0000000000302298 71....+0000000000000000
|
||||||
|
*110043+0000000000000039 21.324+0000000011808360 22.324+0000000009002460 31..00+0000000000011703 32..10+0000000000011703 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000201 81..00+0000000465454849 82..00+0000000110541033 83..00+0000000000302554 71....+0000000000000000
|
||||||
|
*110044+0000000000000040 21.324+0000000011708390 22.324+0000000008931290 31..00+0000000000017790 32..10+0000000000017789 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000358 81..00+0000000465460359 82..00+0000000110538438 83..00+0000000000302711 71....+0000000000000000
|
||||||
|
*110045+0000000000000041 21.324+0000000011609380 22.324+0000000008913070 31..00+0000000000031001 32..10+0000000000030998 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000633 81..00+0000000465472352 82..00+0000000110532887 83..00+0000000000302986 71....+0000000000000000
|
||||||
|
*110046+0000000000000042 21.324+0000000011526030 22.324+0000000008909420 31..00+0000000000032271 32..10+0000000000032268 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000682 81..00+0000000465473669 82..00+0000000110532696 83..00+0000000000303036 71....+0000000000000000
|
||||||
|
*110047+0000000000000043 21.324+0000000011346490 22.324+0000000008855450 31..00+0000000000032842 32..10+0000000000032836 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000824 81..00+0000000465474578 82..00+0000000110533313 83..00+0000000000303177 71....+0000000000000000
|
||||||
22
TPS1100 Convert.sln
Normal file
22
TPS1100 Convert.sln
Normal file
@ -0,0 +1,22 @@
|
|||||||
|
|
||||||
|
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||||
|
# Visual Studio 14
|
||||||
|
VisualStudioVersion = 14.0.23107.0
|
||||||
|
MinimumVisualStudioVersion = 10.0.40219.1
|
||||||
|
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TPS1100 Convert", "TPS1100 Convert.vbproj", "{CA5B1819-C6DE-425D-9143-98621CC852E3}"
|
||||||
|
EndProject
|
||||||
|
Global
|
||||||
|
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||||
|
Debug|Any CPU = Debug|Any CPU
|
||||||
|
Release|Any CPU = Release|Any CPU
|
||||||
|
EndGlobalSection
|
||||||
|
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||||
|
{CA5B1819-C6DE-425D-9143-98621CC852E3}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||||
|
{CA5B1819-C6DE-425D-9143-98621CC852E3}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||||
|
{CA5B1819-C6DE-425D-9143-98621CC852E3}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||||
|
{CA5B1819-C6DE-425D-9143-98621CC852E3}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||||
|
EndGlobalSection
|
||||||
|
GlobalSection(SolutionProperties) = preSolution
|
||||||
|
HideSolutionNode = FALSE
|
||||||
|
EndGlobalSection
|
||||||
|
EndGlobal
|
||||||
187
TPS1100 Convert.vbproj
Normal file
187
TPS1100 Convert.vbproj
Normal file
@ -0,0 +1,187 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="14.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
|
||||||
|
<PropertyGroup>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<ProjectGuid>{CA5B1819-C6DE-425D-9143-98621CC852E3}</ProjectGuid>
|
||||||
|
<OutputType>WinExe</OutputType>
|
||||||
|
<StartupObject>TPS1100_Convert.My.MyApplication</StartupObject>
|
||||||
|
<RootNamespace>TPS1100_Convert</RootNamespace>
|
||||||
|
<AssemblyName>TPS1100 Convert</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>WindowsForms</MyType>
|
||||||
|
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
|
||||||
|
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
|
||||||
|
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||||
|
<TargetFrameworkProfile />
|
||||||
|
<PublishUrl>E:\_Boris\Projekti Boris\VS Projects\TPS1100 Convert\publish\</PublishUrl>
|
||||||
|
<Install>true</Install>
|
||||||
|
<InstallFrom>Disk</InstallFrom>
|
||||||
|
<UpdateEnabled>false</UpdateEnabled>
|
||||||
|
<UpdateMode>Foreground</UpdateMode>
|
||||||
|
<UpdateInterval>7</UpdateInterval>
|
||||||
|
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
|
||||||
|
<UpdatePeriodically>false</UpdatePeriodically>
|
||||||
|
<UpdateRequired>false</UpdateRequired>
|
||||||
|
<MapFileExtensions>true</MapFileExtensions>
|
||||||
|
<WebPage>publish.htm</WebPage>
|
||||||
|
<AutorunEnabled>true</AutorunEnabled>
|
||||||
|
<ApplicationRevision>4</ApplicationRevision>
|
||||||
|
<ApplicationVersion>1.1.0.%2a</ApplicationVersion>
|
||||||
|
<UseApplicationTrust>false</UseApplicationTrust>
|
||||||
|
<PublishWizardCompleted>true</PublishWizardCompleted>
|
||||||
|
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||||
|
<DebugSymbols>true</DebugSymbols>
|
||||||
|
<DebugType>full</DebugType>
|
||||||
|
<DefineDebug>true</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\Debug\</OutputPath>
|
||||||
|
<DocumentationFile>TPS1100 Convert.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||||
|
<DebugType>pdbonly</DebugType>
|
||||||
|
<DefineDebug>false</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<Optimize>true</Optimize>
|
||||||
|
<OutputPath>bin\Release\</OutputPath>
|
||||||
|
<DocumentationFile>TPS1100 Convert.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionExplicit>On</OptionExplicit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionCompare>Binary</OptionCompare>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionStrict>Off</OptionStrict>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionInfer>On</OptionInfer>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<ApplicationIcon>TPS1100CNVRT.ico</ApplicationIcon>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<ManifestCertificateThumbprint>C2D976976AC91EDFF476D973EFDDE907FFC7A54E</ManifestCertificateThumbprint>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<ManifestKeyFile>TPS1100 Convert_TemporaryKey.pfx</ManifestKeyFile>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<GenerateManifests>false</GenerateManifests>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<SignManifests>false</SignManifests>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<TargetZone>LocalIntranet</TargetZone>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Deployment" />
|
||||||
|
<Reference Include="System.Drawing" />
|
||||||
|
<Reference Include="System.Windows.Forms" />
|
||||||
|
<Reference Include="System.Xml" />
|
||||||
|
<Reference Include="System.Core" />
|
||||||
|
<Reference Include="System.Xml.Linq" />
|
||||||
|
<Reference Include="System.Data.DataSetExtensions" />
|
||||||
|
<Reference Include="System.Net.Http" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Import Include="Microsoft.VisualBasic" />
|
||||||
|
<Import Include="System" />
|
||||||
|
<Import Include="System.Collections" />
|
||||||
|
<Import Include="System.Collections.Generic" />
|
||||||
|
<Import Include="System.Data" />
|
||||||
|
<Import Include="System.Drawing" />
|
||||||
|
<Import Include="System.Diagnostics" />
|
||||||
|
<Import Include="System.Windows.Forms" />
|
||||||
|
<Import Include="System.Linq" />
|
||||||
|
<Import Include="System.Xml.Linq" />
|
||||||
|
<Import Include="System.Threading.Tasks" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="Form1.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Form1.Designer.vb">
|
||||||
|
<DependentUpon>Form1.vb</DependentUpon>
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||||
|
<Compile Include="My Project\Application.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Application.myapp</DependentUpon>
|
||||||
|
<DesignTime>True</DesignTime>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Resources.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DesignTime>True</DesignTime>
|
||||||
|
<DependentUpon>Resources.resx</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Settings.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Settings.settings</DependentUpon>
|
||||||
|
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||||
|
</Compile>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<EmbeddedResource Include="Form1.resx">
|
||||||
|
<DependentUpon>Form1.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
|
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||||
|
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||||
|
<SubType>Designer</SubType>
|
||||||
|
</EmbeddedResource>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="My Project\app.manifest" />
|
||||||
|
<None Include="My Project\Application.myapp">
|
||||||
|
<Generator>MyApplicationCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
<None Include="My Project\Settings.settings">
|
||||||
|
<Generator>SettingsSingleFileGenerator</Generator>
|
||||||
|
<CustomToolNamespace>My</CustomToolNamespace>
|
||||||
|
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
<None Include="App.config" />
|
||||||
|
<None Include="TPS1100 Convert_TemporaryKey.pfx" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Content Include="TPS1100CNVRT.ico" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<BootstrapperPackage Include=".NETFramework,Version=v4.5.2">
|
||||||
|
<Visible>False</Visible>
|
||||||
|
<ProductName>Microsoft .NET Framework 4.5.2 %28x86 and x64%29</ProductName>
|
||||||
|
<Install>true</Install>
|
||||||
|
</BootstrapperPackage>
|
||||||
|
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
|
||||||
|
<Visible>False</Visible>
|
||||||
|
<ProductName>.NET Framework 3.5 SP1</ProductName>
|
||||||
|
<Install>false</Install>
|
||||||
|
</BootstrapperPackage>
|
||||||
|
</ItemGroup>
|
||||||
|
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||||
|
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||||
|
Other similar extension points exist, see Microsoft.Common.targets.
|
||||||
|
<Target Name="BeforeBuild">
|
||||||
|
</Target>
|
||||||
|
<Target Name="AfterBuild">
|
||||||
|
</Target>
|
||||||
|
-->
|
||||||
|
</Project>
|
||||||
BIN
TPS1100CNVRT.ico
Normal file
BIN
TPS1100CNVRT.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 172 KiB |
BIN
TPS1100CNVRT.png
Normal file
BIN
TPS1100CNVRT.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 319 B |
Loading…
x
Reference in New Issue
Block a user