Ad:

VB.NET Discussion Thread
Unsolved
Views: 5560

Page 1
2
Next

You are currently viewing page 1 of this multi-page discussion thread

Jan 2nd, 2009

Export Data to Notepad

Expand Post »

Hi All,

I have created a Vb.net application with back as MS.Access..I shall be very thankful if someone pls guide me on how to EXPORT DATA from the VB>NET Textboxes to NOTEPAD..

THe methof that i am using is creating a CSV file which is can Adjust in excel after copying data from notepad to excel...

BUT MY CUSTOMER WANTS SOMETHINGS LIKE BELOW PATTERN

VB.NET Syntax (Toggle Plain Text)
NAME                POSITION                  COUNSELE BY           DATE
abc                    abc                            abc                           123
xyz                    xyz                            xyz                            123
aaa                   aaa                           aaa                            123
NAME                POSITION                  COUNSELE BY           DATE
abc                    abc                            abc                           123
xyz                    xyz                            xyz                            123
aaa                   aaa                           aaa                            123

Pls help me to fix this issue.....

Below is my code

vbnet Syntax (Toggle Plain Text)
    Private Sub btnnotepad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnotepad.Click
 
 
        Dim filename As String = "C:\Documents and Settings\Acer\Desktop\CounsellingSystem\Counsellrecords.txt"
 
        Dim lineoftext As String
        Dim arytext(5) As String
 
 
        arytext(0) = txtname.Text
        arytext(1) = txtnpos.Text
        arytext(2) = txtcname.Text
        arytext(3) = txtcpos.Text
        arytext(4) = DateTimePickerdoc.Value.ToShortDateString
        arytext(5) = DateTimePickerrd.Value.ToShortDateString
 
        lineoftext = String.Join(";", arytext)
 
        Dim objwriter As New System.IO.StreamWriter(filename, True)
        objwriter.WriteLine(lineoftext)
 
        objwriter.Close()
 
        MsgBox("Record Saved To Notepad")
 
    End Sub
    Private Sub btnnotepad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnotepad.Click


        Dim filename As String = "C:\Documents and Settings\Acer\Desktop\CounsellingSystem\Counsellrecords.txt"

        Dim lineoftext As String
        Dim arytext(5) As String


        arytext(0) = txtname.Text
        arytext(1) = txtnpos.Text
        arytext(2) = txtcname.Text
        arytext(3) = txtcpos.Text
        arytext(4) = DateTimePickerdoc.Value.ToShortDateString
        arytext(5) = DateTimePickerrd.Value.ToShortDateString

        lineoftext = String.Join(";", arytext)

        Dim objwriter As New System.IO.StreamWriter(filename, True)
        objwriter.WriteLine(lineoftext)

        objwriter.Close()

        MsgBox("Record Saved To Notepad")

    End Sub

Million thanks

Last edited by Narue; Jan 5th, 2009 at 9:30 am. Reason: added code tags

Similar Threads

Porblem in UTF-8 support on CSV/EXCEL in PHP
How can show/view Infopath dynamic files(xml) without infopath in a computer in XML, XSLT and XPATH
How to get rid of Spyware/Adware? in Viruses, Spyware and other Nasties
help! what does this mean in Viruses, Spyware and other Nasties

Evil03

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

9 posts
since Dec 2008

Permalink

Jan 2nd, 2009

Re: Export Data to Notepad

what's the error code when you run this?

Alexpap

Reputation Points: 11

Solved Threads: 12

Junior Poster

Offline

117 posts
since Sep 2008

Permalink

Jan 2nd, 2009

Re: Export Data to Notepad

Why export it to notepad, and then copy/paste into excel, when you could have the VB program automatically add it to excel?
--------------------------------------------------
replace lineoftext = join with this:

