How to add an extension to a Timestamp file name in VB.net

Question

0.00/5 (No votes)

See more:

# I want to add .hl7 extension to the file name and am using timestamp for file name, I have no idea how to proceed

VB

Private Sub HL_Click(sender As Object, e As EventArgs) Handles HL.Click

        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

Posted 26-May-15 22:18pm

Shaik Izaz

Add a Solution

Comments

Andy Lanng 27-May-15 4:37am

From your question RE: renaming the file, the above code is not relevant. Is that correct?
It looks like the file exists. Then you open it to write to it. Renaming the file is not part of this process.
After you close the file you should use "My.Computer.FileSystem.RenameFile"

Leo Chapiro 27-May-15 4:48am

No, Andy: IMHO the OpenTextFileWriter() gets the name of the file as parameter. We need to add the extension before we call this method !

Andy Lanng 27-May-15 4:51am

You're saying that OpenTextFileWriter() can dictate the name of the file? Ok. I was not aware of that. Fair cop, guv ^_^

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Leo Chapiro · Accepted Answer · 2015-05-26T22:43:00

Solution 1

Try this:

VB

' ...
Dim fileDateTime As String = DateTime.Now.ToString("yyyyMMdd") & DateTime.Now.ToString("HHmmss") & ".hl7"
' ...

Posted 26-May-15 22:43pm

Leo Chapiro

Updated 26-May-15 22:45pm

v2