Imports System.IO

Imports System.Math

Imports System

Imports System.Security

Imports System.Security.Cryptography

Imports cl = System.Linq

Imports System.Diagnostics

Imports System.Runtime.InteropServices

'Imports Microsoft.VisualBasic

​

''*************************

''** Global Variables

''*************************

​

'Dim strFileToEncrypt As String

'Dim strFileToDecrypt As String

'Dim strOutputEncrypt As String

'Dim strOutputDecrypt As String

'Dim fsInput As System.IO.FileStream

'Dim fsOutput As System.IO.FileStream

​

​

Public Class Form1

​

​

​

​

    Private Sub FolderBrowserDialog1_HelpRequest(sender As Object, e As EventArgs) Handles FolderBrowserDialog1.HelpRequest

​

    End Sub

​

    Private Sub Button7_Click(sender As Object, e As System.EventArgs) Handles Button7.Click

        If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then

            TextBox1.Text = FolderBrowserDialog1.SelectedPath

        End If

    End Sub

​

    Public Shared Function from852(ByVal inString As String) As String

​

        Dim iso_8859_1 As Integer = 28591

        Dim encoding As System.Text.Encoding = System.Text.Encoding.GetEncoding(iso_8859_1)

        Dim cp852 As System.Text.Encoding = System.Text.Encoding.GetEncoding("ibm852")

        Dim bytes = System.Text.Encoding.Default.GetBytes(inString)

​

        Return cp852.GetString(bytes)

​

    End Function

​

    'Public Shared Function progress_100(ByVal iterace As Integer, suma As Integer) As Boolean

​

    '    'Nastaveni procent v progressbaru a Labelu

    '    Form1.ProgressBar1.Value = Truncate(iterace / suma)

    '    Form1.Label3.Text = Truncate(iterace / suma)

​

    '    If Form1.ProgressBar1.Value = 100 Then progress_100 = True

​

    'End Function

​

    'Public Shared Function progress_0_vis()

​

    '    'Zviditelneni progressbaru

​

    '    Form1.ProgressBar1.Visible = True

    '    Form1.Label3.Visible = True

​

    'End Function

​

​

​

​

    Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim vstup, vystup As String

        Dim win1250 As VariantType

        Dim j As String

​

​

        'Dim procenta As Integer

​

        'textbox1 vstup, textbox2 vystup

​

        vstup = TextBox1.Text

        vystup = TextBox2.Text

​

        'automaticke vytvoreni slozky na vystupu kdyz neni

        If (Not System.IO.Directory.Exists(vystup)) Then

            System.IO.Directory.CreateDirectory(vystup)

        End If

​

        'nacteni vsech souboru txt ve vstupu do pameti

        Dim files() As String = IO.Directory.GetFiles(vstup)

        For Each file As String In files

            Dim text As String = IO.File.ReadAllText(file)

        Next

​

        'progress_0_vis()

​

        'procenta = files.Count

        'For Each file As String In files

        For i As Integer = 1 To files.Count - 1

            'FileOpen(FreeFile, file, OpenMode.Input)

            Dim obsah As New List(Of String)

            Dim reader As System.IO.StreamReader

            'progress_100(i, files.Count)

​

            reader = New StreamReader(files(i), System.Text.Encoding.Default)

​

            Dim radek As String

            radek = reader.ReadLine()

            Do While (Not radek Is Nothing)

                obsah.Add(radek)

                Console.WriteLine(radek)

                radek = reader.ReadLine

                If IsNothing(radek) Then GoTo EOL_souboru

                'win1250 = System.Text.Encoding.GetEncoding(1250)

                radek = from852(radek)

            Loop

​

EOL_souboru:

            '    For Each radek As String In file

            'Dim radek2 As String = radek

            'Next

            'FileClose(FreeFile)

​

            'FileOpen(i, TextBox2.Text & "\" & i & ".txt.", OpenMode.Output)

            'For j = 0 To radek.Count - 1

            '    writer

            'Next j

            'FileClose(i)

            Select Case True

                Case i > 0 And i < 10

                    j = "00000"

                Case i > 9 And i < 100

                    j = "0000"

                Case i > 99 And i < 1000

                    j = "000"

                Case i > 999 And i < 10000

                    j = "00"

                Case i > 9999 And i < 100000

                    j = "0"

                Case Else

                    j = ""

            End Select

