업체측 샘플 변경

데이터의 공백 자동 변경하게 함

ArinWarev1/MdiMain.vb

@@ -3394,16 +3394,61 @@ ENDSTAT:  '//
         If od.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
 
         Try
-            Pub.DSET1.Clear()
-            Pub.DSET1.AcceptChanges()
-            Dim xr As XmlReadMode = Pub.DSET1.ReadXml(od.FileName)
-            Pub.DSET1.AcceptChanges()
+
+
+
+
+            Dim buffer As String = System.IO.File.ReadAllText(od.FileName, System.Text.Encoding.UTF8)
+            Dim data As String = My.Settings.xmlformat.Replace("{data}", buffer)
+            Dim fn As String = "import.xml"
+            System.IO.File.WriteAllText(fn, data, System.Text.Encoding.UTF8)
+
+            Dim tempds As New DS()
+            Dim xr As XmlReadMode = tempds.ReadXml(fn)
+
+            DSET1.AcceptChanges()
+            tempds.AcceptChanges()
+
+            Dim sb As New System.Text.StringBuilder()
+            sb.AppendLine("--- <20>߰<EFBFBD><DFB0><EFBFBD> <20><><EFBFBD><EFBFBD> ---")
+            '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD> <20>⺻ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD>
+            For Each tb As DataTable In tempds.Tables
+
+                '//<2F>ڷᰡ <20><><EFBFBD><EFBFBD> <20><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD> ó<><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ʴ´<CAB4>
+                If tb.Rows.Count < 1 Then Continue For
+
+                sb.AppendLine("[" + tb.TableName + "] " + tb.Rows.Count.ToString() + " Lines")
+
+                '//<2F><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+                For Each dr As DataRow In tb.Rows
+                    For Each dc As DataColumn In tb.Columns
+                        If dr(dc.ColumnName) Is DBNull.Value Then
+
+                        Else
+                            dr(dc.ColumnName) = dr(dc.ColumnName).ToString().Trim() '//<2F><><EFBFBD><EFBFBD> <20>ڵ<EFBFBD> <20><><EFBFBD><EFBFBD>
+                        End If
+                    Next
+                    dr.EndEdit()
+                    dr.AcceptChanges()
+                Next
+
+                '//<2F><><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD>
+                DSET1.Tables(tb.TableName).Clear()
+                DSET1.Tables(tb.TableName).AcceptChanges()
+
+                '//<2F><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
+                DSET1.Tables(tb.TableName).Merge(tb)
+            Next
+
+            DSET1.AcceptChanges()
 
             FixData(False)  '//<2F><><EFBFBD><EFBFBD><EFBFBD>ͺ<EFBFBD><CDBA><EFBFBD>
             Calc.validation()    '//null<6C><6C><EFBFBD><EFBFBD>
             Menu_<EFBFBD>ǹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>()
             Me.RefreshMenuList("")
 
+            MsgboxI(sb.ToString())
+
         Catch ex As Exception
             MsgboxE("<EFBFBD>ܺ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>\n" + ex.Message)
         End Try