Private Sub HL_Click(sender As Object, e As EventArgs) Handles HL.Click TxtDob.Text = Date.Now.ToString("ddMMyyyy") Dim file As System.IO.StreamWriter Dim fileDateTime As String = DateTime.Now.ToString("yyyyMMdd") & "_" & DateTime.Now.ToString("HHmmss") file = My.Computer.FileSystem.OpenTextFileWriter(fileDateTime, True) file.WriteLine("MSH|^~\&|||||" & TxtExamtime.Text & "||ORM^O01||P|2.3.1") file.WriteLine("PID|||" & TxtId.Text & "||" & TxtFamilyname.Text & "^" & TxtGivenname.Text & "||" & TxtDob.Text & "||" & TxtGender.Text & "|||" & TxtStreet.Text & " " & TxtHouse.Text & "^^" & TxtCity.Text & "^^" & TxtPostcode.Text) file.WriteLine("PV1||O|||||||||||||||||" & TxtId.Text & "|||||||||||||||||||||||||" & TxtExamdate.Text) file.WriteLine("ORC|NW|" & TxtId.Text & "|||||^^^" & TxtExamdate.Text & "||" & TxtExamdate.Text) file.WriteLine("OBR||" & TxtExamdate.Text & TxtExamdate.Text & "||CT|||" & TxtExamtime.Text & "|" & TxtExamtime.Text) file.WriteLine() file.Close() MessageBox.Show("Textsaved to " & fileDateTime) End Sub
TxtDob.Format = DateTimePickerFormat.Custom TxtDob.CustomFormat = "ddMMyyyy"
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)