いぬもあるけばぼうもあるく
http://w.atwiki.jp/prime503/
いぬもあるけばぼうもあるくja2016-11-20T14:05:53+09:001479618353tmp15
https://w.atwiki.jp/prime503/pages/80.html
Imports System.Runtime.Serialization
<Serializable()> _
Public Class TestClass
Implements ISerializable
Public STR As String
Sub New()
Me.STR = String.Empty
End Sub
Sub New(str As String)
Me.STR = str
End Sub
Public Sub GetObjectData(info As System.Runtime.Serialization.SerializationInfo, context As System.Runtime.Serialization.StreamingContext) _
Implements System.Runtime.Serialization.ISerializable.GetObjectData
info.AddValue("STR", STR, GetType(String))
End Sub
Public Sub New(info As SerializationInfo, context As StreamingContext)
STR = DirectCast(info.GetValue("STR", GetType(String)), String)
End Sub
End Class
------------------------------------------------------------------------------
Imports Microsoft.VisualStudio.DebuggerVisualizers
Imports System.Windows.Forms
<Assembly: System.Diagnostics.DebuggerVisualizer(GetType(TestVisualizer) _
, GetType(VisualizerObjectSource) _
, Target:=GetType(EntityProject.TestClass) _
, Description:="My First Visualizer")>
Public Class TestVisualizer
Inherits DialogDebuggerVisualizer
Protected Overrides Sub Show(windowService As Microsoft.VisualStudio.DebuggerVisualizers.IDialogVisualizerService _
, objectProvider As Microsoft.VisualStudio.DebuggerVisualizers.IVisualizerObjectProvider)
Dim obj As Object = objectProvider.GetObject()
If TypeOf obj Is EntityProject.TestClass Then
Dim ent As EntityProject.TestClass = DirectCast(obj, EntityProject.TestClass)
MsgBox(ent.STR)
End If
End Sub
Public Shared Sub TestShowVisualizer(ByVal objectToVisualize As Object)
Dim visualizerHost As New VisualizerDevelopmentHost(objectToVisualize, GetType(TestVisualizer))
visualizerHost.ShowVisualizer()
End Sub
End Class
------------------------------------------------------------------------------
Imports MyVisualizer
Module Module1
Sub Main()
Dim test As New EntityProject.TestClass("aaa")
TestVisualizer.TestShowVisualizer(test)
End Sub
End Module
2016-11-20T14:05:53+09:001479618353tmp14
https://w.atwiki.jp/prime503/pages/79.html
HermitDown.exe -from %~n1 -to C:\Users\TestUser\Desktop\先
Imports System.IO
Module Module1
Sub Main()
Dim parser As New CommandParser
Dim cmd As Dictionary(Of String, List(Of String)) = parser.Parse(Environment.GetCommandLineArgs)
If Not cmd.ContainsKey("to") _
OrElse cmd("to").Count = 0 Then
MsgBox("to：コピー先のディレクトリを指定してください")
Return
End If
If Not cmd.ContainsKey("from") _
OrElse cmd("from").Count = 0 Then
MsgBox("from：コピー元のフォルダを指定してください")
Return
End If
Dim fromFolder As String = cmd("from")(0)
Dim toFolder As String = cmd("to")(0)
CopyDirectory(fromFolder, toFolder)
End Sub
''' <summary>
''' ディレクトリをコピーする
''' </summary>
''' <param name="sourceDirName">コピーするディレクトリ</param>
''' <param name="destDirName">コピー先のディレクトリ</param>
Public Sub CopyDirectory( _
ByVal sourceDirName As String, _
ByVal destDirName As String)
'コピー先のディレクトリがないときは作る
If Not System.IO.Directory.Exists(destDirName) Then
System.IO.Directory.CreateDirectory(destDirName)
'属性もコピー
System.IO.File.SetAttributes(destDirName, _
System.IO.File.GetAttributes(sourceDirName))
End If
'コピー先のディレクトリ名の末尾に"\"をつける
If destDirName.Chars((destDirName.Length - 1)) <> _
System.IO.Path.DirectorySeparatorChar Then
destDirName = destDirName + System.IO.Path.DirectorySeparatorChar
End If
'コピー元のディレクトリにあるファイルをコピー
Dim fs As String() = System.IO.Directory.GetFiles(sourceDirName)
Dim f As String
For Each f In fs
System.IO.File.Copy(f, _
destDirName + System.IO.Path.GetFileName(f), True)
Next
'コピー元のディレクトリにあるディレクトリをコピー
Dim dirs As String() = System.IO.Directory.GetDirectories(sourceDirName)
Dim dir As String
For Each dir In dirs
CopyDirectory(dir, destDirName + System.IO.Path.GetFileName(dir))
Next
End Sub
End Module
''' <summary>
''' 引数内のコマンド解析
''' </summary>
''' <remarks></remarks>
Public Class CommandParser
''' <summary>
''' コマンドを解析する
'''
''' 例. "-a bbb ccc -D eee"
''' このような引数を受け取ったとき下記のDictionaryに変換する
''' a,[bbb,ccc]
''' d,[eee]
''' </summary>
''' <param name="args">引数</param>
''' <returns>
''' コマンド名と値が対応したDictionaryを返す
''' ※コマンド名は小文字に変換される
''' ※解析できなかった場合も空のDictionaryを返す
''' </returns>
''' <remarks></remarks>
Public Function Parse(ByVal args As String()) As Dictionary(Of String, List(Of String))
Dim result As New Dictionary(Of String, List(Of String))
If args Is Nothing Then
Return result
End If
Dim commandName As String = String.Empty 'コマンド名
Dim commandArgs As List(Of String) = Nothing 'そのコマンドの引数
'1つずつ解析
For Each currentStr As String In args
If currentStr.StartsWith("-") Then
'コマンド名なら
'前に別のコマンドがあった場合は、登録
If Not String.IsNullOrWhiteSpace(commandName) Then
result.Add(commandName, commandArgs)
End If
commandName = currentStr.Substring(1).Trim.ToLower
commandArgs = New List(Of String)
Else
'そのコマンドの引数なら
If Not String.IsNullOrWhiteSpace(commandName) Then
commandArgs.Add(currentStr.Trim)
End If
End If
Next
'前に別のコマンドがあった場合は、登録
If Not String.IsNullOrWhiteSpace(commandName) Then
result.Add(commandName, commandArgs)
End If
Return result
End Function
End Class
2016-06-21T00:36:15+09:001466436975tmp13
https://w.atwiki.jp/prime503/pages/78.html
Module Module1
Sub Main()
'CSV読み込み
Dim dicBunrui As New Dictionary(Of String, List(Of SagyouFormat))
Dim dicDay As New Dictionary(Of String, List(Of SagyouFormat))
'SagyouFormat作成
'作成したSagyouFormatを辞書に分類
'作業時間報告用の文字列を作成
End Sub
'Private Function GetSagyouHoukokuString(
End Module
Class SagyouList
Enum ListType
None = -1
Day = 0
Bunrui = 1
End Enum
Private List As List(Of SagyouFormat)
Public SagyouListType As ListType = ListType.None
Sub New(list As List(Of SagyouFormat), type As SagyouList.ListType)
Me.List = list
Me.SagyouListType = type
End Sub
End Class
Class SagyouFormat
Public DayYmd As String = String.Empty
Public SagyouBunrui As String = String.Empty
Public SagyouName As String = String.Empty
Public IdNo As String = String.Empty
Public SagyouTime As TimeSpan = TimeSpan.Zero
Public ErrorFormat As Boolean = False
Public Sub New(args() As String)
If args.Count <> 9 Then
ErrorFormat = True
Return
End If
DayYmd = args(0).Replace("/", String.Empty)
SagyouBunrui = args(1).Trim
SagyouName = args(2).Trim
If String.IsNullOrEmpty(args(3).Trim) Then
IdNo = "000000-00"
Else
IdNo = args(3).Trim
End If
For i As Integer = 4 To 8
If Not Me.AddTime(args(i).Trim) Then
ErrorFormat = True
Return
End If
Next
End Sub
Private Function AddTime(timeFormat As String) As Boolean
timeFormat = timeFormat.Trim
If String.IsNullOrEmpty(timeFormat) Then
Return False
End If
'変換
Dim currentSpan As TimeSpan = Me.GetSpan(timeFormat)
If currentSpan = TimeSpan.Zero Then
Return False
End If
'加える
Me.SagyouTime = Me.SagyouTime + currentSpan
Return True
End Function
Private Function GetSpan(timeFormat As String) As TimeSpan
timeFormat = timeFormat.Trim
If String.IsNullOrEmpty(timeFormat) Then
Return TimeSpan.Zero
End If
If timeFormat.Contains(":") AndAlso timeFormat.Contains("-") Then
'「:」と「-」が含まれる形式（例.10:10-12:00）
Dim tmpString As String() = timeFormat.Split("-"c)
If tmpString.Count <> 2 Then
Return TimeSpan.Zero
End If
'tmpString(0)のh:mmの文字列をDateTimeに変換
'tmpString(1)のh:mmの文字列をDateTimeに変換
'Spanを求める
'Dim startTime As DateTime =
'Dim endTime As DateTime =
'Return endTime - startTime
ElseIf timeFormat.Contains("h") Then
'hが含まれる形式（例.1hとか、1h20m）
timeFormat = timeFormat.Replace("m", String.Empty)
Dim tmpString As String() = timeFormat.Split("h"c)
Dim hours As Integer = 0
Dim minuates As Integer = 0
hours = Integer.Parse(tmpString(0))
If tmpString.Count = 2 Then
minuates = Integer.Parse(tmpString(1))
End If
Return New TimeSpan(hours, minuates, 0)
ElseIf timeFormat.Contains("m") Then
'mが含まれる形式（例.20m）
Dim minuates As Integer = 0
timeFormat = timeFormat.Replace("m", String.Empty)
'todo 分が60を超えても問題ないか確認
minuates = Integer.Parse(timeFormat)
Return New TimeSpan(0, minuates, 0)
End If
Return TimeSpan.Zero
End Function
End Class 2016-05-19T05:14:36+09:001463602476tmp12
https://w.atwiki.jp/prime503/pages/77.html
Public Class Form1
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs)
End Sub
Private Sub btnFile1_Click(sender As System.Object, e As System.EventArgs) Handles btnFile1.Click
Me.SelectFile(btnFile1, txtFile1)
End Sub
Private Sub btnFile2_Click(sender As System.Object, e As System.EventArgs) Handles btnFile2.Click
Me.SelectFile(btnFile2, txtFile2)
End Sub
Private Sub SelectFile(button As Button, txt As TextBox)
'OpenFileDialogクラスのインスタンスを作成
Dim ofd As New OpenFileDialog()
'ダイアログを表示する
If ofd.ShowDialog() = DialogResult.OK Then
'OKボタンがクリックされたとき
'選択されたファイル名をすべて表示する
Dim file As String = ofd.FileNames(0)
txt.Text = file
End If
End Sub
Private Sub txtFile_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) _
Handles txtFile1.DragEnter, txtFile2.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
Private Sub txtFile_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) _
Handles txtFile1.DragDrop, txtFile2.DragDrop
Dim txt As TextBox = DirectCast(sender, TextBox)
Dim fileNameList As String() = CType(e.Data.GetData(DataFormats.FileDrop, False), String())
Dim fileName As String = fileNameList(0)
txt.Text = fileName
End Sub
Private Sub btnExecute_Click(sender As System.Object, e As System.EventArgs) Handles btnExecute.Click
If String.IsNullOrEmpty(txtFile1.Text) _
OrElse String.IsNullOrEmpty(txtFile2.Text) Then
MsgBox("ファイル名を指定してください")
Return
End If
Dim args As New ExecuteArgs(txtFile1.Text, txtFile2.Text)
If chkIgnoreCase.Checked Then
args.IgnoreCase = True
End If
If chkIgnoreEOL.Checked Then
args.IgnoreEol = True
End If
If chkIgnoreSpace.Checked Then
args.IgnoreSpace = True
End If
Me.Execute(args)
End Sub
Private Sub Execute(args As ExecuteArgs)
'ProcessStartInfoオブジェクトを作成する
Dim psi As New System.Diagnostics.ProcessStartInfo()
psi.CreateNoWindow = True
psi.UseShellExecute = False
'起動する実行ファイルのパスを設定する
psi.FileName = SetQuotation("C:\Program Files (x86)\Microsoft Visual Studio 10.0\Common7\IDE\diffmerge.exe")
Dim strOpitonList As New List(Of String)
strOpitonList.Add(SetQuotation(args.File1))
strOpitonList.Add(SetQuotation(args.File2))
If args.IgnoreCase Then
strOpitonList.Add(SetQuotation("/ignorecase"))
End If
If args.IgnoreEol Then
strOpitonList.Add(SetQuotation("/ignoreeol"))
End If
If args.IgnoreSpace Then
strOpitonList.Add(SetQuotation("/ignorespace"))
End If
psi.Arguments = String.Join(" ", strOpitonList.ToArray)
'起動する
Dim p As System.Diagnostics.Process = _
System.Diagnostics.Process.Start(psi)
End Sub
Private Function SetQuotation(str As String) As String
Return """" & str & """"
End Function
Private Class ExecuteArgs
Public File1 As String
Public File2 As String
Public IgnoreSpace As Boolean = False
Public IgnoreEol As Boolean = False
Public IgnoreCase As Boolean = False
Public Sub New(f1 As String, f2 As String)
File1 = f1
File2 = f2
End Sub
End Class
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
<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
'Windows フォーム デザイナーで必要です。
Private components As System.ComponentModel.IContainer
'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
'Windows フォーム デザイナーを使用して変更できます。
'コード エディターを使って変更しないでください。
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.btnFile1 = New System.Windows.Forms.Button()
Me.txtFile1 = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtFile2 = New System.Windows.Forms.TextBox()
Me.btnExecute = New System.Windows.Forms.Button()
Me.btnFile2 = New System.Windows.Forms.Button()
Me.chkIgnoreEOL = New System.Windows.Forms.CheckBox()
Me.chkIgnoreSpace = New System.Windows.Forms.CheckBox()
Me.chkIgnoreCase = New System.Windows.Forms.CheckBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'btnFile1
'
Me.btnFile1.Location = New System.Drawing.Point(352, 14)
Me.btnFile1.Name = "btnFile1"
Me.btnFile1.Size = New System.Drawing.Size(86, 23)
Me.btnFile1.TabIndex = 0
Me.btnFile1.Text = "参照(&1)"
Me.btnFile1.UseVisualStyleBackColor = True
'
'txtFile1
'
Me.txtFile1.AllowDrop = True
Me.txtFile1.Location = New System.Drawing.Point(72, 16)
Me.txtFile1.Name = "txtFile1"
Me.txtFile1.Size = New System.Drawing.Size(274, 19)
Me.txtFile1.TabIndex = 4
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(15, 19)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(45, 12)
Me.Label2.TabIndex = 6
Me.Label2.Text = "ファイル1"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(15, 44)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(45, 12)
Me.Label1.TabIndex = 9
Me.Label1.Text = "ファイル2"
'
'txtFile2
'
Me.txtFile2.AllowDrop = True
Me.txtFile2.Location = New System.Drawing.Point(72, 41)
Me.txtFile2.Name = "txtFile2"
Me.txtFile2.Size = New System.Drawing.Size(274, 19)
Me.txtFile2.TabIndex = 8
'
'btnExecute
'
Me.btnExecute.Location = New System.Drawing.Point(353, 96)
Me.btnExecute.Name = "btnExecute"
Me.btnExecute.Size = New System.Drawing.Size(86, 23)
Me.btnExecute.TabIndex = 10
Me.btnExecute.Text = "実行(&E)"
Me.btnExecute.UseVisualStyleBackColor = True
'
'btnFile2
'
Me.btnFile2.Location = New System.Drawing.Point(352, 39)
Me.btnFile2.Name = "btnFile2"
Me.btnFile2.Size = New System.Drawing.Size(86, 23)
Me.btnFile2.TabIndex = 11
Me.btnFile2.Text = "参照(&2)"
Me.btnFile2.UseVisualStyleBackColor = True
'
'chkIgnoreEOL
'
Me.chkIgnoreEOL.AutoSize = True
Me.chkIgnoreEOL.Checked = True
Me.chkIgnoreEOL.CheckState = System.Windows.Forms.CheckState.Checked
Me.chkIgnoreEOL.Location = New System.Drawing.Point(72, 81)
Me.chkIgnoreEOL.Name = "chkIgnoreEOL"
Me.chkIgnoreEOL.Size = New System.Drawing.Size(139, 16)
Me.chkIgnoreEOL.TabIndex = 12
Me.chkIgnoreEOL.Text = "行末記号の相違を無視"
Me.chkIgnoreEOL.UseVisualStyleBackColor = True
'
'chkIgnoreSpace
'
Me.chkIgnoreSpace.AutoSize = True
Me.chkIgnoreSpace.Checked = True
Me.chkIgnoreSpace.CheckState = System.Windows.Forms.CheckState.Checked
Me.chkIgnoreSpace.Location = New System.Drawing.Point(72, 103)
Me.chkIgnoreSpace.Name = "chkIgnoreSpace"
Me.chkIgnoreSpace.Size = New System.Drawing.Size(153, 16)
Me.chkIgnoreSpace.TabIndex = 13
Me.chkIgnoreSpace.Text = "空白スペースの相違を無視"
Me.chkIgnoreSpace.UseVisualStyleBackColor = True
'
'chkIgnoreCase
'
Me.chkIgnoreCase.AutoSize = True
Me.chkIgnoreCase.Checked = True
Me.chkIgnoreCase.CheckState = System.Windows.Forms.CheckState.Checked
Me.chkIgnoreCase.Location = New System.Drawing.Point(72, 125)
Me.chkIgnoreCase.Name = "chkIgnoreCase"
Me.chkIgnoreCase.Size = New System.Drawing.Size(163, 16)
Me.chkIgnoreCase.TabIndex = 14
Me.chkIgnoreCase.Text = "大文字小文字の相違を無視"
Me.chkIgnoreCase.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(353, 121)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(86, 23)
Me.Button1.TabIndex = 15
Me.Button1.Text = "終了(&X)"
Me.Button1.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(451, 157)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.chkIgnoreCase)
Me.Controls.Add(Me.chkIgnoreSpace)
Me.Controls.Add(Me.chkIgnoreEOL)
Me.Controls.Add(Me.btnFile2)
Me.Controls.Add(Me.btnExecute)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtFile2)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtFile1)
Me.Controls.Add(Me.btnFile1)
Me.Name = "Form1"
Me.Text = "ファイル比較"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents btnFile1 As System.Windows.Forms.Button
Friend WithEvents txtFile1 As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtFile2 As System.Windows.Forms.TextBox
Friend WithEvents btnExecute As System.Windows.Forms.Button
Friend WithEvents btnFile2 As System.Windows.Forms.Button
Friend WithEvents chkIgnoreEOL As System.Windows.Forms.CheckBox
Friend WithEvents chkIgnoreSpace As System.Windows.Forms.CheckBox
Friend WithEvents chkIgnoreCase As System.Windows.Forms.CheckBox
Friend WithEvents Button1 As System.Windows.Forms.Button
End Class
2016-04-23T10:22:34+09:001461374554tmp11
https://w.atwiki.jp/prime503/pages/76.html
''' <summary>
''' RRRXXYのデータ
''' </summary>
''' <remarks></remarks>
Public Class XXXXXZData
Public OPRXXZCode As String
Public ParentCode As String
Public OPRKubun As Integer
Public OPRcd As String
Private _clsOPQindex As clsOPQindex
''' <summary>
''' OPQIndex
''' ※更新禁止
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property OPQindex() As clsOPQindex
Get
Return _clsOPQindex
End Get
End Property
Private _clsOPROrd As New List(Of clsOPROrd)
''' <summary>
''' OPROrd
''' ※更新禁止
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property OPROrd() As List(Of clsOPROrd)
Get
Return _clsOPROrd
End Get
End Property
Private _childXXZList As New List(Of XXXXXZData)
''' <summary>
''' このXXYの直下にある子XXYのリスト
''' ※更新禁止
''' ※全ての子XXYを取得する場合はXXXXXZManager.FindChildXXXXXZDataを利用すること
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property ChildXXZList() As List(Of XXXXXZData)
Get
Return Me._childXXZList
End Get
End Property
Private _loadedOPT As Boolean = False
''' <summary>
''' OPSを取得済みかどうか
''' ※更新禁止
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property LoadedOPT() As Boolean
Get
Return _loadedOPT
End Get
Set(value As Boolean)
Me._loadedOPT = _loadedOPT
End Set
End Property
Sub New(clsOPQindex As clsOPQindex)
End Sub
End Class
Public Class clsOPQindex
Public OPRXXZCode As String
Public OPQarentCode As String
Public OPRKubun As String
Sub New(XXZcode As String, parentXXZcode As String)
Me.OPRXXZCode = XXZcode
Me.OPQarentCode = parentXXZcode
End Sub
End Class
Public Class clsOPROrd
Public XXZCode As String
Public OPRcd As String
Public Bunrui As String
Public Bunrui2 As String
Public Syno As String
Sub New(XXZcode As String)
Me.XXZCode = XXZcode
End Sub
End Class
Public Class clsOPQindexHist
Public OPRmodKubun As Integer
Public WsName As String
Public OPRmodTime As DateTime
Public OPRXXZCode As String
Public OPRcd As String
Public OPROpt2 As String
End Class
''' <summary>
''' XXXSetDataAccess.Instance.～のようにして利用
''' ※利用禁止
''' </summary>
''' <remarks></remarks>
Friend Class XXXXXZDataAccess
Private Sub New()
End Sub
Private Shared _instance As XXXXXZDataAccess = New XXXXXZDataAccess
''' <summary>
'''
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Shared ReadOnly Property Instance() As XXXXXZDataAccess
Get
Return _instance
End Get
End Property
''' <summary>
'''
''' </summary>
''' <param name="OPRcd"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetOPQIndex(OPRcd As String) As List(Of clsOPQindex)
Dim result As New List(Of clsOPQindex)
Dim sql As New System.Text.StringBuilder()
sql.AppendLine("select")
sql.AppendLine(" *")
sql.AppendLine("from")
sql.AppendLine(" ")
sql.AppendLine("where")
sql.AppendLine(" OPRcd = '" & OPRcd & "'")
sql.AppendLine("OPT by")
sql.AppendLine(" ")
Return result
End Function
''' <summary>
'''
''' </summary>
''' <param name="OPRcd"></param>
''' <param name="setcode"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetOPT(OPRcd As String, setcode As String) As List(Of clsOPROrd)
Dim result As New List(Of clsOPROrd)
Dim sql As New System.Text.StringBuilder()
sql.AppendLine("select")
sql.AppendLine(" *")
sql.AppendLine("from")
sql.AppendLine(" ")
sql.AppendLine("where")
sql.AppendLine(" OPRcd = '" & OPRcd & "'")
sql.AppendLine("and")
sql.AppendLine(" setcode = '" & setcode & "'")
sql.AppendLine("OPT by")
sql.AppendLine(" ")
Return result
End Function
End Class
Partial Public Class XXXXXZManager
''' <summary>
''' XXYのOPSを読み込む
''' </summary>
''' <remarks></remarks>
Public Sub LoadXXZOPTData(pXXZ As XXXXXZData)
If pXXZ.OPRKubun <> 2 _
OrElse pXXZ.LoadedOPT Then
Return
End If
End Sub
''' <summary>
''' XXYのOPSだけ削除
''' </summary>
''' <remarks></remarks>
Public Sub DeleteXXXXXZOPT(pXXZ As XXXXXZData)
If pXXZ Is Nothing _
OrElse pXXZ.OPRKubun <> 2 _
OrElse pXXZ.OPRcd <> Me._OPRcd Then
Return
End If
'OPSを取得
Me.LoadXXZOPTData(pXXZ)
Dim updateHist As New List(Of XXXXXZData)
updateHist.Add(pXXZ)
Me.RegistOPQIndexHist(1, updateHist)
End Sub
''' <summary>
''' XXYのOPSだけ削除
''' </summary>
''' <remarks></remarks>
Public Sub DeleteXXXXXZOPT(pXXZ As XXXXXZData, bunrui As String, bunrui2 As String, syno As Integer)
If pXXZ Is Nothing _
OrElse pXXZ.OPRKubun <> 2 _
OrElse pXXZ.OPRcd <> Me._OPRcd Then
Return
End If
'OPSを取得
Me.LoadXXZOPTData(pXXZ)
Dim updateHist As New List(Of XXXXXZData)
updateHist.Add(pXXZ)
Me.RegistOPQIndexHist(1, updateHist)
End Sub
End Class
Public Class XXXXXZManager
Private _modTime As DateTime
Private _wsName As String
Private _OPRcd As String
Private _ordno As Integer
Private _histList As List(Of clsOPQindexHist)
#Region "Properies"
Private _allXXZList As List(Of XXXXXZData) = Nothing
''' <summary>
''' 全XXYのリスト
''' ※ゴミ箱や無効なXXYは含まない
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property AllXXZList() As List(Of XXXXXZData)
Get
Return Me._allXXZList
End Get
End Property
Private _rootList As List(Of XXXXXZData) = Nothing
''' <summary>
''' ルートフォルダのリスト
''' ※ゴミ箱は含まない
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property RootList() As List(Of XXXXXZData)
Get
Return Me._rootList
End Get
End Property
Private _trash As XXXXXZData = Nothing
''' <summary>
''' ゴミ箱
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property Trash() As XXXXXZData
Get
Return Me._trash
End Get
End Property
#End Region
#Region "Pulic Methods"
''' <summary>
''' コンストラクタ
''' </summary>
''' <param name="modTime"></param>
''' <param name="wsName"></param>
''' <param name="ordno"></param>
''' <param name="OPRcd"></param>
''' <remarks></remarks>
Public Sub New(modTime As DateTime, wsName As String, ordno As Integer, OPRcd As String)
Me._modTime = modTime
Me._wsName = wsName
Me._OPRcd = OPRcd
Me._ordno = ordno
Me.LoadXXXXXZData()
End Sub
''' <summary>
''' 指定したXXYコードのデータを取得
''' </summary>
''' <param name="XXZcode"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function FindXXXXXZData(XXZcode As String) As XXXXXZData
For Each pXXZData As XXXXXZData In Me._allXXZList
If pXXZData.OPRXXZCode = XXZcode _
AndAlso pXXZData.OPRcd = Me._OPRcd Then
Return pXXZData
End If
Next
Return Nothing
End Function
''' <summary>
''' ゴミ箱に移動
''' </summary>
''' <param name="pXXZ"></param>
''' <remarks></remarks>
Public Sub MoveToTrash(pXXZ As XXXXXZData)
If pXXZ Is Nothing _
OrElse (pXXZ.OPRKubun <> 1 OrElse pXXZ.OPRKubun <> 2) _
OrElse pXXZ.OPRcd <> Me._OPRcd Then
Return
End If
'親のXXYを探して、親のXXYの子から除外
Dim parent As XXXXXZData = Me.FindXXXXXZData(pXXZ.ParentCode)
parent.ChildXXZList.Remove(parent)
'TOOD Regist
pXXZ.ParentCode = "00000000"
Trash.ChildXXZList.Add(pXXZ)
'ゴミ箱に移動するXXYのリストを取得
Dim moveXXZList As List(Of XXXXXZData) = Me.FindChildXXXXXZData(pXXZ)
Me.RegistOPQIndexHist(1, moveXXZList)
End Sub
''' <summary>
''' XXYを削除
''' </summary>
''' <remarks></remarks>
Public Sub DeleteXXXXXZ(pXXZ As XXXXXZData)
If pXXZ Is Nothing _
OrElse (pXXZ.OPRKubun <> 1 OrElse pXXZ.OPRKubun <> 2) _
OrElse pXXZ.OPRcd <> Me._OPRcd Then
Return
End If
'削除するXXYのリストを作成
Dim deleteXXZList As List(Of XXXXXZData) = Me.FindChildXXXXXZData(pXXZ)
For Each item As XXXXXZData In deleteXXZList
If item.OPRKubun = 1 _
OrElse item.OPRKubun = 2 Then
item.OPRKubun = 9
End If
Next
Me.RegistOPQIndexHist(2, deleteXXZList)
End Sub
''' <summary>
''' 指定したXXYを親とするリストを取得
''' </summary>
''' <remarks></remarks>
Public Function FindChildXXXXXZData(pXXZ As XXXXXZData) As List(Of XXXXXZData)
Dim resultChildXXZ As New List(Of XXXXXZData)
resultChildXXZ.Add(pXXZ)
Me.FindChildXXXXXZDataRecursive(pXXZ, resultChildXXZ)
Return resultChildXXZ
End Function
#End Region
#Region "Private Methods"
''' <summary>
''' XXXXXZDataを読み込む
''' ※OPSのデータは読み込まれません
''' </summary>
''' <remarks></remarks>
Private Sub LoadXXXXXZData()
'RRRXXY取得
Me._allXXZList = New List(Of XXXXXZData)
Dim OPQIndexList As List(Of clsOPQindex) = XXXXXZDataAccess.Instance.GetOPQIndex(Me._OPRcd)
For Each OPQindex As clsOPQindex In OPQIndexList
Dim pXXZ As New XXXXXZData(OPQindex)
Me._allXXZList.Add(pXXZ)
Next
Dim checkXXZList As New List(Of XXXXXZData)
checkXXZList.AddRange(Me._allXXZList)
'ルートフォルダを見つける
Dim rootList As List(Of XXXXXZData) = New List(Of XXXXXZData)
For Each pXXZ As XXXXXZData In checkXXZList
If pXXZ.OPRKubun = 0 Then
rootList.Add(pXXZ)
End If
Next
'全XXYのリストから見つかったフォルダを除外
For Each item As XXXXXZData In rootList
checkXXZList.Remove(item)
Next
'子のXXYを再帰的に設定
For Each rootXXZ As XXXXXZData In rootList
Me.XXZChildRecursive(checkXXZList, rootXXZ)
Next
'ゴミ箱を探す
Dim trash As XXXXXZData = Nothing
For Each item As XXXXXZData In rootList
If item.OPRXXZCode = "00000000" Then
trash = item
End If
Next
If trash Is Nothing Then
'ゴミ箱がなければ作る
'TOOD Regist
trash = New XXXXXZData(New clsOPQindex("00000000", "00000000"))
Else
rootList.Remove(trash)
End If
Me._trash = trash
Me._rootList = rootList
End Sub
''' <summary>
''' XXXXXZDataに子のXXYを再帰的に設定
''' </summary>
''' <param name="XXZList"></param>
''' <param name="parent"></param>
''' <remarks></remarks>
Private Sub XXZChildRecursive(XXZList As List(Of XXXXXZData), parent As XXXXXZData)
Dim childXXZList As New List(Of XXXXXZData)
'子のXXYを探す
For Each pXXZ As XXXXXZData In XXZList
If pXXZ.ParentCode = parent.ParentCode _
AndAlso (pXXZ.OPRKubun = 1 OrElse pXXZ.OPRKubun = 2) Then
childXXZList.Add(pXXZ)
End If
Next
'子のXXYを設定
parent.ChildXXZList.AddRange(childXXZList)
'全XXYのリストから子のXXYを除外
For Each pXXZ As XXXXXZData In childXXZList
XXZList.Remove(pXXZ)
Next
'子のXXYを設定
For Each childPXXZ As XXXXXZData In childXXZList
If childPXXZ.OPRKubun = 2 Then
Me.XXZChildRecursive(XXZList, childPXXZ)
End If
Next
End Sub
''' <summary>
''' 履歴を登録
''' ※修正区分が1、2のときだけ、更新するデータのリストが必要
''' </summary>
''' <param name="modKubun">
''' 修正区分
''' 0：変更なし
''' 1：更新
''' 2：削除
''' </param>
''' <param name="updateXXZList">更新するデータ</param>
''' <remarks></remarks>
Private Sub RegistOPQIndexHist(modKubun As Integer _
, updateXXZList As List(Of XXXXXZData))
Select Case modKubun
Case 0
Case 1
Case 2
If updateXXZList Is Nothing _
OrElse updateXXZList.Count = 0 Then
Return
End If
Case Else
Return
End Select
If _histList Is Nothing Then
'履歴を1回も登録したことがない場合
Dim targetList As New List(Of XXXXXZData)
'有効なルートに含まれるXXYをリストに追加
For Each pXXZ As XXXXXZData In Me._rootList
Dim childList As List(Of XXXXXZData) = Me.FindChildXXXXXZData(pXXZ)
targetList.AddRange(childList)
Next
'ゴミ箱のルートだけ追加
targetList.Add(Trash)
_histList = New List(Of clsOPQindexHist)
For Each pXXZ As XXXXXZData In targetList
Dim hist As clsOPQindexHist = Me.CreateHist(pXXZ, Me._modTime, Me._wsName)
_histList.Add(hist)
Next
End If
'OPRmodKubunを更新
For Each hist As clsOPQindexHist In _histList
For Each pXXZ As XXXXXZData In updateXXZList
If hist.OPRcd = pXXZ.OPRcd _
AndAlso hist.OPRXXZCode = pXXZ.OPRXXZCode Then
hist.OPRmodKubun = modKubun
hist.OPROpt2 = Me._ordno.ToString
End If
Next
Next
'TODO Regist
End Sub
''' <summary>
'''
''' </summary>
''' <param name="pXXZ"></param>
''' <param name="modTime"></param>
''' <param name="wsName"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Function CreateHist(pXXZ As XXXXXZData, modTime As DateTime, wsName As String) As clsOPQindexHist
Dim hist As New clsOPQindexHist
hist.OPRmodKubun = 0
hist.OPRmodTime = modTime
hist.WsName = wsName
Return hist
End Function
''' <summary>
''' 指定したXXYを親とするリストを取得（再帰処理）
''' </summary>
''' <remarks></remarks>
Private Sub FindChildXXXXXZDataRecursive(pXXZ As XXXXXZData, resultChildXXZ As List(Of XXXXXZData))
If pXXZ.ChildXXZList Is Nothing Then
Return
End If
For Each child As XXXXXZData In pXXZ.ChildXXZList
resultChildXXZ.Add(child)
Me.FindChildXXXXXZDataRecursive(child, resultChildXXZ)
Next
End Sub
#End Region
End Class
2016-03-22T02:22:27+09:001458580947cliptest
https://w.atwiki.jp/prime503/pages/75.html
■xJoin
="'" & A1 & "'"
■xJoin2
=A1
=B1 & "," & A2
■xJoin3
="'" & A1 & "'" =B1
="'" & A2 & "'" =C1 & "," & B2
■xIn
="in (" & A1 & ")" 2015-12-23T15:49:09+09:001450853349query2
https://w.atwiki.jp/prime503/pages/74.html
var atl = atl || {};
atl.sql = atl.sql || {};
atl.dom = atl.dom || {};
atl.sql.INDENT_STRING = "\t";
atl.sql.RESERVED_WORDS_UPPER_FLG = false;
atl.sql.RESERVED_WORDS_LOWER_FLG = false;
atl.sql.ATO_NO_SPACE_TOHKEN_KIGOH_MAP = {
".": true,
"(": true,
",": false
};
atl.sql.MAE_NO_SPACE_TOHKEN_KIGOH_MAP = {
".": true,
",": true,
";": true,
")": true,
"(*)": true,
"(+)": true,
"(": {
"AND": false,
"OR": false,
"ON": false,
"=": false,
"-": false,
"+": false,
"/": false,
"*": false,
"<": false,
"<=": false,
"<>": false,
">": false,
">=": false
}
};
atl.sql.ATO_BREAK_TOKEN_MAP = {
"WITH": false,
"SELECT": true,
"UPDATE": true,
"INTO": true,
"FROM": true,
"SET": true,
"WHERE": true,
"BY": true,
"VALUES": true,
"ON": false,
"UNION": true,
",": true,
"(": true,
";": true,
"ALL": true,
"AND": false,
"OR": false,
"JOIN": true,
"MINUS": true,
"INTERSECT": true,
"USING": true,
"UNION ALL": true,
"WHEN MATCHED THEN": true,
"WHEN NOT MATCHED THEN": true
};
atl.sql.MAE_BREAK_TOKEN_MAP = {
"INSERT": true,
"UPDATE": true,
"FROM": true,
"SET": true,
"WHERE": true,
"AND": true,
"OR": true,
"GROUP": true,
"HAVING": true,
"ORDER": true,
"VALUES": true,
"UNION": true,
")": true,
";": true,
"WHEN": true,
"ELSE": true,
"END": true,
"SELECT": true,
",": false,
"ON": true,
"WITH": false,
"LEFT": true,
"RIGHT": true,
"INNER": true,
"FULL": true,
"NATURAL": true,
"MINUS": true,
"INTERSECT": true,
"USING": true,
"UNION ALL": true,
"WHEN MATCHED THEN": true,
"WHEN NOT MATCHED THEN": true
};
atl.sql.MAE_EXP_BREAK_TOKEN_MAP = {
"^--": true
};
atl.sql.NOT_BREAK_TOKEN_MAP = {
"BETWEEN": "AND"
};
atl.sql.INDENT_PLUS_TOKEN_MAP = {
"WITH": false,
"SELECT": true,
"UPDATE": true,
"INSERT": true,
"FROM": true,
"SET": true,
"WHERE": true,
"AND": true,
"OR": true,
"BY": true,
"VALUES": true,
"(": true,
"CASE": true,
"ON": true,
"USING": true,
"MATCHED": true,
"MERGE": true,
"WHEN MATCHED THEN": true,
"WHEN NOT MATCHED THEN": true
};
atl.sql.INDENT_MINUS_TOKEN_MAP = {
"SET": true,
"AND": true,
"OR": true,
"VALUES": true,
"UNION": true,
"END": true,
"ON": true,
"MINUS": true,
"INTERSECT": true,
"USING": true,
"UNION ALL": true,
"WHEN MATCHED THEN": true,
"WHEN NOT MATCHED THEN": true
};
atl.sql.KAKKO_BREAK_TOKEN_MAP = {
"SELECT": true,
"INSERT": true,
"UPDATE": true,
"FROM": true,
"AND": true,
"OR": true,
"ON": true,
"<": true,
"<=": true,
"<>": true,
">": true,
">=": true,
"=": true,
"!=": true
};
atl.sql.BLOCK_INDENT_NEXT_MINUS_ALL_PLUS_TOKEN_MAP = {
"LEFT": true,
"RIGHT": true,
"INNER": true,
"FULL": true,
"NATURAL": true
};
atl.sql.BASE_INDENT_SEARCH_MAP = {
"SELECT": true,
"INSERT": true,
"UPDATE": true,
"DELETE": true
};
atl.sql.BASE_BLOCK_LEVEL_INDENT_MAP = {
"FROM": true,
"WHERE": true,
"HAVING": true,
"GROUP": true,
"ORDER": true,
"INSERT": true,
"UPDATE": true
};
atl.sql.MACHING_INDENT_MAP = {
"(": ")",
"WHEN MATCHED THEN": "WHEN NOT MATCHED THEN"
};
atl.sql.SPECIAL_JOIN_TOKEN_MAP = {
"UNION": "ALL",
"UNION ALL": true,
"WHEN": {
"MATCHED": true,
"NOT": true
},
"WHEN MATCHED": "THEN",
"WHEN MATCHED THEN": true,
"WHEN NOT": "MATCHED",
"WHEN NOT MATCHED": "THEN",
"WHEN NOT MATCHED THEN": true
};
atl.sql.SPECIAL_LAST_JOIN_TOKEN_MAP = {
"AND": atl.sql.INDENT_STRING,
"OR": atl.sql.INDENT_STRING,
"ON": atl.sql.INDENT_STRING
};
atl.sql.RESERVED_WORDS_MAP = {
"ABORT": true,
"ABSOLUTE": true,
"ACCELERATED": true,
"ACTION": true,
"ADD": true,
"AFTER": true,
"ALL": true,
"ALTER": true,
"AND": true,
"ANY": true,
"AS": true,
"ASC": true,
"ATOMIC": true,
"AUTHORIZATION": true,
"AVG": true,
"BEFORE": true,
"BEGIN/BEGINS": true,
"BETWEEN": true,
"BINARYNULL": true,
"BIND": true,
"BLANK": true,
"BY": true,
"CALL": true,
"CASCADE": true,
"CASE": true,
"CHAIN": true,
"CHARACTER": true,
"CHECK": true,
"CLOSE": true,
"COBOL": true,
"COLLATE": true,
"COLUMN": true,
"COMMIT": true,
"COMMITTED": true,
"CONDITION": true,
"CONSTRAINT": true,
"CONTINUE": true,
"CONVERT": true,
"COUNT": true,
"CREATE": true,
"CREATETAB": true,
"CROSS": true,
"CS": false,
"CURDATE": true,
"CURRENT": true,
"CURSOR": true,
"CURTIME": true,
"DATABASE": true,
"DCOMPRESS": true,
"DECIMALSEPARATORCOMMA": true,
"DECLARE": true,
"DEFAULT": true,
"DELETE": true,
"DESC": true,
"DIAGNOSTICS": true,
"DICTIONARY": true,
"DISTINCT": true,
"DO": true,
"DROP": true,
"EACH": true,
"ELSE": true,
"ELSEIF": true,
"END": true,
"ESCAPE": true,
"EX": false,
"EXCLUSIVE": true,
"EXEC": true,
"EXECUTE": true,
"EXISTS": true,
"EXTERNAL": true,
"FETCH": true,
"FIRST": true,
"FN": false,
"FOR": true,
"FOREIGN": true,
"FROM": true,
"FULL": true,
"GRANT": true,
"GROUP": true,
"HANDLER": true,
"HAVING": true,
"HOUR": true,
"IDENTITY": true,
"IF": true,
"IN": true,
"INCLUDE": true,
"INDEX": true,
"INNER": true,
"INOUT": true,
"INSERT": true,
"INTERNAL": true,
"INTO": true,
"IS": true,
"ISOLATION": true,
"INTERSECT": true,
"JOIN": true,
"KEY": true,
"LANGUAGE": true,
"LAST": true,
"LEAVE": true,
"LEFT": true,
"LEGACYOWNERNAME": true,
"LENGTH": true,
"LEVEL": true,
"LIKE": true,
"LOGICAL": true,
"LOGIN": true,
"LOOP": true,
"LOWER": true,
"MAX": true,
"MILLISECOND": true,
"MIN": true,
"MINUTE": true,
"MODIFIABLE": true,
"MODIFY": true,
"MODULE": true,
"MONEY": true,
"MONTH": true,
"MATCHED": true,
"MINUS": true,
"MERGE": true,
"NEW": true,
"NEXT": true,
"NO": false,
"NORMAL": true,
"NOT": true,
"NOTFOUND": true,
"NOW": true,
"NULL": true,
"NATURAL": true,
"OF": true,
"OFF": true,
"OLD": true,
"ON": true,
"ONLY": true,
"OPEN": true,
"OPENMODE": true,
"OPTION": true,
"OR": true,
"ORDER": true,
"OUT": true,
"OUTER": true,
"OWNER": true,
"OWNERACCESS": true,
"PAGESIZE": true,
"PREALLOCATE": true,
"PREPARE": true,
"PRIMARY": true,
"PRINT": true,
"PRIOR": true,
"PRIVILEGES": true,
"PROCEDURE": true,
"PUBLIC": true,
"RANGE": true,
"READ": true,
"READONLY": true,
"REFERENCES": true,
"REFERENCING": true,
"RELATIVE": true,
"RELEASE": true,
"REPEAT": true,
"REPEATABLE": true,
"REPLACE": true,
"REPLICATION": true,
"RESIGNAL": true,
"RESTRICT": true,
"RETURN": true,
"RETURNS": true,
"REVOKE": true,
"RIGHT": true,
"ROLLBACK": true,
"ROW": true,
"ROWCOUNT": true,
"SAVEPOINT": true,
"SCHEMA": true,
"SCROLL": true,
"SECURITY": true,
"SEG": true,
"SELECT": true,
"SERIALIZABLE": true,
"SET": true,
"SIGNAL": true,
"SIZE": true,
"SOME": true,
"SQLERROR": true,
"SQLEXCEPTIONS": true,
"SQLWARNINGS": true,
"SQLSTATE": true,
"SSP_EXPR": true,
"SSP_PRED": true,
"START": true,
"STATEMENT": true,
"STRINGNULL": true,
"SUM": true,
"SVBEGIN": true,
"SVEND": true,
"TABLE": true,
"THEN": true,
"THRESHOLD": true,
"TO": true,
"TOP": true,
"TRANSACTION": true,
"TRIGGER": true,
"TRIGGERSTAMPMISC": true,
"TRUENULLCREATE": true,
"TS": false,
"TYPE": true,
"UNCOMMITTED": true,
"UNDO": true,
"UNION": true,
"UNIQUE": true,
"UNTIL": true,
"UPDATABLE": true,
"UPDATE": true,
"UPPER": true,
"USER": true,
"USING": true,
"VALUE": true,
"VALUES": true,
"VERIFY": true,
"VIEW": true,
"WHEN": true,
"WHERE": true,
"WHILE": true,
"WITH": true,
"WORK": true,
"WRITE": true,
"YEAR": true,
"ZSTRING": true
};
atl.regMatch = function(a, b) {
for (var c in b) {
if (b[c] == true) {
var d = new RegExp(c);
if (a.match(d)) {
return true
}
}
}
return false
};
atl.StringBuffer = function(a) {
this.array = new Array();
this.len = 0;
this.stringCache = null;
if (a) {
this.append(a)
}
};
atl.StringBuffer.prototype = {
append: function(a) {
this.array.push(a);
this.len += a.length;
this.stringCache = null
},
toString: function() {
if (!this.stringCache) {
this.stringCache = this.array.join("")
}
return this.stringCache
},
length: function() {
return this.len
},
charAt: function(i) {
return this.toString().substring(i)
},
clear: function() {
this.len = 0;
this.array.length = 0
}
};
atl.dom.Node = function() {};
atl.dom.Node.prototype = {
DOCUMENT_NODE: 0,
ELEMENT_NODE: 1,
TEXT_NODE: 2,
appendChild: function(a) {
if (!this.childArray) {
this.childArray = new Array()
}
this.childArray.push(a)
},
getChildNodes: function() {
return this.childArray
},
getNodeType: function() {
return null
},
setNodeValue: function(a) {
this.value = a
},
getNodeValue: function() {
return this.value
}
};
atl.dom.Element = function(a) {
this.tagName = a;
this.attributeHash = new Array();
this.elementId = atl.dom.Element.prototype.elementId++
};
atl.dom.Element.prototype = new atl.dom.Node();
atl.dom.Element.prototype.elementId = 0;
atl.dom.Element.prototype.getNodeType = function() {
return atl.dom.Node.ELEMENT_NODE
};
atl.dom.Element.prototype.getAttribute = function(a) {
return this.attributeHash[a]
};
atl.dom.Element.prototype.setAttribute = function(a, b) {
this.attributeHash[a] = b
};
atl.dom.Element.prototype.getTagName = function() {
return this.tagName
};
atl.dom.Element.prototype.getElementId = function() {
return this.elementId
};
atl.dom.Document = function() {};
atl.dom.Document.prototype = new atl.dom.Node();
atl.dom.Document.prototype.getNodeType = function() {
return atl.dom.Node.DOCUMENT_NODE
};
atl.dom.Document.prototype.createElement = function(a) {
return new atl.dom.Element(a)
};
atl.dom.Document.prototype.createTextNode = function(a) {
return new atl.dom.Text(a)
};
atl.sql.SqlFormatter = function(a) {
if (a != null) {
this.tokenizer = new atl.sql.SqlTokenizer(a);
this.sql = a
}
this.machingIndentArray = new Array();
this.machingEndKeyMap = new Array();
this.notBreakToken = null;
this.oldUpperToken = "";
this.indentCnt = 0;
this.machingIndentMap = {};
this.baseIndentMap = {};
this.baseIndentPlusMinusFirstFlgMap = {}
};
atl.sql.SqlFormatter.prototype = {
format: function(a) {
if (a != null) {
this.tokenizer = new atl.sql.SqlTokenizer(a);
this.sql = a
}
if (this.sql == null || this.sql.length == 0) {
return ""
}
var b = new atl.dom.Document();
var c = b.createElement("root");
c.setAttribute("BREAK", true);
this.createSqlNode(b, c);
var d = new atl.StringBuffer();
this.makeSqlBuffer(d, c);
this.rTrimBuffer(d);
return d.toString()
},
rTrimBuffer: function(a) {
if (a.length <= 0) {
return
}
var b = a.array.pop();
if (b) {
a.append(b.replace(/([ \t]+$)/g, ''))
}
},
isLastBreakBuffer: function(a) {
var b = a.array[a.array.length - 1];
if (b == null || b.charAt(b.length - 1) == "\n") {
return true
}
return false
},
formatToken: function(a, b, c, d, e) {
var f = c.toUpperCase();
var g = false;
var h = "";
var i = atl.sql.MACHING_INDENT_MAP[f];
if (i) {
this.machingIndentArray.push(this.indentCnt);
this.machingEndKeyMap[e + ":" + i] = true
} else if (this.machingEndKeyMap[e + ":" + f]) {
this.indentCnt = this.machingIndentArray.pop();
delete this.machingEndKeyMap[f]
} else if (f == ";") {
this.indentCnt = 0;
this.machingIndentArray.length = 0
}
var j = atl.sql.MAE_NO_SPACE_TOHKEN_KIGOH_MAP[f];
if (j) {
if (j == true || j[this.oldUpperToken] != false) {
b = b.replace(/([ \t]+$)/g, '')
}
}
if (atl.sql.INDENT_MINUS_TOKEN_MAP[f]) {
if (this.indentCnt > 0) {
this.indentCnt--
}
}
if (atl.sql.BLOCK_INDENT_NEXT_MINUS_ALL_PLUS_TOKEN_MAP[f]) {
if (this.baseIndentPlusMinusFirstFlgMap[e] == null) {
this.baseIndentPlusMinusFirstFlgMap[e] = true
} else {
this.indentCnt--
}
}
if (atl.sql.BASE_INDENT_SEARCH_MAP[f]) {
this.baseIndentMap[e] = this.indentCnt
}
if (atl.sql.BASE_BLOCK_LEVEL_INDENT_MAP[f] && this.baseIndentMap[e] != null) {
this.indentCnt = this.baseIndentMap[e]
}
if (atl.sql.NOT_BREAK_TOKEN_MAP[f]) {
this.notBreakToken = atl.sql.NOT_BREAK_TOKEN_MAP[f]
}
if (atl.sql.MAE_BREAK_TOKEN_MAP[f] || atl.regMatch(f, atl.sql.MAE_EXP_BREAK_TOKEN_MAP)) {
if (d && this.notBreakToken != f) {
b = "\r\n"
}
}
if (this.notBreakToken == f) {
h = " ";
this.notBreakToken = null
} else if ((atl.sql.ATO_BREAK_TOKEN_MAP[f] && d) || f.match(/^\-\-/) || f.match(/\*\/$/)) {
h = "\r\n"
} else if (atl.sql.SPECIAL_LAST_JOIN_TOKEN_MAP[f]) {
h = atl.sql.SPECIAL_LAST_JOIN_TOKEN_MAP[f]
} else if (atl.sql.ATO_NO_SPACE_TOHKEN_KIGOH_MAP[f]) {
h = ""
} else {
h = " "
}
if (b != null && b.charAt(b.length - 1) == '\n') {
if (a.length() > 0) {
a.append(b + this.getIndent(this.indentCnt) + c)
} else {
a.append(this.getIndent(this.indentCnt) + c)
}
} else {
a.append((b == null ? "" : b) + c)
}
if (atl.sql.INDENT_PLUS_TOKEN_MAP[f] || atl.sql.BLOCK_INDENT_NEXT_MINUS_ALL_PLUS_TOKEN_MAP[f]) {
this.indentCnt++
}
this.oldUpperToken = f;
return h
},
makeSqlBuffer: function(a, b) {
var c = b.getChildNodes();
if (c == null) {
return
}
for (var i = 0; i < c.length; i++) {
if (c[i].getTagName() == "block") {
this.makeSqlBuffer(a, c[i]);
continue
}
var d = b.getAttribute("BREAK");
var e = b.getElementId();
this.staticSpliter = this.formatToken(a, this.staticSpliter, c[i].getNodeValue(), d, e)
}
return
},
createSqlNode: function(a, b) {
var c;
var d = b.getAttribute("BREAK") || false;
var e = atl.sql.RESERVED_WORDS_UPPER_FLG;
var f = atl.sql.RESERVED_WORDS_LOWER_FLG;
while ((c = this.tokenizer.nextTokenJoin(atl.sql.SPECIAL_JOIN_TOKEN_MAP, e, f)) != null) {
var g = a.createElement("token");
g.setNodeValue(c);
if (!d && atl.sql.KAKKO_BREAK_TOKEN_MAP[c.toUpperCase()]) {
d = true;
b.setAttribute("BREAK", true)
}
if (c == "(") {
var h = a.createElement("block");
h.appendChild(g);
b.appendChild(h);
this.createSqlNode(a, h);
continue
} else if (c == ")") {
b.appendChild(g);
return
}
b.appendChild(g)
}
},
getIndent: function(a) {
var b = "";
for (var i = 0; i < a; i++) {
b += atl.sql.INDENT_STRING
}
return b
}
};
atl.sql.SqlTokenizer = function(a) {
this.TOKEN_END_KIGOH_MAP = {
",": true,
"(": true,
")": true,
"!": true,
"=": true,
"<": true,
">": true,
"+": true,
"-": true,
"*": true,
"/": true,
".": true,
";": true,
"|": true
};
this.TOKEN_END_MAP = {
" ": true,
"\t": true,
"\r": true,
"\n": true
};
this.TOKEN_RENKETSU_KIGOH_MAP = {
"<": {
"=": true,
">": true
},
"(": {
"*": true,
"+": true
},
">": "=",
"!": "=",
"(+": ")",
"(*": ")",
"/": "*",
"*": "/",
"-": "-",
"|": "|",
"<=": true,
">=": true,
"!=": true,
"<>": true,
"(+)": true,
"(*)": true,
"/*": true,
"*/": true,
"--": true,
"||": true
};
this.specialJoinMap = null;
this.sql = a;
this.tokenIdx = 0
};
atl.sql.SqlTokenizer.prototype = {
nextTokenJoin: function(a, b, c) {
var d;
var e;
if (this.joinArray && this.joinArray.length > 0) {
return this.joinArray.shift()
}
if (!this.joinArray) {
this.joinArray = new Array()
}
while ((d = this.nextToken()) != null) {
if (b || c) {
upperToken = d.toUpperCase();
if (atl.sql.RESERVED_WORDS_MAP[upperToken]) {
if (c) {
d = d.toLowerCase()
} else {
d = upperToken
}
}
}
this.joinArray.push(d);
e = this.joinArray.join(" ");
var f = a[e.toUpperCase()];
if (f == null) {
return this.joinArray.shift()
} else if (f == true) {
break
} else {
continue
}
break
}
if (this.joinArray.length > 0) {
this.joinArray.length = 0;
return e
} else {
return null
}
},
nextToken: function() {
var a;
var b;
var c = new atl.StringBuffer();
var d = false;
var e = false;
var f = false;
var g = false;
if (this.sql == null) {
return null
}
for (var i = this.tokenIdx; i < this.sql.length; i++) {
a = this.sql.charAt(i);
if (i + 1 < this.sql.length) {
b = this.sql.charAt(i + 1)
} else {
b = ""
}
if (!e && !f && !g && a == "\'") {
d = !d;
if (!d) {
c.append(a);
break
}
} else if (!d && !f && !g && a == "\"") {
e = !e;
if (!e) {
c.append(a);
break
}
} else if (!d && !e && !g && a == "-" && b == "-") {
if (!f && c.length() > 0) {
i--;
break
}
f = true
} else if (f && (a == "\r" || a == "\n")) {
f = false;
break
} else if (!d && !e && !f && a == "/" && b == "*") {
if (c.length() > 0) {
i--;
break
}
g = true
} else if (g && a == "*" && b == "/") {
g = false;
c.append(a + b);
i++;
break
}
if (!d && !e && !f && !g) {
if (this.TOKEN_END_KIGOH_MAP[a]) {
if (c.length() == 0) {
c.append(a);
if (!this.TOKEN_END_KIGOH_MAP[b] && !this.TOKEN_END_MAP[b]) {
break
}
continue
}
var h = this.TOKEN_RENKETSU_KIGOH_MAP[c.toString()];
if (h) {
if (h == a || h[a]) {
c.append(a);
if (this.TOKEN_RENKETSU_KIGOH_MAP[c.toString()] == true) {
break
}
continue
}
}
i--;
break
} else if (this.TOKEN_END_MAP[a]) {
if (this.TOKEN_END_KIGOH_MAP[b] || this.TOKEN_END_MAP[b]) {
continue
}
if (c.length() > 0) {
break
} else {
continue
}
} else {
if (this.TOKEN_END_KIGOH_MAP[b] || this.TOKEN_END_MAP[b]) {
c.append(a);
break
}
}
}
c.append(a)
}
this.tokenIdx = i + 1;
if (c.length() > 0) {
return c.toString()
} else {
return null
}
}
}; 2015-12-23T13:44:00+09:001450845840query
https://w.atwiki.jp/prime503/pages/73.html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xmlns:og="http://ogp.me/ns#">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<title>SQLフォーマッター</title>
<meta http-equiv="Content-Style-Type" content="text/css" />
<meta http-equiv="Content-Script-Type" content="text/javascript" />
</head>
<body onload="load()">
<div id="container">
<div id="content">
<div id="main">
<!-- sqlformater for web start-->
<SCRIPT LANGUAGE="JavaScript">
eval(function(p,a,c,k,e,r){e=function(c){return(c<a?'':e(parseInt(c/a)))+((c=c%a)>35?String.fromCharCode(c+29):c.toString(36))};if(!''.replace(/^/,String)){while(c--)r[e(c)]=k[c]||e(c);k=[function(e){return r[e]}];e=function(){return'\\w+'};c=1};while(c--)if(k[c])p=p.replace(new RegExp('\\b'+e(c)+'\\b','g'),k[c]);return p}('9 5=5||{};5.7=5.7||{};5.m=5.m||{};5.7.13="\\t";5.7.29=8;5.7.28=8;5.7.25={".":3,"(":3,",":8};5.7.1V={".":3,",":3,";":3,")":3,"(*)":3,"(+)":3,"(":{"E":8,"G":8,"H":8,"=":8,"-":8,"+":8,"/":8,"*":8,"<":8,"<=":8,"<>":8,">":8,">=":8}};5.7.21={"18":8,"O":3,"K":3,"2e":3,"Q":3,"Z":3,"10":3,"1C":3,"11":3,"H":8,"F":3,",":3,"(":3,";":3,"L":3,"E":8,"G":8,"2p":3,"1d":3,"15":3,"V":3,"F L":3,"u s x":3,"u D s x":3};5.7.2m={"N":3,"K":3,"Q":3,"Z":3,"10":3,"E":3,"G":3,"1I":3,"1K":3,"1A":3,"11":3,"F":3,")":3,";":3,"u":3,"26":3,"1s":3,"O":3,",":8,"H":3,"18":8,"1v":3,"1G":3,"1F":3,"1y":3,"1x":3,"1d":3,"15":3,"V":3,"F L":3,"u s x":3,"u D s x":3};5.7.1W={"^--":3};5.7.1q={"1Y":"E"};5.7.1Z={"18":8,"O":3,"K":3,"N":3,"Q":3,"Z":3,"10":3,"E":3,"G":3,"1C":3,"11":3,"(":3,"20":3,"H":3,"V":3,"s":3,"2a":3,"u s x":3,"u D s x":3};5.7.2b={"Z":3,"E":3,"G":3,"11":3,"F":3,"1s":3,"H":3,"1d":3,"15":3,"V":3,"F L":3,"u s x":3,"u D s x":3};5.7.2c={"O":3,"N":3,"K":3,"Q":3,"E":3,"G":3,"H":3,"<":3,"<=":3,"<>":3,">":3,">=":3,"=":3,"!=":3};5.7.1z={"1v":3,"1G":3,"1F":3,"1y":3,"1x":3};5.7.2d={"O":3,"N":3,"K":3,"2f":3};5.7.2h={"Q":3,"10":3,"1K":3,"1I":3,"1A":3,"N":3,"K":3};5.7.2l={"(":")","u s x":"u D s x"};5.7.2n={"F":"L","F L":3,"u":{"s":3,"D":3},"u s":"x","u s x":3,"u D":"s","u D s":"x","u D s x":3};5.7.1u={"E":5.7.13,"G":5.7.13,"H":5.7.13};5.7.2s={"3a":3,"49":3,"4a":3,"4b":3,"4c":3,"4d":3,"L":3,"4e":3,"E":3,"4g":3,"4h":3,"4i":3,"4k":3,"4l":3,"4m":3,"4n":3,"4o/4p":3,"1Y":3,"4q":3,"4r":3,"4s":3,"1C":3,"4t":3,"4u":3,"20":3,"4v":3,"4w":3,"4x":3,"4y":3,"4z":3,"4A":3,"4B":3,"4E":3,"4F":3,"4G":3,"4H":3,"4J":3,"4K":3,"4L":3,"4M":3,"4N":3,"4O":3,"4P":8,"4Q":3,"4R":3,"4S":3,"4T":3,"4U":3,"4V":3,"4W":3,"4X":3,"4Y":3,"2f":3,"4Z":3,"52":3,"53":3,"54":3,"55":3,"56":3,"57":3,"26":3,"58":3,"1s":3,"59":3,"5b":8,"5c":3,"5f":3,"5g":3,"5h":3,"5i":3,"5j":3,"5k":3,"5l":8,"5n":3,"5o":3,"Q":3,"1y":3,"5p":3,"1I":3,"5q":3,"1K":3,"5r":3,"5s":3,"5t":3,"5v":3,"5w":3,"5x":3,"1F":3,"5y":3,"N":3,"5z":3,"2e":3,"5A":3,"5B":3,"15":3,"2p":3,"5C":3,"5E":3,"5F":3,"5G":3,"1v":3,"5I":3,"5J":3,"5K":3,"5L":3,"5M":3,"2t":3,"2u":3,"2v":3,"2w":3,"2x":3,"2y":3,"2z":3,"2A":3,"2B":3,"2C":3,"2D":3,"2E":3,"s":3,"1d":3,"2a":3,"2F":3,"2G":3,"2H":8,"2I":3,"D":3,"2J":3,"2K":3,"2L":3,"1x":3,"2M":3,"2N":3,"2O":3,"H":3,"2P":3,"2Q":3,"2R":3,"2S":3,"G":3,"1A":3,"2T":3,"2U":3,"2V":3,"2W":3,"2X":3,"2Y":3,"2Z":3,"30":3,"31":3,"32":3,"33":3,"34":3,"35":3,"36":3,"37":3,"38":3,"39":3,"5O":3,"3b":3,"3c":3,"3d":3,"3e":3,"3f":3,"3g":3,"3h":3,"3i":3,"3j":3,"3k":3,"3l":3,"1G":3,"3m":3,"3n":3,"3o":3,"3p":3,"3q":3,"3r":3,"3s":3,"3t":3,"O":3,"3u":3,"Z":3,"3v":3,"3w":3,"3x":3,"3y":3,"3z":3,"3A":3,"3B":3,"3C":3,"3D":3,"3E":3,"3F":3,"3G":3,"3H":3,"3I":3,"3J":3,"3K":3,"x":3,"3L":3,"3M":3,"3N":3,"3O":3,"3P":3,"3Q":3,"3R":3,"3S":8,"3T":3,"3U":3,"3V":3,"F":3,"3W":3,"3X":3,"3Y":3,"K":3,"3Z":3,"40":3,"V":3,"41":3,"11":3,"42":3,"43":3,"u":3,"10":3,"44":3,"18":3,"45":3,"46":3,"47":3,"48":3};5.2o=k(a,b){1b(9 c 4f b){6(b[c]==3){9 d=v 4j(c);6(a.1r(d)){l 3}}}l 8};5.16=k(a){4.J=v M();4.17=0;4.T=p;6(a){4.y(a)}};5.16.w={y:k(a){4.J.14(a);4.17+=a.q;4.T=p},S:k(){6(!4.T){4.T=4.J.1X("")}l 4.T},q:k(){l 4.17},W:k(i){l 4.S().4C(i)},4D:k(){4.17=0;4.J.q=0}};5.m.R=k(){};5.m.R.w={1U:0,1T:1,4I:2,U:k(a){6(!4.1f){4.1f=v M()}4.1f.14(a)},1S:k(){l 4.1f},1B:k(){l p},1R:k(a){4.1Q=a},1O:k(){l 4.1Q}};5.m.C=k(a){4.1N=a;4.1H=v M();4.1j=5.m.C.w.1j++};5.m.C.w=v 5.m.R();5.m.C.w.1j=0;5.m.C.w.1B=k(){l 5.m.R.1T};5.m.C.w.1J=k(a){l 4.1H[a]};5.m.C.w.1k=k(a,b){4.1H[a]=b};5.m.C.w.1M=k(){l 4.1N};5.m.C.w.27=k(){l 4.1j};5.m.P=k(){};5.m.P.w=v 5.m.R();5.m.P.w.1B=k(){l 5.m.R.1U};5.m.P.w.1i=k(a){l v 5.m.C(a)};5.m.P.w.50=k(a){l v 5.m.51(a)};5.7.1P=k(a){6(a!=p){4.1D=v 5.7.1h(a);4.7=a}4.1g=v M();4.1e=v M();4.Y=p;4.1t="";4.A=0;4.5a={};4.1c={};4.1p={}};5.7.1P.w={5d:k(a){6(a!=p){4.1D=v 5.7.1h(a);4.7=a}6(4.7==p||4.7.q==0){l""}9 b=v 5.m.P();9 c=b.1i("5e");c.1k("1a",3);4.1m(b,c);9 d=v 5.16();4.1l(d,c);4.22(d);l d.S()},22:k(a){6(a.q<=0){l}9 b=a.J.23();6(b){a.y(b.24(/([ \\t]+$)/g,\'\'))}},5m:k(a){9 b=a.J[a.J.q-1];6(b==p||b.W(b.q-1)=="\\n"){l 3}l 8},1L:k(a,b,c,d,e){9 f=c.19();9 g=8;9 h="";9 i=5.7.2l[f];6(i){4.1g.14(4.A);4.1e[e+":"+i]=3}o 6(4.1e[e+":"+f]){4.A=4.1g.23();5u 4.1e[f]}o 6(f==";"){4.A=0;4.1g.q=0}9 j=5.7.1V[f];6(j){6(j==3||j[4.1t]!=8){b=b.24(/([ \\t]+$)/g,\'\')}}6(5.7.2b[f]){6(4.A>0){4.A--}}6(5.7.1z[f]){6(4.1p[e]==p){4.1p[e]=3}o{4.A--}}6(5.7.2d[f]){4.1c[e]=4.A}6(5.7.2h[f]&&4.1c[e]!=p){4.A=4.1c[e]}6(5.7.1q[f]){4.Y=5.7.1q[f]}6(5.7.2m[f]||5.2o(f,5.7.1W)){6(d&&4.Y!=f){b="\\r\\n"}}6(4.Y==f){h=" ";4.Y=p}o 6((5.7.21[f]&&d)||f.1r(/^\\-\\-/)||f.1r(/\\*\\/$/)){h="\\r\\n"}o 6(5.7.1u[f]){h=5.7.1u[f]}o 6(5.7.25[f]){h=""}o{h=" "}6(b!=p&&b.W(b.q-1)==\'\\n\'){6(a.q()>0){a.y(b+4.1n(4.A)+c)}o{a.y(4.1n(4.A)+c)}}o{a.y((b==p?"":b)+c)}6(5.7.1Z[f]||5.7.1z[f]){4.A++}4.1t=f;l h},1l:k(a,b){9 c=b.1S();6(c==p){l}1b(9 i=0;i<c.q;i++){6(c[i].1M()=="2g"){4.1l(a,c[i]);I}9 d=b.1J("1a");9 e=b.27();4.2i=4.1L(a,4.2i,c[i].1O(),d,e)}l},1m:k(a,b){9 c;9 d=b.1J("1a")||8;9 e=5.7.29;9 f=5.7.28;2j((c=4.1D.2k(5.7.2n,e,f))!=p){9 g=a.1i("5D");g.1R(c);6(!d&&5.7.2c[c.19()]){d=3;b.1k("1a",3)}6(c=="("){9 h=a.1i("2g");h.U(g);b.U(h);4.1m(a,h);I}o 6(c==")"){b.U(g);l}b.U(g)}},1n:k(a){9 b="";1b(9 i=0;i<a;i++){b+=5.7.13}l b}};5.7.1h=k(a){4.X={",":3,"(":3,")":3,"!":3,"=":3,"<":3,">":3,"+":3,"-":3,"*":3,"/":3,".":3,";":3,"|":3};4.12={" ":3,"\\t":3,"\\r":3,"\\n":3};4.1w={"<":{"=":3,">":3},"(":{"*":3,"+":3},">":"=","!":"=","(+":")","(*":")","/":"*","*":"/","-":"-","|":"|","<=":3,">=":3,"!=":3,"<>":3,"(+)":3,"(*)":3,"/*":3,"*/":3,"--":3,"||":3};4.5H=p;4.7=a;4.1o=0};5.7.1h.w={2k:k(a,b,c){9 d;9 e;6(4.B&&4.B.q>0){l 4.B.2q()}6(!4.B){4.B=v M()}2j((d=4.2r())!=p){6(b||c){1E=d.19();6(5.7.2s[1E]){6(c){d=d.5N()}o{d=1E}}}4.B.14(d);e=4.B.1X(" ");9 f=a[e.19()];6(f==p){l 4.B.2q()}o 6(f==3){z}o{I}z}6(4.B.q>0){4.B.q=0;l e}o{l p}},2r:k(){9 a;9 b;9 c=v 5.16();9 d=8;9 e=8;9 f=8;9 g=8;6(4.7==p){l p}1b(9 i=4.1o;i<4.7.q;i++){a=4.7.W(i);6(i+1<4.7.q){b=4.7.W(i+1)}o{b=""}6(!e&&!f&&!g&&a=="\\\'"){d=!d;6(!d){c.y(a);z}}o 6(!d&&!f&&!g&&a=="\\""){e=!e;6(!e){c.y(a);z}}o 6(!d&&!e&&!g&&a=="-"&&b=="-"){6(!f&&c.q()>0){i--;z}f=3}o 6(f&&(a=="\\r"||a=="\\n")){f=8;z}o 6(!d&&!e&&!f&&a=="/"&&b=="*"){6(c.q()>0){i--;z}g=3}o 6(g&&a=="*"&&b=="/"){g=8;c.y(a+b);i++;z}6(!d&&!e&&!f&&!g){6(4.X[a]){6(c.q()==0){c.y(a);6(!4.X[b]&&!4.12[b]){z}I}9 h=4.1w[c.S()];6(h){6(h==a||h[a]){c.y(a);6(4.1w[c.S()]==3){z}I}}i--;z}o 6(4.12[a]){6(4.X[b]||4.12[b]){I}6(c.q()>0){z}o{I}}o{6(4.X[b]||4.12[b]){c.y(a);z}}}c.y(a)}4.1o=i+1;6(c.q()>0){l c.S()}o{l p}}};',62,361,'|||true|this|atl|if|sql|false|var|||||||||||function|return|dom||else|null|length||MATCHED||WHEN|new|prototype|THEN|append|break|indentCnt|joinArray|Element|NOT|AND|UNION|OR|ON|continue|array|UPDATE|ALL|Array|INSERT|SELECT|Document|FROM|Node|toString|stringCache|appendChild|USING|charAt|TOKEN_END_KIGOH_MAP|notBreakToken|SET|WHERE|VALUES|TOKEN_END_MAP|INDENT_STRING|push|INTERSECT|StringBuffer|len|WITH|toUpperCase|BREAK|for|baseIndentMap|MINUS|machingEndKeyMap|childArray|machingIndentArray|SqlTokenizer|createElement|elementId|setAttribute|makeSqlBuffer|createSqlNode|getIndent|tokenIdx|baseIndentPlusMinusFirstFlgMap|NOT_BREAK_TOKEN_MAP|match|END|oldUpperToken|SPECIAL_LAST_JOIN_TOKEN_MAP|LEFT|TOKEN_RENKETSU_KIGOH_MAP|NATURAL|FULL|BLOCK_INDENT_NEXT_MINUS_ALL_PLUS_TOKEN_MAP|ORDER|getNodeType|BY|tokenizer|upperToken|INNER|RIGHT|attributeHash|GROUP|getAttribute|HAVING|formatToken|getTagName|tagName|getNodeValue|SqlFormatter|value|setNodeValue|getChildNodes|ELEMENT_NODE|DOCUMENT_NODE|MAE_NO_SPACE_TOHKEN_KIGOH_MAP|MAE_EXP_BREAK_TOKEN_MAP|join|BETWEEN|INDENT_PLUS_TOKEN_MAP|CASE|ATO_BREAK_TOKEN_MAP|rTrimBuffer|pop|replace|ATO_NO_SPACE_TOHKEN_KIGOH_MAP|ELSE|getElementId|RESERVED_WORDS_LOWER_FLG|RESERVED_WORDS_UPPER_FLG|MERGE|INDENT_MINUS_TOKEN_MAP|KAKKO_BREAK_TOKEN_MAP|BASE_INDENT_SEARCH_MAP|INTO|DELETE|block|BASE_BLOCK_LEVEL_INDENT_MAP|staticSpliter|while|nextTokenJoin|MACHING_INDENT_MAP|MAE_BREAK_TOKEN_MAP|SPECIAL_JOIN_TOKEN_MAP|regMatch|JOIN|shift|nextToken|RESERVED_WORDS_MAP|LOGIN|LOOP|LOWER|MAX|MILLISECOND|MIN|MINUTE|MODIFIABLE|MODIFY|MODULE|MONEY|MONTH|NEW|NEXT|NO|NORMAL|NOTFOUND|NOW|NULL|OF|OFF|OLD|ONLY|OPEN|OPENMODE|OPTION|OUT|OUTER|OWNER|OWNERACCESS|PAGESIZE|PREALLOCATE|PREPARE|PRIMARY|PRINT|PRIOR|PRIVILEGES|PROCEDURE|PUBLIC|RANGE|READ|READONLY|REFERENCES|ABORT|RELATIVE|RELEASE|REPEAT|REPEATABLE|REPLACE|REPLICATION|RESIGNAL|RESTRICT|RETURN|RETURNS|REVOKE|ROLLBACK|ROW|ROWCOUNT|SAVEPOINT|SCHEMA|SCROLL|SECURITY|SEG|SERIALIZABLE|SIGNAL|SIZE|SOME|SQLERROR|SQLEXCEPTIONS|SQLWARNINGS|SQLSTATE|SSP_EXPR|SSP_PRED|START|STATEMENT|STRINGNULL|SUM|SVBEGIN|SVEND|TABLE|THRESHOLD|TO|TOP|TRANSACTION|TRIGGER|TRIGGERSTAMPMISC|TRUENULLCREATE|TS|TYPE|UNCOMMITTED|UNDO|UNIQUE|UNTIL|UPDATABLE|UPPER|USER|VALUE|VERIFY|VIEW|WHILE|WORK|WRITE|YEAR|ZSTRING|ABSOLUTE|ACCELERATED|ACTION|ADD|AFTER|ALTER|in|ANY|AS|ASC|RegExp|ATOMIC|AUTHORIZATION|AVG|BEFORE|BEGIN|BEGINS|BINARYNULL|BIND|BLANK|CALL|CASCADE|CHAIN|CHARACTER|CHECK|CLOSE|COBOL|COLLATE|COLUMN|substring|clear|COMMIT|COMMITTED|CONDITION|CONSTRAINT|TEXT_NODE|CONTINUE|CONVERT|COUNT|CREATE|CREATETAB|CROSS|CS|CURDATE|CURRENT|CURSOR|CURTIME|DATABASE|DCOMPRESS|DECIMALSEPARATORCOMMA|DECLARE|DEFAULT|DESC|createTextNode|Text|DIAGNOSTICS|DICTIONARY|DISTINCT|DO|DROP|EACH|ELSEIF|ESCAPE|machingIndentMap|EX|EXCLUSIVE|format|root|EXEC|EXECUTE|EXISTS|EXTERNAL|FETCH|FIRST|FN|isLastBreakBuffer|FOR|FOREIGN|GRANT|HANDLER|HOUR|IDENTITY|IF|delete|IN|INCLUDE|INDEX|INOUT|INTERNAL|IS|ISOLATION|KEY|token|LANGUAGE|LAST|LEAVE|specialJoinMap|LEGACYOWNERNAME|LENGTH|LEVEL|LIKE|LOGICAL|toLowerCase|REFERENCING'.split('|'),0,{}))
function load() {
var cookieMap = getCookieMap();
// Cookieからエレメントの初期化.
if (cookieMap["kanma"]) {
selectElementByValue(document.getElementsByName("kanma"), cookieMap["kanma"]);
}
if (cookieMap["andor"]) {
selectElementByValue(document.getElementsByName("andor"), cookieMap["andor"]);
}
if (cookieMap["indent"]) {
selectElementByValue(document.getElementsByName("indent"), cookieMap["indent"]);
}
if (cookieMap["join"]) {
selectElementByValue(document.getElementsByName("join"), cookieMap["join"]);
}
if (cookieMap["text"]) {
selectElementByValue(document.getElementsByName("text"), cookieMap["text"]);
}
if (cookieMap["kaigyo"]) {
selectElementByValue(document.getElementsByName("kaigyo"), cookieMap["kaigyo"]);
}
if (cookieMap["reserve"]) {
selectElementByValue(document.getElementsByName("kaigyo"), cookieMap["kaigyo"]);
}
}
function selectElementByValue(elements, value) {
for (var i = 0; i < elements.length; i++) {
if (elements[i].value == value) {
elements[i].checked = true;
break;
}
}
}
function getCheckedElementByName(name) {
var elements = document.getElementsByName(name);
for (var i = 0; i < elements.length; i++) {
if (elements[i].checked) {
return elements[i];
}
}
}
function getCookieMap() {
var cookieMap = [];
var cookieList = document.cookie.split(/; */);
for (var i = 0; i < cookieList.length; i++) {
var tmp = cookieList[i].split("=");
cookieMap[tmp[0]] = unescape(tmp[1]);
}
return cookieMap;
}
function getCookieString(element) {
return element.name + "=" + escape(element.value) + ";";
}
function saveCookie() {
var date = new Date();
date.setTime(date.getTime() + 3 * 365 * 24 * 60 * 60 * 1000);
document.cookie = ""
document.cookie = getCookieString(getCheckedElementByName("kanma"));
document.cookie = getCookieString(getCheckedElementByName("andor"));
document.cookie = getCookieString(getCheckedElementByName("indent"));
document.cookie = getCookieString(getCheckedElementByName("join"));
document.cookie = getCookieString(getCheckedElementByName("text"));
document.cookie = getCookieString(getCheckedElementByName("kaigyo"));
document.cookie = getCookieString(getCheckedElementByName("reserve"));
document.cookie = "expires=" + date.toGMTString();
}
function format() {
var element = document.getElementById('sql');
var kanmaElements = document.getElementsByName("kanma");
var andorElements = document.getElementsByName("andor");
var indentElements = document.getElementsByName("indent");
var joinElements = document.getElementsByName("join");
var reserveElements = document.getElementsByName("reserve");
if (kanmaElements[0].checked) {
atl.sql.ATO_BREAK_TOKEN_MAP[","] = false;
atl.sql.MAE_BREAK_TOKEN_MAP[","] = true;
atl.sql.MAE_NO_SPACE_TOHKEN_KIGOH_MAP[","] = false;
atl.sql.ATO_NO_SPACE_TOHKEN_KIGOH_MAP[","] = false;
} else {
atl.sql.ATO_BREAK_TOKEN_MAP[","] = true;
atl.sql.MAE_BREAK_TOKEN_MAP[","] = false;
atl.sql.MAE_NO_SPACE_TOHKEN_KIGOH_MAP[","] = true;
atl.sql.ATO_NO_SPACE_TOHKEN_KIGOH_MAP[","] = false;
}
if (andorElements[0].checked) {
atl.sql.ATO_BREAK_TOKEN_MAP["AND"] = false;
atl.sql.MAE_BREAK_TOKEN_MAP["AND"] = true;
atl.sql.ATO_BREAK_TOKEN_MAP["OR"] = false;
atl.sql.MAE_BREAK_TOKEN_MAP["OR"] = true;
atl.sql.ATO_BREAK_TOKEN_MAP["ON"] = false;
atl.sql.MAE_BREAK_TOKEN_MAP["ON"] = true;
} else if (andorElements[1].checked) {
atl.sql.ATO_BREAK_TOKEN_MAP["AND"] = true;
atl.sql.MAE_BREAK_TOKEN_MAP["AND"] = false;
atl.sql.ATO_BREAK_TOKEN_MAP["OR"] = true;
atl.sql.MAE_BREAK_TOKEN_MAP["OR"] = false;
atl.sql.ATO_BREAK_TOKEN_MAP["ON"] = true;
atl.sql.MAE_BREAK_TOKEN_MAP["ON"] = false;
} else {
atl.sql.ATO_BREAK_TOKEN_MAP["AND"] = true;
atl.sql.MAE_BREAK_TOKEN_MAP["AND"] = true;
atl.sql.ATO_BREAK_TOKEN_MAP["OR"] = true;
atl.sql.MAE_BREAK_TOKEN_MAP["OR"] = true;
atl.sql.ATO_BREAK_TOKEN_MAP["ON"] = true;
atl.sql.MAE_BREAK_TOKEN_MAP["ON"] = true;
}
if (indentElements[0].checked) {
atl.sql.INDENT_STRING = "\t";
atl.sql.SPECIAL_LAST_JOIN_TOKEN_MAP["AND"] = atl.sql.INDENT_STRING;
atl.sql.SPECIAL_LAST_JOIN_TOKEN_MAP["OR"] = atl.sql.INDENT_STRING;
atl.sql.SPECIAL_LAST_JOIN_TOKEN_MAP["ON"] = atl.sql.INDENT_STRING;
} else {
atl.sql.INDENT_STRING = " ";
atl.sql.SPECIAL_LAST_JOIN_TOKEN_MAP["AND"] = " ";
atl.sql.SPECIAL_LAST_JOIN_TOKEN_MAP["OR"] = " ";
atl.sql.SPECIAL_LAST_JOIN_TOKEN_MAP["ON"] = " ";
}
if (joinElements[0].checked) {
atl.sql.ATO_BREAK_TOKEN_MAP["JOIN"] = true;
} else if (joinElements[1].checked) {
atl.sql.ATO_BREAK_TOKEN_MAP["JOIN"] = false;
}
if (reserveElements[0].checked) {
atl.sql.RESERVED_WORDS_UPPER_FLG = false;
atl.sql.RESERVED_WORDS_LOWER_FLG = false;
} else if (reserveElements[1].checked) {
atl.sql.RESERVED_WORDS_UPPER_FLG = true;
atl.sql.RESERVED_WORDS_LOWER_FLG = false;
} else if (reserveElements[2].checked) {
atl.sql.RESERVED_WORDS_UPPER_FLG = false;
atl.sql.RESERVED_WORDS_LOWER_FLG = true;
}
if (element.value.length > 0) {
var formater = new atl.sql.SqlFormatter(element.value);
element.value = formater.format();
}
saveCookie();
};
function changeText() {
var element = document.getElementById('sql');
saveCookie();
if (element.value.length == 0) {
return;
}
var textElements = document.getElementsByName("text");
var kaigyo = getCheckedElementByName("kaigyo").value;
var lines = element.value.split(/\r?\n/);
var buffer = [];
for (var i = 0; i < lines.length; i++) {
if (textElements[1].checked) {
// Java
buffer.push((lines[i].replace(/\\/g, "\\\\").replace(/\"/g, "\\\"") + kaigyo).replace(/^|$/g, "\""));
element.value = buffer.join(" +\r\n");
} else if (textElements[2].checked) {
// Perl
buffer.push((lines[i].replace(/\\/g, "\\\\").replace(/\"/g, "\\\"") + kaigyo).replace(/^|$/g, "\""));
element.value = buffer.join(" .\r\n");
} else if (textElements[0].checked) {
// VB.NET
buffer.push((lines[i].replace(/\\/g, "\\\\").replace(/\"/g, "\\\"") + kaigyo).replace(/^|$/g, "\""));
element.value = buffer.join(" & vbCrLf _ \r\n& ");
}
}
}
</SCRIPT>
<div align="center" style="">
<table style="border: 1px solid gray;width:380px;font-size: 90%;" >
<tr align="left">
<td>カンマ整形：</td>
<td><label><input type="radio" name="kanma" value="0" checked>前</label></td>
<td><label><input type="radio" name="kanma" value="1">後</label></td>
<td></td>
</tr>
<tr align="left">
<td>AND/OR/ON整形：</td>
<td><label><input type="radio" name="andor" value="0">前</label></td>
<td><label><input type="radio" name="andor" value="1">後</label></td>
<td><label><input type="radio" name="andor" value="2" checked>独立</label></td>
<td></td>
</tr>
<tr align="left">
<td>インデント：</td>
<td><label><input type="radio" name="indent" value="0" checked>タブ</label></td>
<td><label><input type="radio" name="indent" value="1">スペース4</label></td>
<td></td>
</tr>
<tr align="left">
<td>JOIN形式：</td>
<td><label><input type="radio" name="join" value="0">パターンA</label></td>
<td><label><input type="radio" name="join" value="1" checked>パターンB</label></td>
<td></td>
</tr>
<tr align="left">
<td>予約語：</td>
<td><label><input type="radio" name="reserve" value="0">変換なし</label></td>
<td><label><input type="radio" name="reserve" value="1">大文字</label></td>
<td><label><input type="radio" name="reserve" value="2" checked>小文字</label></td>
</tr>
</table>
<br>
<textarea rows=16 cols=80 id="sql"style="overflow:scroll;font-family:'ＭＳ ゴシック',sans-serif;" wrap=off placeholder="SQL文を記述"></textarea>
<br>
<input type="button" value="整形する" onclick="format();">
<br><br>
<div style="width:380px;font-size: 90%;" align="left">
おまけ：<br>
</div>
<table style="border: 1px solid gray;width:380px;font-size: 90%;">
<tr align="left">
<td>変換フォーマット：</td>
<td><input type="radio" name="text" value="0" checked>VB</td>
<td><input type="radio" name="text" value="1">Java</td>
<td><input type="radio" name="text" value="2">Perl</td>
<td></td>
</tr>
<tr align="left">
<td>改行コード：</td>
<td><input type="radio" name="kaigyo" value=" ">なし</td>
<td><input type="radio" name="kaigyo" value="\n">\n</td>
<td><input type="radio" name="kaigyo" value="\r\n">\r\n</td>
<td><input type="radio" name="kaigyo" value="vbCrLf" checked>vbCrLf</td>
</tr>
</table>
<input type="button" value="テキスト変換" onclick="changeText();">
</div>
<hr>
<!-- sqlformater for web end.-->
<!-- Content -->
</body>
</html>
2015-12-23T13:43:28+09:001450845808tmp10
https://w.atwiki.jp/prime503/pages/72.html
Imports System.Windows.Forms
Module Module1
Sub Main()
'クリップボードのオブジェクトを取り出し
Dim data As IDataObject = My.Computer.Clipboard.GetDataObject()
'テキスト
Dim txt As String = Nothing
If data.GetDataPresent(DataFormats.UnicodeText) Then
'ユニコードのテキスト
txt = DirectCast(data.GetData(DataFormats.UnicodeText), String)
ElseIf data.GetDataPresent(DataFormats.Text) Then
'テキストに変換
txt = DirectCast(data.GetData(DataFormats.Text), String)
End If
'テキストがあるなら
If Not txt Is Nothing Then
'クリップボードをクリア
My.Computer.Clipboard.Clear()
'変換
txt = Transrate(txt)
'クリップボードに文字列を設定
My.Computer.Clipboard.SetText(txt)
End If
End Sub
''' <summary>
'''
''' </summary>
''' <param name="str"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Function Transrate(ByVal str As String) As String
Dim pattern1 As String = "\d{4}-\d{4}"
Dim pattern2 As String = pattern1 & "-\d{2}"
Dim pattern3 As String = pattern2 & "-\d{4}"
'Regexオブジェクトを作成
Dim r3 As New System.Text.RegularExpressions.Regex(pattern3)
Dim r2 As New System.Text.RegularExpressions.Regex(pattern2)
Dim r1 As New System.Text.RegularExpressions.Regex(pattern1)
'正規表現と一致する対象を1つ検索
Dim m3 As System.Text.RegularExpressions.Match = r3.Match(str)
Dim m2 As System.Text.RegularExpressions.Match = r2.Match(str)
Dim m1 As System.Text.RegularExpressions.Match = r1.Match(str)
If m3.Success Then
'一致した対象が見つかったときキャプチャした部分文字列を表示
Return m3.Value
ElseIf m2.Success Then
Return m2.Value
ElseIf m1.Success Then
Return m1.Value
End If
Return String.Empty
End Function
End Module 2015-04-19T17:13:35+09:001429431215便利アプリ
https://w.atwiki.jp/prime503/pages/47.html
**便利アプリ
ちょっとした便利アプリ
**VB
[[ファイルのフルパスをクリップボードにコピー]]
[[ParrotClipper]]
[[SparrowTransrator]]
**bat
[[特定のプロセスを殺す]] 2014-11-27T01:35:59+09:001417019759