Initial commit

.svn/pristine/87/873bd2410ad23951f64703e5b45424309d9279aa.svn-base

@@ -0,0 +1,52 @@
+Imports System.IO
+Module Module1
+
+    Dim ds As New DataSet
+    Sub Main()
+        Dim subdir As Integer = 0
+        Dim outputpath As String
+
+        outputpath = My.Settings.OutputPath + subdir.ToString + "\"
+        System.IO.Directory.CreateDirectory(outputpath)
+
+        Dim i As Integer
+        FileOpen(1, My.Settings.InputFile, OpenMode.Input)
+        Dim s As String
+        Dim Filename As String
+        ds.ReadXml(My.Settings.Strukturfile)
+        ds.Tables(0).Rows.Clear()
+
+        While Not EOF(1)
+            Input(1, s)
+            i = i + 1
+            If i > 500 Then
+                i = 0
+                ds.WriteXml(outputpath + s + ".ind")
+                ds.Tables(0).Rows.Clear()
+                subdir = subdir + 1
+                outputpath = My.Settings.OutputPath + subdir.ToString + "\"
+                System.IO.Directory.CreateDirectory(outputpath)
+            End If
+            Dim dr As DataRow
+
+            Filename = s + "_AGB.pdf"
+            dr = ds.Tables(0).NewRow
+            For Each c As DataColumn In ds.Tables(0).Columns
+                dr(c.ColumnName) = ""
+            Next
+            dr("Partnernr") = s
+            dr("Funktion") = "ADD"
+            dr("Dokumenttypnr") = My.Settings.Doktype.ToString
+            dr("dateiname") = Filename
+            dr("Dateiformat") = "PDF"
+            dr("Ersteller") = My.Settings.Ersteller
+            dr("dokumentwert2") = ""
+            ds.Tables(0).Rows.Add(dr)
+            System.IO.File.Copy(My.Settings.AGBFile, outputpath + Filename)
+        End While
+        ds.WriteXml(outputpath + s + ".ind")
+
+
+    End Sub
+
+End Module