​

            Dim FileName As String = TextBox2.Text & j & i & ".txt"

            System.IO.Directory.CreateDirectory(vystup)

            IO.File.WriteAllLines(FileName, obsah)

​

        Next i

        'Debug.Print()

​

        'ProgressBar1.Visible = False

        'Label3.Visible = False

​

​

        Debug.Print("ahoj")

    End Sub

​

    Private Sub Button8_Click(sender As Object, e As System.EventArgs) Handles Button8.Click

        If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then

            TextBox2.Text = FolderBrowserDialog1.SelectedPath

        End If

    End Sub

​

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim myDir As DirectoryInfo = New DirectoryInfo(TextBox2.Text)

​

        If (myDir.EnumerateFiles().Any()) Then

            ' Got files in direcotry!

zpetna_button2:

            CheckBox2.Checked = False

            MsgBox("Výstupní složka není prázdná")

        Else

            '    My.Computer.FileSystem.CreateDirectory(myDir)

            '   For i = 1 To 1

            '   GoTo zpetna_button2

            '  Next

            'CheckBox2.Enabled = False

            CheckBox2.Checked = True

        End If

    End Sub

​

​

    'Prevod_dat_z_EET-do_XML

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        'DD je nazev dne

        Dim vstup, vystup, DD, xml_slozka As String

        Dim hodina, minuta, vterina, rok, mesic, den As String

        Dim pocet, nazev, cena As String

        Dim x() As String

        Dim n As Byte

        Dim xx As Byte = 1

        Dim poradi_xml As Integer

        'Dim IComparer Comparer = New YourCustomComparer()

        'Dim files() As String

​

        'Dim myComparer As New NaturalStringComparer

​

        'Dim sorted As IO.FileInfo() = di.GetFiles()

        'Zavreni otevrenych souboru

        'Close()

​

​

​

        'Dim procenta As Integer

​

        'textbox1 vstup, textbox2 vystup

​

        vstup = TextBox1.Text

        vystup = TextBox2.Text

        xml_slozka = TextBox2.Text & "xml\"

​

        'automaticke vytvoreni slozky na vystupu kdyz neni

        If (Not System.IO.Directory.Exists(vystup)) Then

            System.IO.Directory.CreateDirectory(vystup)

        End If

​

        'nacteni vsech souboru txt ve vstupu do pameti

        Dim files() As String = IO.Directory.GetFiles(vystup)

​

        For Each file As String In files

            Dim text As String = IO.File.ReadAllText(file)

        Next

​

        'Dim files() = IO.Directory.GetFiles(vystup)

        'For Each file In files.OrderBy(Function(filePath) CInt(IO.Path.GetFileNameWithoutExtension(filePath)))

        '    Console.WriteLine(file)

        '    Dim text As String = IO.File.ReadAllText(file)

        'Next

        'For Each item In sorted.OrderBy(Function(i) i.Name)

        '    files().

        'Next

        'Dim files2() As String = files.OrderBy(New Func(Of String, Integer)(Function(fn As String)Return New Fileinfo)

        'Array.Sort(files, AddressOf FileInfoComparer)

        'Array.Sort(files, New myComparer)

        'System.Array.Sort(Of String)(files)

        'files.Sort(myComparer)

        'Array.Sort(files, New FileNameComparer)

​

​

        'vytvoreni vystupni slozky xml

        If (Not System.IO.Directory.Exists(xml_slozka)) Then

            System.IO.Directory.CreateDirectory(xml_slozka)

        End If

        'progress_0_vis()

​

        'procenta = files.Count

        'For Each file As String In files

        vstup = vystup

