AutoEpub3/My Project/Application.Designer.vb (diff) AutoEpub3/My Project/Application.myapp (diff) AutoEpub3/StudyCode.vb (diff)| @@ -32,7 +32,7 @@ | ||
| 32 | 32 | |
| 33 | 33 | <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _ |
| 34 | 34 | Protected Overrides Sub OnCreateMainForm() |
| 35 | - Me.MainForm = Global.AutoEpub3.AutoRuby | |
| 35 | + Me.MainForm = Global.AutoEpub3.StudyCode | |
| 36 | 36 | End Sub |
| 37 | 37 | End Class |
| 38 | 38 | End Namespace |
| @@ -1972,7 +1972,7 @@ | ||
| 1972 | 1972 | End Function |
| 1973 | 1973 | |
| 1974 | 1974 | Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click |
| 1975 | - Dim sPathFrom As String = "D:\SVN\03_POS\POS_SG\GPOS\MLF\Recept\cRecept_058.vb" | |
| 1975 | + Dim sPathFrom As String = "D:\SVN\03_POS\POS_SG\GPOS\ACC01.xaml.vb" | |
| 1976 | 1976 | Dim sPathTo As String = "D:\Soft\DIFF\" |
| 1977 | 1977 | |
| 1978 | 1978 | Dim listSkip As New List(Of String) |
| @@ -1981,8 +1981,8 @@ | ||
| 1981 | 1981 | |
| 1982 | 1982 | |
| 1983 | 1983 | Dim listDiffCode As New List(Of modelDiffCode) |
| 1984 | - listDiffCode.Add(New modelDiffCode(sPathFrom, 1568, 3447, sPathTo & "Main.txt", listSkip)) | |
| 1985 | - listDiffCode.Add(New modelDiffCode(sPathFrom, 3448, 5113, sPathTo & "Oes.txt", listSkip)) | |
| 1984 | + listDiffCode.Add(New modelDiffCode(sPathFrom, 32262, 33425, sPathTo & "Main.txt", listSkip)) | |
| 1985 | + listDiffCode.Add(New modelDiffCode(sPathFrom, 33427, 34546, sPathTo & "Oes.txt", listSkip)) | |
| 1986 | 1986 | |
| 1987 | 1987 | |
| 1988 | 1988 | subOutPutCode(listDiffCode, True) |