Vb.NET | C# Online Compiler

Vb.NET by Anonymous

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

​x
 
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

Model: Compilation error (line 20, col 67): Unexpected character '’'
Model: Compilation error (line 40, col 544): Too many characters in character literal
Model: Compilation error (line 40, col 840): Newline in constant
Model: Compilation error (line 40, col 840): Too many characters in character literal
Model: Compilation error (line 45, col 10): Too many characters in character literal
Model: Compilation error (line 48, col 7): Unexpected character '’'
Model: Compilation error (line 52, col 3): Preprocessor directive expected
Model: Compilation error (line 52, col 8): Single-line comment or end-of-line expected
Model: Compilation error (line 59, col 544): Too many characters in character literal
Model: Compilation error (line 59, col 840): Newline in constant
Model: Compilation error (line 59, col 840): Too many characters in character literal
Model: Compilation error (line 65, col 10): Too many characters in character literal
Model: Compilation error (line 68, col 7): Unexpected character '’'
Model: Compilation error (line 97, col 10): Too many characters in character literal
Model: Compilation error (line 100, col 7): Unexpected character '’'
Model: Compilation error (line 106, col 59): Unexpected character '’'
Model: Compilation error (line 110, col 3): Preprocessor directive expected
Model: Compilation error (line 110, col 7): Single-line comment or end-of-line expected
Model: Compilation error (line 112, col 224): Unexpected character '’'
Model: Compilation error (line 114, col 2): Preprocessor directive expected
Model: Compilation error (line 114, col 3): Single-line comment or end-of-line expected
Model: Compilation error (line 116, col 453): Unexpected character '’'
Model: Compilation error (line 120, col 1): Unexpected character '•'
Model: Compilation error (line 120, col 5): Unexpected character '’'
Model: Compilation error (line 122, col 1): Unexpected character '•'
Model: Compilation error (line 124, col 1): Unexpected character '•'
Model: Compilation error (line 130, col 74): Unexpected character '’'
Model: Compilation error (line 132, col 2): Preprocessor directive expected
Model: Compilation error (line 132, col 3): Single-line comment or end-of-line expected
Model: Compilation error (line 136, col 2): Preprocessor directive expected
Model: Compilation error (line 136, col 3): Single-line comment or end-of-line expected
Model: Compilation error (line 142, col 38): Unexpected character '’'
Model: Compilation error (line 1, col 7): Expected class, delegate, enum, interface, or struct
Model: Compilation error (line 35, col 26): Expected class, delegate, enum, interface, or struct
Model: Compilation error (line 35, col 75): Expected class, delegate, enum, interface, or struct
Model: Compilation error (line 40, col 413): { expected
Model: Compilation error (line 40, col 413): Invalid token 'is' in class, struct, or interface member declaration
Model: Compilation error (line 40, col 433): ; expected
Model: Compilation error (line 40, col 445): ; expected
Model: Compilation error (line 40, col 458): ; expected
Model: Compilation error (line 40, col 475): ; expected
Model: Compilation error (line 40, col 499): ; expected
Model: Compilation error (line 40, col 508): ; expected
Model: Compilation error (line 40, col 523): ; expected
Model: Compilation error (line 40, col 534): ; expected
Model: Compilation error (line 40, col 544): Invalid token ''\u0073'' in class, struct, or interface member declaration
Model: Compilation error (line 40, col 627): ; expected
Model: Compilation error (line 40, col 637): ; expected
Model: Compilation error (line 40, col 655): ; expected
Model: Compilation error (line 40, col 664): ; expected
Model: Compilation error (line 40, col 676): ; expected
Model: Compilation error (line 40, col 689): { expected
Model: Compilation error (line 40, col 700): ; expected
Model: Compilation error (line 40, col 710): ; expected
Model: Compilation error (line 40, col 725): ; expected
Model: Compilation error (line 40, col 736): ; expected
Model: Compilation error (line 40, col 742): ; expected
Model: Compilation error (line 40, col 751): ; expected
Model: Compilation error (line 40, col 760): ; expected
Model: Compilation error (line 40, col 765): Invalid token 'for' in class, struct, or interface member declaration
Model: Compilation error (line 40, col 779): ; expected
Model: Compilation error (line 40, col 786): ; expected
Model: Compilation error (line 40, col 798): ; expected
Model: Compilation error (line 40, col 817): ; expected
Model: Compilation error (line 40, col 840): ; expected
Model: Compilation error (line 41, col 10): ; expected
Model: Compilation error (line 41, col 23): ; expected
Model: Compilation error (line 41, col 37): ; expected
Model: Compilation error (line 41, col 47): Invalid token 'for' in class, struct, or interface member declaration
Model: Compilation error (line 41, col 62): ; expected
Model: Compilation error (line 41, col 74): ; expected
Model: Compilation error (line 43, col 14): ; expected
Model: Compilation error (line 43, col 24): ; expected
Model: Compilation error (line 43, col 34): Invalid token 'for' in class, struct, or interface member declaration
Model: Compilation error (line 43, col 45): Invalid token ',' in class, struct, or interface member declaration
Model: Compilation error (line 43, col 59): ; expected
Model: Compilation error (line 43, col 62): Invalid token ',' in class, struct, or interface member declaration
Model: Compilation error (line 43, col 72): ; expected
Model: Compilation error (line 43, col 82): ; expected
Model: Compilation error (line 43, col 89): ; expected
Model: Compilation error (line 43, col 114): Cannot use more than one type in a for, using, fixed, or declaration statement
Model: Compilation error (line 43, col 117): ; expected
Model: Compilation error (line 43, col 125): ; expected
Model: Compilation error (line 43, col 144): ; expected
Model: Compilation error (line 44, col 16): ; expected
Model: Compilation error (line 44, col 29): ; expected
Model: Compilation error (line 44, col 39): ; expected
Model: Compilation error (line 44, col 46): ; expected
Model: Compilation error (line 44, col 53): ; expected
Model: Compilation error (line 44, col 65): ; expected
Model: Compilation error (line 44, col 92): ; expected
Model: Compilation error (line 44, col 102): ; expected
Model: Compilation error (line 44, col 109): ; expected
Model: Compilation error (line 44, col 126): ; expected
Model: Compilation error (line 44, col 138): ; expected
Model: Compilation error (line 44, col 157): ; expected
Model: Compilation error (line 44, col 170): ; expected
Model: Compilation error (line 44, col 182): ; expected
Model: Compilation error (line 44, col 199): Cannot use more than one type in a for, using, fixed, or declaration statement
Model: Compilation error (line 44, col 203): ; expected
Model: Compilation error (line 44, col 219): ; expected
Model: Compilation error (line 44, col 234): ; expected
Model: Compilation error (line 44, col 241): ; expected
Model: Compilation error (line 44, col 258): ; expected
Model: Compilation error (line 44, col 271): ; expected
Model: Compilation error (line 44, col 283): ; expected
Model: Compilation error (line 45, col 4): Invalid token 'if' in class, struct, or interface member declaration
Model: Compilation error (line 45, col 10): Invalid token ''\u0072'' in class, struct, or interface member declaration
Model: Compilation error (line 45, col 99): ; expected
Model: Compilation error (line 45, col 105): ; expected
Model: Compilation error (line 45, col 116): ; expected
Model: Compilation error (line 45, col 123): ; expected
Model: Compilation error (line 45, col 136): ; expected
Model: Compilation error (line 45, col 144): ; expected
Model: Compilation error (line 45, col 158): ; expected
Model: Compilation error (line 45, col 167): ; expected
Model: Compilation error (line 45, col 176): ; expected
Model: Compilation error (line 45, col 196): ; expected
Model: Compilation error (line 45, col 209): ; expected
Model: Compilation error (line 45, col 219): ; expected
Model: Compilation error (line 45, col 238): ; expected
Model: Compilation error (line 45, col 250): ; expected
Model: Compilation error (line 47, col 9): ; expected
Model: Compilation error (line 47, col 20): ; expected
Model: Compilation error (line 47, col 27): ; expected
Model: Compilation error (line 47, col 41): ; expected
Model: Compilation error (line 47, col 50): ; expected
Model: Compilation error (line 47, col 63): ; expected
Model: Compilation error (line 47, col 72): ; expected
Model: Compilation error (line 47, col 83): ; expected
Model: Compilation error (line 47, col 96): ; expected
Model: Compilation error (line 47, col 106): ; expected
Model: Compilation error (line 47, col 116): ; expected
Model: Compilation error (line 47, col 130): ; expected
Model: Compilation error (line 47, col 148): ; expected
Model: Compilation error (line 47, col 159): ; expected
Model: Compilation error (line 47, col 166): ; expected
Model: Compilation error (line 47, col 173): Invalid token '-' in class, struct, or interface member declaration
Model: Compilation error (line 47, col 184): ; expected
Model: Compilation error (line 47, col 188): Invalid token 'do' in class, struct, or interface member declaration
Model: Compilation error (line 47, col 193): Invalid token '!' in class, struct, or interface member declaration
Model: Compilation error (line 48, col 7): ; expected
Model: Compilation error (line 48, col 10): Invalid token 'true' in class, struct, or interface member declaration
Model: Compilation error (line 48, col 20): Invalid token 'for' in class, struct, or interface member declaration
Model: Compilation error (line 48, col 37): ; expected
Model: Compilation error (line 48, col 45): ; expected
Model: Compilation error (line 48, col 51): Invalid token 'in' in class, struct, or interface member declaration
Model: Compilation error (line 50, col 11): ; expected
Model: Compilation error (line 50, col 19): ; expected
Model: Compilation error (line 50, col 33): ; expected
Model: Compilation error (line 50, col 45): ; expected
Model: Compilation error (line 50, col 56): Invalid token ',' in class, struct, or interface member declaration
Model: Compilation error (line 50, col 72): ; expected
Model: Compilation error (line 50, col 85): ; expected
Model: Compilation error (line 50, col 96): ; expected
Model: Compilation error (line 50, col 103): ; expected
Model: Compilation error (line 50, col 114): Member modifier 'new' must precede the member type and name
Model: Compilation error (line 50, col 129): ; expected
Model: Compilation error (line 50, col 138): ; expected
Model: Compilation error (line 50, col 151): ; expected
Model: Compilation error (line 50, col 161): ; expected
Model: Compilation error (line 50, col 172): ; expected
Model: Compilation error (line 50, col 180): ; expected
Model: Compilation error (line 50, col 196): ; expected
Model: Compilation error (line 50, col 220): ; expected
Model: Compilation error (line 50, col 230): ; expected
Model: Compilation error (line 50, col 239): ; expected
Model: Compilation error (line 50, col 252): ; expected
Model: Compilation error (line 50, col 264): ; expected
Model: Compilation error (line 50, col 272): ; expected
Model: Compilation error (line 50, col 282): ; expected
Model: Compilation error (line 50, col 295): ; expected
Model: Compilation error (line 50, col 311): ; expected
Model: Compilation error (line 50, col 316): Invalid token 'in' in class, struct, or interface member declaration
Model: Compilation error (line 50, col 332): ; expected
Model: Compilation error (line 50, col 346): ; expected
Model: Compilation error (line 50, col 356): ; expected
Model: Compilation error (line 50, col 369): ; expected
Model: Compilation error (line 50, col 378): ; expected
Model: Compilation error (line 50, col 388): ; expected
Model: Compilation error (line 54, col 10): ; expected
Model: Compilation error (line 54, col 14): Invalid token ',' in class, struct, or interface member declaration
Model: Compilation error (line 54, col 31): ; expected
Model: Compilation error (line 54, col 41): ; expected
Model: Compilation error (line 54, col 49): ; expected
Model: Compilation error (line 54, col 62): ; expected
Model: Compilation error (line 54, col 68): ; expected
Model: Compilation error (line 54, col 79): Invalid token ',' in class, struct, or interface member declaration
Model: Compilation error (line 54, col 134): Syntax error, '[' expected
Model: Compilation error (line 54, col 142): Syntax error, ']' expected
Model: Compilation error (line 54, col 147): A get or set accessor expected
Model: Compilation error (line 54, col 155): A get or set accessor expected
Model: Compilation error (line 54, col 161): A get or set accessor expected
Model: Compilation error (line 54, col 166): } expected
Model: Compilation error (line 54, col 176): ; expected
Model: Compilation error (line 54, col 185): ; expected
Model: Compilation error (line 54, col 197): ; expected
Model: Compilation error (line 54, col 204): Invalid token ',' in class, struct, or interface member declaration
Model: Compilation error (line 54, col 209): Invalid token 'is' in class, struct, or interface member declaration
Model: Compilation error (line 54, col 225): ; expected
Model: Compilation error (line 54, col 232): ; expected
Model: Compilation error (line 54, col 244): ; expected
Model: Compilation error (line 54, col 255): ; expected
Model: Compilation error (line 54, col 265): Invalid token ':' in class, struct, or interface member declaration
Model: Compilation error (line 54, col 273): Invalid token 'is' in class, struct, or interface member declaration
Model: Compilation error (line 54, col 297): Cannot use more than one type in a for, using, fixed, or declaration statement
Model: Compilation error (line 54, col 302): ; expected
Model: Compilation error (line 54, col 309): ; expected
Model: Compilation error (line 54, col 318): ; expected
Model: Compilation error (line 54, col 325): ; expected
Model: Compilation error (line 54, col 343): ; expected
Model: Compilation error (line 54, col 348): Invalid token ',' in class, struct, or interface member declaration
Model: Compilation error (line 54, col 360): ; expected
Model: Compilation error (line 54, col 368): ; expected
Model: Compilation error (line 54, col 385): ; expected
Model: Compilation error (line 54, col 398): ; expected
Model: Compilation error (line 54, col 415): Cannot use more than one type in a for, using, fixed, or declaration statement
Model: Compilation error (line 54, col 419): ; expected
Model: Compilation error (line 54, col 427): ; expected
Model: Compilation error (line 54, col 448): ; expected
Model: Compilation error (line 54, col 456): ; expected
Model: Compilation error (line 54, col 469): ; expected
Model: Compilation error (line 54, col 475): Invalid token ',' in class, struct, or interface member declaration
Model: Compilation error (line 54, col 487): ; expected
Model: Compilation error (line 54, col 504): ; expected
Model: Compilation error (line 54, col 514): ; expected
Model: Compilation error (line 54, col 534): ; expected
Model: Compilation error (line 54, col 545): ; expected
Model: Compilation error (line 54, col 557): ; expected
Model: Compilation error (line 54, col 566): ; expected
Model: Compilation error (line 54, col 578): ; expected
Model: Compilation error (line 56, col 14): ; expected
Model: Compilation error (line 40, col 686): 'to': interfaces cannot declare types

Last Run:	7:06:04 am
Compile:	0s
Execute:	0.063s
Memory:	0b
CPU:	0s

View IL Code