StrSubservice = TextLine.Substring(14, 10).Trim Serv_type = TextLine.Substring(10, 4).Trim If System.IO.File.Exists(dir + FILE_NAME) = True Thenĭim objReader As New System.IO.StreamReader(dir + FILE_NAME) 'For i As Integer = 0 To CommandLineArgs.Count - 1 'm圜onnection = New MySqlConnection(MySQLConnectionString) 'MySQLConnectionString = "Server=localhost " & _ 'Dim CommandLineArgs As 圜ollection(Of String) = My.Application.CommandLineArgs 'Dim dr As String = "C:\Users\LebohangL\Desktop\Lebo" '"C:\Users\LebohangL\Desktop\Lebo\DEND001D" Origin + strDirection + " " + strIndicator + (FILE_NAME.Substring(0, 7) + "A") + file_num + error_code) Writer.Write(recID + transac_Type + strDate + serv_type + " " + strSubservice + " " + member_no + Using writer As StreamWriter = New StreamWriter(dir + "\output\" + ACKFILE, False) Public Sub Ack(ByRef error_code As String)ĭim ACKFILE As String = FILE_NAME.Substring(0, 7) + "A" 'PrintLine(1, "LEBO AGAIN and AGAIN LEBO") 'FileOpen(1, dir + NACKFILE, OpenMode.Output)
Origin + strDirection + " " + strIndicator + (FILE_NAME.Substring(0, 7) + "N") + file_num + error_code) Writer.Write(recID + transac_Type + strDate + serv_type + " " + strSubservice + " " + " " + member_no + Using writer As StreamWriter = New StreamWriter(dir + "\output\" + NACKFILE, False) Public Sub Nack(ByRef error_code As String)ĭim NACKFILE As String = FILE_NAME.Substring(0, 7) + "N" M圜onnection = New MySqlConnection(MySQLConnectionString)įor i As Integer = 0 To CommandLineArgs.Count - 1ĭim last_char As String = FILE_NAME.Substring(7, 1)ĭim last_three As String = FILE_NAME.Substring(5, 3)Ĭonsole.WriteLine("lastchar is: " + last_char) Module Module1 Dim m圜onnection As MySqlConnectionĭim CommandLineArgs As 圜ollection(Of String) = My.Application.CommandLineArgs
0 kommentar(er)
