vb .net extract data from a text file

Question

0.00/5 (No votes)

See more:

Hi,

I need help on extracting data from a specific text file and in which data from that file i would need to produce 3 text files from that file.
can someone help on how to do this?

SPECIFIC FILE(txt file)
to
run application using VB .net
to
gather data
to
produce 3 text files

any help would be appreciated.
thanks

Posted 8-Jun-10 23:23pm

holocaust_18

Add a Solution

5 solutions

Solution 1

1- Read the file.

2- Extract the data which you want to write in a single file (you can use regular expression for that) and write that data to a separate file.

You can get lot of samples in google to read and write a file using C#. Try this and if you face any issue in implementing this then ask the question.

Posted 8-Jun-10 23:30pm

PSK_

Solution 5

let say below is the content format of your txt file in tab separated

Price Supplier products
1 B Bread
2 c Soap

you may just split it by tab per \r\n and get the 2nd index from array

it will look like this

[0]1
[1]B
[2]Bread

Posted 12-Jun-10 23:15pm

Chaegie

Solution 2

hi,

i need to write the codes in vb .net
i have looked and searched for answers but all i see is for reading files and extracting any content of that file.

Posted 8-Jun-10 23:45pm

holocaust_18

Comments

Chaegie 15-Jun-10 2:20am

here it is.. hope you can find some logic on it.

Dim arValues() As String = txtFile.Split(vbcrlf)
For i = 0 To arValues.Count -1
''do some coding here
Next

Solution 4

Hi Scubapro,

thanks for the guide.
:)

i just wanna ask if this would enable me to extract columns of data?
for example, a column for products.
thanks in advance.

Posted 9-Jun-10 0:11am

holocaust_18

Comments

Scubapro 9-Jun-10 6:47am

Yes, this is possible if the columns are separated by e.g. chr(09)(horizontal TAB)

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)

Scubapro · Accepted Answer · 2010-06-08T23:53:00

Solution 3

In short:

1) Declare a streamreader to read your file

Dim tRead As System.IO.StreamReader

2) Open your file

tRead = IO.File.OpenText(filename)

3) Read your file (at once or) line by line

readstring = tRead.ReadLine()

4) Extract whatever you need to extract in (multiple) strings.

writestring = "...."

5) Write your new file(s)

IO.File.WriteAllText(filename2, writestring, System.Text.Encoding.Default)

6) Close your file

tRead.Close()

Posted 8-Jun-10 23:53pm

Scubapro

Comments

Madhu158 24-Oct-19 14:08pm

Hi Scubapro,
Thanks for the code.
I need a small help. My data is getting stored in a text file as ORDER VALUE 123652
& the value(123652 as above) is dynamic.
In that case how can I get it(Order Value) into another text file?

Thanks in advance

Scubapro 25-Oct-19 1:28am

Hi Madhu158,

You are lucky that my email is still active and valid
after 9 years and I'm still active in IT.

If your textfile is always stored in the same directory,
you could use something like this:

For Each file As String In Directory.GetFiles("Your Directory")
If Path.GetExtension(file).ToLower = ".txt" Then

tRead = IO.File.OpenText(file)
'and so on, but you'll get the idea

End If
Next

Kind regards,
Scubapro.