VB.NET Syntax (Toggle Plain Text)
lineoftext = txtname.text & "," & txtpos.text & "," & txtcname.text & "," & DateTimePickerdoc.Value.ToShortDateString
lineoftext = txtname.text & "," & txtpos.text & "," & txtcname.text & "," & DateTimePickerdoc.Value.ToShortDateString

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

Permalink

Jan 2nd, 2009

Re: Export Data to Notepad

Hi Thanks For so quick responses

My coding saves the data in this format...

****************************
NAME; POSITION ;COUNSELOR; DATE
abc;sdf;rtt;123
xyz;edc;tgb;123
qsr;fgv;vgh;123
*****************************

but,

My Customer needs data in below format

************************************
NAME POSITION COUNSELE BY DATE
abc abc abc 123
xyz xyz xyz 123
aaa aaa aaa 123
***************************************

The customer doesnt want to see the data in excel.. they just want the txt file to diplay the data from vb.net in the above mentioned pattern..

I beleive i need to define lengths & Positions in notepad..but problem is i am blur on how to define lengths and positions of text......I would really appreciate if u guys could pls help me out of this issue

Thanks again for helping

Evil03

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

9 posts
since Dec 2008

Permalink

Jan 2nd, 2009

Re: Export Data to Notepad

The only way to really format data in notepad, is to use tabs. Say,
name <tab><tab>Position<tab><tab>Counseled by date
which is easy enough with:

VB.NET Syntax (Toggle Plain Text)
lineoftext = txtname.text & vbtab & vbtab & txtpos.text & vbtab & vbtab & txtcname.text & vbtab & vbtab & DateTimePickerdoc.Value.ToShortDateString
lineoftext = txtname.text & vbtab & vbtab & txtpos.text & vbtab & vbtab & txtcname.text & vbtab & vbtab & DateTimePickerdoc.Value.ToShortDateString

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

Permalink

Jan 4th, 2009

Re: Export Data to Notepad

Click to Expand / Collapse Quote originally posted by Comatose ...

The only way to really format data in notepad, is to use tabs. Say,
name <tab><tab>Position<tab><tab>Counseled by date
which is easy enough with:
VB.NET Syntax (Toggle Plain Text)
lineoftext = txtname.text & vbtab & vbtab & txtpos.text & vbtab & vbtab & txtcname.text & vbtab & vbtab & DateTimePickerdoc.Value.ToShortDateString
lineoftext = txtname.text & vbtab & vbtab & txtpos.text & vbtab & vbtab & txtcname.text & vbtab & vbtab & DateTimePickerdoc.Value.ToShortDateString

Hi Comatose ,
Dude Thanks Millions for such a great help But the issue is still the same i can GIve spaces using VBTAB ...but the space is not saving documents in porper format....

Means
The colums n rows are not same for the record Meaning:
1-UNder name MAX then i want to leave spaces in the between then Counselor name is George
2 - William then i want to leave spaces in the between then Coounselor name is Matt....

Ples Refer to attachment

PLS Would Appreciate ur Help alot if u can help me on this matter.

Attached Files

Counsellrecords.txt (1.1 KB, 73 views)

Evil03

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

9 posts
since Dec 2008

Permalink

Jan 4th, 2009

Re: Export Data to Notepad

This Site will help you out a great deal. The best way to do this is something like:

vb.net Syntax (Toggle Plain Text)
Dim oFile as System.IO.File
Dim oWrite as System.IO.StreamWriter
oWrite = oFile.CreateText(“C:\sample.txt”)
oWrite.WriteLine(“{0,10}{1,10}{2,25}”, “Date”, “Time”, “Price”)
oWrite.WriteLine(“{0,10:dd MMMM}{0,10:hh:mm tt}{1,25:C}”, Now(), 13455.33)
oWrite.Close()
Dim oFile as System.IO.File
Dim oWrite as System.IO.StreamWriter
oWrite = oFile.CreateText(“C:\sample.txt”)
oWrite.WriteLine(“{0,10}{1,10}{2,25}”, “Date”, “Time”, “Price”)
oWrite.WriteLine(“{0,10:dd MMMM}{0,10:hh:mm tt}{1,25:C}”, Now(), 13455.33)
oWrite.Close()

