업체측 샘플 변경

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

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

ArinWarev1/My Project/Settings.Designer.vb

@@ -64,6 +64,19 @@ Namespace My
                 Return CType(Me("cs"),String)
             End Get
         End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("<?xml version=""1.0"" standalone=""yes""?>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<DS xmlns=""http://tempuri.org/DS.xsd"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ 
+            "  {data}"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</DS>")>  _
+        Public Property xmlformat() As String
+            Get
+                Return CType(Me("xmlformat"),String)
+            End Get
+            Set
+                Me("xmlformat") = value
+            End Set
+        End Property
     End Class
 End Namespace
 

ArinWarev1/My Project/Settings.settings

@@ -10,5 +10,11 @@
 &lt;/SerializableConnectionString&gt;</DesignTimeValue>
       <Value Profile="(Default)">Data Source=ms0501.gabiadb.com;Initial Catalog=eco2;User ID=raytrace;Password=arin</Value>
     </Setting>
+    <Setting Name="xmlformat" Type="System.String" Scope="User">
+      <Value Profile="(Default)">&lt;?xml version="1.0" standalone="yes"?&gt;
+&lt;DS xmlns="http://tempuri.org/DS.xsd"&gt;
+   {data}
+&lt;/DS&gt;</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

ArinWarev1/app.config

@@ -1,7 +1,10 @@
 <?xml version="1.0"?>
 <configuration>
 	<configSections>
-	</configSections>
+	 <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+   <section name="Eco2Ar.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+  </sectionGroup>
+ </configSections>
 	<connectionStrings>
   <add name="Eco2Ar.My.MySettings.cs" connectionString="Data Source=ms0501.gabiadb.com;Initial Catalog=eco2;User ID=raytrace;Password=arin"
    providerName="System.Data.SqlClient" />
@@ -26,4 +29,14 @@
 			<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
 		</sharedListeners>
 	</system.diagnostics>
-	<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/></startup></configuration>
+	<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/></startup><userSettings>
+  <Eco2Ar.My.MySettings>
+   <setting name="xmlformat" serializeAs="String">
+    <value>&lt;?xml version="1.0" standalone="yes"?&gt;
+&lt;DS xmlns="http://tempuri.org/DS.xsd"&gt;
+   {data}
+&lt;/DS&gt;</value>
+   </setting>
+  </Eco2Ar.My.MySettings>
+ </userSettings>
+</configuration>