tmp15

2016-11-20T14:05:53+09:00

Imports System.Runtime.Serialization _ 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

tmp14

2016-06-21T00:36:15+09:00

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 '''

''' ディレクトリをコピーする '''

''' コピーするディレクトリ ''' コピー先のディレクトリ Public Sub CopyDirectory( _ ByVal

tmp13

2016-05-19T05:14:36+09:00

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

tmp12

2016-04-23T10:22:34+09:00

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

tmp11

2016-03-22T02:22:27+09:00

'''

''' RRRXXYのデータ '''

''' Public Class XXXXXZData Public OPRXXZCode As String Public ParentCode As String Public OPRKubun As Integer Public OPRcd As String Private _clsOPQindex As clsOPQindex '''

''' OPQIndex ''' ※更新禁止 '''

''' ''' ''' Public ReadOnly Property OPQindex() As clsOPQindex Get Return _clsOPQindex End Get End Property Private _clsOPROrd As New List(Of clsOPROrd) '''

''' OPROrd ''' ※更新禁止 '''

''' ''' ''' Public ReadOnly Property OPROrd() As List(Of clsOPROrd) Get Return _clsOPROrd End Get End Property Private _childXXZList As New List(Of XXXXXZData) '''

''' このXXYの直下にある子

cliptest

2015-12-23T15:49:09+09:00

■xJoin ="'" & A1 & "'" ■xJoin2 =A1 =B1 & "," & A2 ■xJoin3 ="'" & A1 & "'" =B1 ="'" & A2 & "'" =C1 & "," & B2 ■xIn ="in (" & A1 & ")"

query2

2015-12-23T13:44:00+09:00

query

2015-12-23T13:43:28+09:00

SQLフォーマッター

いぬもあるけばぼうもあるく