Here, if you mess with the numbers that are inside the {}, you can adjust exactly where in the text file you want the data to go....If this solution doesn't work (but it should) we can try one more (ugly) way.

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

Permalink

Jan 5th, 2009

Re: Export Data to Notepad

Yeah you could use the above method or another one:

pad the strings:

Dim str1 As String = "My String"
Console.WriteLine(str1.PadLeft(20, "-"))
Dim str2 As String = "My String"
Console.WriteLine(str2.PadRight(20, "-"))

I guess the key is to find out the length of the longest word in each column and make sure the padding is that length minimum. Pretty simple really.

The only real problem I see is if the customer wants to then open this notepad file as an excel file (right click, open as, excel). That obviously wouldn't work...

Last edited by iamthwee; Jan 5th, 2009 at 6:34 am.

iamthwee

Featured Poster

Reputation Points: 1536

Solved Threads: 431

Posting Expert

Offline

5,865 posts
since Aug 2005

Permalink

Jan 6th, 2009

Re: Export Data to Notepad

Click to Expand / Collapse Quote originally posted by Comatose ...

This Site will help you out a great deal. The best way to do this is something like:
vb.net Syntax (Toggle Plain Text)
Dim oFile as System.IO.File
Dim oWrite as System.IO.StreamWriter
oWrite = oFile.CreateText(“C:\sample.txt”)
oWrite.WriteLine(“{0,10}{1,10}{2,25}”, “Date”, “Time”, “Price”)
oWrite.WriteLine(“{0,10:dd MMMM}{0,10:hh:mm tt}{1,25:C}”, Now(), 13455.33)
oWrite.Close()
Dim oFile as System.IO.File Dim oWrite as System.IO.StreamWriter oWrite = oFile.CreateText(“C:\sample.txt”) oWrite.WriteLine(“{0,10}{1,10}{2,25}”, “Date”, “Time”, “Price”) oWrite.WriteLine(“{0,10:dd MMMM}{0,10:hh:mm tt}{1,25:C}”, Now(), 13455.33) oWrite.Close()
Here, if you mess with the numbers that are inside the {}, you can adjust exactly where in the text file you want the data to go....If this solution doesn't work (but it should) we can try one more (ugly) way.

Hi Guys Thanks for sharing Valuable information.
With ur Precious Help & time , my problem is HALF SOLVED

My Project will be completed if i can overcome this problem through valuable help from u guys.

Below is the coding:
***************************************************

Private Sub btnnotepad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnotepad.Click

Dim filename As String = "C:\Documents and Settings\Acer\Desktop\CounsellingSystem\Counsellrecords.txt"

Dim objwriter As New System.IO.StreamWriter(filename, True)

objwriter.WriteLine("{0,5}{1,30}{2,15}{3,15}{4,15}{5,15}", txtname.Text, txtnpos.Text, txtcname.Text, txtcpos.Text, DateTimePickerdoc.Value.ToShortDateString, DateTimePickerrd.Value.ToShortDateString)

objwriter.Close()

MsgBox("Record Saved To Notepad")

End sub

******************************************************

Please See attachment

Attached Files

Counsellrecords.txt (1.1 KB, 106 views)

Evil03

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

9 posts
since Dec 2008

Permalink

Jan 12th, 2009

Re: Export Data to Notepad

Hi All,

My sincere thanks to everyone for sharing their thoughts and assisting me in completing my project.

With all the valuable help from u guys my PROJECT is COMPLETED ..

Thanks
Evil

Evil03

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

9 posts
since Dec 2008

Page 1
2
Next

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: Call exe or dll from MS SQL SERVER 2005

Next Thread in VB.NET Forum Timeline: devexpress gridview delete button/edit

DaniWeb Message

Cancel Changes

User Name
Password