​

        If xx < 2 Then

            Form2.ShowDialog()

        End If

        'ochrana mazani pouze xml souboru v dane slozce

        If CheckBox4_smazat.Checked = True And xx < 2 Then

            For Each deletefile In Directory.GetFiles(TextBox2.Text & "xml\", "*.xml", SearchOption.TopDirectoryOnly)

                File.Delete(deletefile)

            Next

            xx = 2

        Else xx = xx + 2

        End If

        poradi_xml = 0

​

        For i As Integer = 0 To files.Count - 1

            'FileOpen(FreeFile, file, OpenMode.Input)

            Dim obsah, pocet2, nazev2, cena2 As New List(Of String)

            'Dim obsah, pocet2, nazev2, cena2, id1, id1a, id1b, id1c As New List(Of String)

            Dim id1_nazvy As String

            Dim id1(), id1a(), id1b() As String

            Dim reader As System.IO.StreamReader

            Dim L As Integer

​

            Dim pocet_predch As Boolean = False

            Dim pos As Boolean = False, A As Boolean = False

            Dim poloha_pokladna As Byte

            Dim c_uctu, bkp, pkp, fik As String

            Dim radek_predch As String

            Dim kredit As Boolean = False

​

            'progress_100(i, files.Count)

​

            'reader = New StreamReader(files(i), System.Text.Encoding.GetEncoding("ibm852"))

            reader = New StreamReader(files(i))

​

            Dim radek As String

            radek = reader.ReadLine()

            'radek = from852(radek)

            L = 1

            poradi_xml = poradi_xml + 1

            radek_predch = ""

​

            Do While (Not radek Is Nothing)

                radek_predch = radek

                'radek = from852(radek)

                obsah.Add(radek)

                Console.WriteLine(radek)

​

                radek = reader.ReadLine

                If IsNothing(radek) Then GoTo EOL_souboru

                '        radek = from852(radek)

​

                If InStr(radek, "S:POS") <> 0 Then

​

​

​

                    'naplneni dat do potrebneho formatu!!!

                    If nazev2.Count <> 0 Then

                        poradi_xml = poradi_xml + 1

                        pole_to_xml(TextBox2.Text & "xml\", poradi_xml & ".xml", L, nazev2.Count, rok, mesic, den, c_uctu, bkp, pkp, fik)

                        For m = 0 To nazev2.Count - 1

                            polozky(TextBox2.Text & "xml\" & poradi_xml & ".xml", pocet2(m), nazev2(m), cena2(m))

                        Next m

                        paticka_xml(TextBox2.Text & "xml\" & poradi_xml & ".xml", cena)

                        'a pokracujeme zase

                        'A = True

                        'GoTo xml

                        'prevod:

                        'A = False

                        pos = True

​

                        obsah.Clear()

                        pocet2.Clear()

                        nazev2.Clear()

                        cena2.Clear()

                        bkp = ""

                        fik = ""

                        pkp = ""

                        c_uctu = ""

                        'rok = Nothing

                        'den = Nothing

                        'hodina = Nothing

                        'minuta = Nothing

                        'vterina = Nothing

                        'DD = Nothing

                        'pocet = Nothing

​

                    Else

                        obsah.Clear()

                        pos = False

                    End If

                End If

​

                If InStr(radek, "Provozovna") <> 0 Then

                    '    poloha_pokladna = InStr(radek, "_1/")

                    c_uctu = Mid(radek, 39)

                End If

​

                If InStr(radek, "BKP:") <> 0 Then

                    bkp = Mid(radek, 6)

                End If

​

                If InStr(radek, "PKP:") <> 0 Then

                    pkp = Mid(radek, 6)

                End If

​

                If InStr(radek, "FIK:") <> 0 Then

                    fik = Mid(radek, 6)

                End If

​

                If InStr(radek, "Předběžný") <> 0 Then

                    GoTo dalsi_uctenka

                End If

​

​

                If InStr(radek, ":") <> 0 And InStr(radek, "S:P") = 0 And InStr(radek, "RNO:") = 0 And InStr(radek, ": ") = 0 And InStr(radek, " :") = 0 _

                    And InStr(radek, "Hotovost") = 0 And InStr(radek, "Karta") = 0 Then

                    radek = Trim(radek)

                    vterina = Convert.ToInt32((Strings.Right(radek, 2)))

                    minuta = Convert.ToInt32(Mid(radek, Len(radek) - 4, 2))

                    'minuta = Mid(radek, Len(radek)-4, 2)

                    hodina = Convert.ToInt32(Mid(radek, Len(radek) - 7, 2))

                    rok = Convert.ToInt32(Mid(radek, Len(radek) - 12, 4))

                    mesic = Convert.ToInt32(Mid(radek, Len(radek) - 15, 2))

                    den = Convert.ToInt32(Mid(radek, Len(radek) - 18, 2))

                    DD = Strings.Left(radek, 2)

                End If

​

                If InStr(radek, "placeno") <> 0 Or InStr(radek, "POS:P") <> 0 Then pocet_predch = False

​

                If pocet_predch = True And Not InStr(radek, "elkem") <> 0 And InStr(radek, "S:P") = 0 _

                    And InStr(radek, "RNO:") = 0 And InStr(radek, ": ") = 0 And InStr(radek, " :") = 0 _

                    And InStr(radek, "Mezisou") = 0 And InStr(radek, "Hotovost") = 0 And InStr(radek, "Karta") = 0 _

                    And InStr(radek, "Kredit") = 0 And InStr(radek, "Předběžný") = 0 And Not radek = "" Then

                    pocet2.Add(Mid(radek, 1, InStr(radek, " ") - 1))

​

                    'otazka esi tato fce ma smysl

                    'radek = radek.Replace(" á ", "     ")

​

                    'If Not InStr(radek, "    ") <> 0 Then

                    Select Case True

                        Case InStr(radek, " á ") <> 0 'ASCII '20 c3 a1 c2 a0' a to tedy vcetne non-break mezery

                            nazev2.Add(Trim(Mid(radek, InStr(radek, " "), InStr(radek, " á ") - 6)))

                        Case InStr(radek, " á ") <> 0 'Normalka mezera oboustran

                            nazev2.Add(Trim(Mid(radek, InStr(radek, " "), InStr(radek, " á ") - 2)))

                        Case Len(Trim(Replace(radek, Chr(&HA0), ""))) < 8 And Len(Trim(Replace(radek, Chr(&HA0), ""))) > 0 ' zmena non-break mezery a oprava ceny na predchozi iteraci

                            radek = Trim(Replace(radek, Chr(&HA0), ""))

                            cena2(cena2.Count - 1) = radek

                        Case Else 'vse ostatni tedy do prvni mezery od konce

                            nazev2.Add(Trim(Mid(radek, InStr(radek, " "), InStrRev(Trim(radek), " ") - 1)))

                    End Select

                    'End If

                    'If 

​

                    '        Else

                    '    nazev2.Add(Trim(Mid(radek, InStr(radek, " "), InStr(radek, "    ") - 1)))

                    'End If

​

                    Select Case True

                        Case InStr(radek, " á ") <> 0

                            cena2.Add(Trim(Mid(radek, InStr(radek, " á ") + 3, 8)))

                        Case Else

                            cena2.Add(Trim(Strings.Right(radek.Trim(), 9)))

                    End Select

​

                    'cena2.Add(Trim(Strings.Right(radek.Trim(), 9))) - 'mozna funkcni

​

​

​

                End If

​

                    If InStr(radek, "Celkem pl") <> 0 Then

                    cena = Strings.Right(radek.Trim(), 9)

                End If

​

                If InStr(radek, "Počet") <> 0 Then

                    pocet_predch = True

​

                End If

                'If InStr(radek, "Provozovna") <> 0 Then

                '    id1() = Split(radek, ":")

                '    'For i = 0 To id1.length - 1

                '    id1a.Add(Split(id1(0), "/"))

                '    id1b.Add(Split(id1(1), "/"))

                'End If

​

                If InStr(radek, "Předběžný") <> 0 Or InStr(radek, "Kredit") <> 0 Then

dalsi_uctenka:

                    obsah.Clear()

                    pocet2.Clear()

                    nazev2.Clear()

                    cena2.Clear()

                    bkp = ""

                    fik = ""

                    pkp = ""

                    c_uctu = ""

                    'kredit = True

                    Continue Do

                End If

​

​

            Loop

​

​

​

EOL_souboru:

            '    For Each radek As String In file

            'Dim radek2 As String = radek

            'Next

            'FileClose(FreeFile)

​

            'FileOpen(i, TextBox2.Text & "\" & i & ".txt.", OpenMode.Output)

            'For j = 0 To radek.Count - 1

            '    writer

            'Next j

            'FileClose()

            'Close()

            If kredit = True Then

                obsah.Clear()

            End If

            kredit = False

​

            reader.Close()

            'Dim FileName As String = TextBox2.Text & "xml2\" & i + 1 & ".xml"

            'IO.File.WriteAllLines(FileName, obsah)

            'Close()

​

        Next i

        'Debug.Print()

​

        'ProgressBar1.Visible = False

        'Label3.Visible = False

​

​

​

    End Sub

​

    Sub pole_to_xml(cesta As String, soubor As String, id As Integer, n As Byte, rok As String, mesic As String,

    den As String, c_uctu As String, bkp As String, pkp As String, fik As String)

​

        Dim x(150) As String

        Dim xml_soubor As New IO.StreamWriter(cesta & soubor, True)

​

        'POZADAVEK>>>

        'ReDim x(n)

​

        'If n <> 1 Then

        '    x(44 + n * 11) = x(44)

        '    x(45 + n * 11) = x(45)

        '    x(46 + n * 11) = x(46)

        '    x(47 + n * 11) = x(47)

        '    x(48 + n * 11) = x(48)

        '    x(49 + n * 11) = x(49)

        '    x(50 + n * 11) = x(50)

        '    x(51 + n * 11) = x(51)

        '    For i = 11 To n * 11 Step 11

        '        x(34 + i) = x(34)

        '        x(35 + i) = x(35)

        '        x(36 + i) = x(36)

        '        x(37 + i) = x(37)

        '        x(38 + i) = x(38)

        '        x(39 + i) = x(39)

        '        x(40 + i) = x(40)

        '        x(41 + i) = x(41)

        '        x(42 + i) = x(42)

        '        x(43 + i) = x(43)

​

        '    Next

        'End If

        If mesic.Length = 1 Then mesic = "0" & mesic

        If den.Length = 1 Then den = "0" & den

        x(1) = "<dat:dataPack xmlns:dat=" & Chr(34) & "http://www.stormware.cz/schema/version_2/data.xsd" & Chr(34) &

                " xmlns:vch=" & Chr(34) & "http://www.stormware.cz/schema/version_2/voucher.xsd" & Chr(34) & " xmlns:typ=" &

                Chr(34) & "http://www.stormware.cz/schema/version_2/type.xsd" & Chr(34) & " version=" & Chr(34) & "2.0" & Chr(34) & " id=" & Chr(34) &

                "po001" & Chr(34) & " ico=" & Chr(34) & "04914414 " & Chr(34) & " application=" & Chr(34) & "StwGamitech" & Chr(34) & " note=" & Chr(34) &

                "Import Pokladního dokladu" & Chr(34) & ">"

        x(2) = "<!--  Pokladní doklad s polozkami bez vazby  -->"

        x(3) = "<dat:dataPackItem version= " & Chr(34) & "2.0" & Chr(34) & " id =" & Chr(34) & id & Chr(34) & ">"

        x(4) = "<vch:voucher version=" & Chr(34) & "2.0" & Chr(34) & ">"

        x(5) = "<vch:voucherHeader>"

        x(6) = "<vch:voucherType>receipt</vch:voucherType>"

        x(7) = "<vch:cashAccount>"

        x(8) = "<typ:ids>HP</typ:ids>"

        x(9) = "</vch:cashAccount>"

        x(10) = "<vch:Date>" & rok & "-" & mesic & "-" & den & "</vch:Date>"

        x(11) = "<vch:datePayment>" & rok & "-" & mesic & "-" & den & "</vch:datePayment>"

        x(12) = "<vch:dateTax>" & rok & "-" & mesic & "-" & den & "</vch:dateTax>"

        x(13) = "<vch:accounting>"

        x(14) = "<typ:ids>1Pp</typ:ids>"

        x(15) = "</vch:accounting>"

        x(16) = "<vch:classificationVAT>"

        x(17) = "<typ:classificationVATType>nonSubsume</typ:classificationVATType>"

        x(18) = "</vch:classificationVAT>"

        x(19) = "<vch:Text> </vch:Text>"

        x(20) = "<!-- adresa bez vazby na program POHODA -->"

        x(21) = "<vch:partnerIdentity>"

        x(22) = "<typ:address>"

        x(23) = "<typ:Name>Zakazník</typ:Name>"

        x(24) = "<typ:city></typ:city>"

        x(25) = "<typ:street></typ:street>"

        x(26) = "<typ:zip></typ:zip>"

        x(27) = "</typ:address>"

        x(28) = "</vch:partnerIdentity>"

        x(29) = "<vch:centre>"

        x(30) = "<typ:ids></typ:ids>"

        x(31) = "</vch:centre>"

        x(32) = "<vch:note>načteno z XML." & "c. uctu:" & c_uctu & "/BKP:" & bkp & "/PKP:" & pkp & "/FIK:" & fik & "/" & "</vch:note>"

        x(33) = "<vch:intNote>Import Pokladního dokladu bez položek.</vch:intNote>"

        x(34) = "</vch:voucherHeader>"

        x(35) = "<vch:voucherDetail>"

        x(36) = "<!-- textova polozka -->"

        x(37) = ""

        x(38) = ""

        x(39) = ""

        'POLOZKY uctenky x34 - x43'

​

        For i = 1 To 37

            xml_soubor.WriteLine(x(i))

        Next i

        xml_soubor.Close()

        'konec uctenky

​

​

​

​

​

        ''KONEC POZADAVKU

​

​

​

        ''ODPOVED>>>

        ''<rsp:responsePack xmlns: rsp = "http://www.stormware.cz/schema/version_2/response.xsd" xmlns:rdc = "http://www.stormware.cz/schema/version_2/documentresponse.xsd" xmlns:typ = "http://www.stormware.cz/schema/version_2/type.xsd" xmlns:lst = "http://www.stormware.cz/schema/version_2/list.xsd" xmlns:lStk = "http://www.stormware.cz/schema/version_2/list_stock.xsd" xmlns:lAdb = "http://www.stormware.cz/schema/version_2/list_addBook.xsd" xmlns:acu = "http://www.stormware.cz/schema/version_2/accountingunit.xsd" xmlns:inv = "http://www.stormware.cz/schema/version_2/invoice.xsd" xmlns:vch = "http://www.stormware.cz/schema/version_2/voucher.xsd" xmlns:Int = "http://www.stormware.cz/schema/version_2/intDoc.xsd" xmlns:stk = "http://www.stormware.cz/schema/version_2/stock.xsd" xmlns:ord = "http://www.stormware.cz/schema/version_2/order.xsd" xmlns:ofr = "http://www.stormware.cz/schema/version_2/offer.xsd" xmlns:enq = "http://www.stormware.cz/schema/version_2/enquiry.xsd" xmlns:vyd = "http://www.stormware.cz/schema/version_2/vydejka.xsd" xmlns:pri = "http://www.stormware.cz/schema/version_2/prijemka.xsd" xmlns:bal = "http://www.stormware.cz/schema/version_2/balance.xsd" xmlns:pre = "http://www.stormware.cz/schema/version_2/prevodka.xsd" xmlns:vyr = "http://www.stormware.cz/schema/version_2/vyroba.xsd" xmlns:pro = "http://www.stormware.cz/schema/version_2/prodejka.xsd" xmlns:con = "http://www.stormware.cz/schema/version_2/contract.xsd" xmlns:adb = "http://www.stormware.cz/schema/version_2/addressbook.xsd" xmlns:prm = "http://www.stormware.cz/schema/version_2/parameter.xsd" xmlns:lCon = "http://www.stormware.cz/schema/version_2/list_contract.xsd" xmlns:ctg = "http://www.stormware.cz/schema/version_2/category.xsd" xmlns:ipm = "http://www.stormware.cz/schema/version_2/intParam.xsd" xmlns:Str = "http://www.stormware.cz/schema/version_2/storage.xsd" xmlns:idp = "http://www.stormware.cz/schema/version_2/individualPrice.xsd" xmlns:sup = "http://www.stormware.cz/schema/version_2/supplier.xsd" xmlns:prn = "http://www.stormware.cz/schema/version_2/print.xsd" xmlns:act = "http://www.stormware.cz/schema/version_2/accountancy.xsd" xmlns:bnk = "http://www.stormware.cz/schema/version_2/bank.xsd" version="2.0" id="po001" state="ok" note="" programVersion="10700.139 (19.5.2014)">

        ''<rsp:responsePackItem Version = "2.0" id="POK001" state="ok">

        ''<vch:voucherResponse Version = "2.0" state="ok">

        ''<rdc:producedDetails>

        ''<rdc:id>12</rdc:id>

        ''<rdc:Number> 14HV00004</rdc:Number>

        ''</rdc:producedDetails>

        ''</vch:voucherResponse>

        ''</rsp:responsePackItem>

        ''</rsp:responsePack>

        ''KONEC ODPOVEDI

​

    End Sub

​

    Sub polozky(soubor As String, pocet As String, nazev As String, cena As String)

        Dim x(0 To 9) As String

        'Dim xml_soubor As System.IO.StreamWriter

        'xml_soubor = My.Computer.FileSystem.OpenTextFileWriter(soubor, True)

​

        x(0) = "<vch:voucherItem>" & Environment.NewLine

        x(1) = "<vch:text>" & nazev & "</vch:text>" & Environment.NewLine

        x(2) = "<vch:quantity>" & pocet & "</vch:quantity>" & Environment.NewLine

        x(3) = "<vch:rateVAT>none</vch:rateVAT>" & Environment.NewLine

        x(4) = "<vch:homeCurrency>" & Environment.NewLine

        x(5) = "<typ:Price>" & cena & "</typ:Price>" & Environment.NewLine

        x(6) = "<typ:priceVAT>0</typ:priceVAT>" & Environment.NewLine

        x(7) = "</vch:homeCurrency>" & Environment.NewLine

        x(8) = "<vch:note>""</vch:note>" & Environment.NewLine

        x(9) = "</vch:voucherItem>" & Environment.NewLine

​

        'FileOpen(FreeFile, soubor, OpenMode.Input) ', OpenAccess.Write, OpenShare.LockWrite)

        For i = 0 To 9

            My.Computer.FileSystem.WriteAllText(soubor, x(i), True)

            'FreeFile.WriteLine(x(i))

            'xml_soubor.WriteLine(x(i))

        Next i

        'FileClose()

​

    End Sub

​

    Sub paticka_xml(soubor As String, cena_celkem As String)

        Dim x(0 To 9) As String

​

        x(0) = "</vch:voucherDetail>" & Environment.NewLine

        x(1) = "</vch:voucher>" & Environment.NewLine

        x(2) = "<vch:voucherSummary>" & Environment.NewLine

        x(3) = "<vch:homeCurrency>" & Environment.NewLine

        x(4) = "<typ:priceNone>" & Trim(cena_celkem) & "</typ:priceNone>" & Environment.NewLine

        x(5) = "</vch:homeCurrency>" & Environment.NewLine

        x(6) = "</vch:voucherSummary>" & Environment.NewLine

        x(7) = "</vch:voucher>" & Environment.NewLine

        x(8) = "</dat:dataPackItem>" & Environment.NewLine

        x(9) = "</dat:dataPack>" & Environment.NewLine

​

​

        'FileOpen(FreeFile, soubor, OpenMode.Append, OpenAccess.Write, OpenShare.LockWrite)

        For i = 0 To 7

            My.Computer.FileSystem.WriteAllText(soubor, x(i), True)

        Next i

        'FileClose(FreeFile)

    End Sub

End Class

​

Partial Class NativeMethods

    <DllImport("shlwapi.dll", CharSet:=CharSet.Unicode)>

    Private Shared Function StrCmpLogicalW(s1 As String, s2 As String) As Int32

    End Function

​

    Friend Shared Function NaturalStringCompare(str1 As String, str2 As String) As Int32

        Return StrCmpLogicalW(str1, str2)

    End Function

End Class

​

Public Class NaturalStringComparer

    Implements IComparer(Of String)

​

    Public Function Compare(x As String, y As String) As Integer Implements IComparer(Of String).Compare

        Return NativeMethods.NaturalStringCompare(x, y)

    End Function

End Class