Count Records separated by $ in a Text file

Question

0.00/5 (No votes)

See more:

Hello,
Could someone please assist here? I have a program that reads a text file and copys the contents separated by a $ sign and writes the details to another new text file excluding the $ Sign. What I need assistance is to do a count and get the total records separate by the $ sign. Eg. ajasasaj$testing%878788%%$lkshhajsjah
for the above the total count would be 3. What I want is the 3 value. so how could I get that 3? Please assist at your earliest.

Posted 20-May-13 20:40pm

ekipongi

Add a Solution

2 solutions

Solution 1

VB

Dim WordsCount as integer
sFilename = "C:\Listview.txt"
If Dir(sFilename.ToString) <> "" Then
	sFileReader = System.IO.File.OpenText(sFilename)
	sInputLine = sFileReader.ReadLine()
	Do Until sInputLine Is Nothing
		sInputLine = sFileReader.ReadLine()
		WordsCount += sInputLine.Split(",").Length
	Loop
End If
MessageBox.Show(WordsCount.ToString())

Happy Coding!
:)

Posted 20-May-13 21:04pm

Aarti Meswania

Comments

ekipongi 21-May-13 20:01pm

Thanks Aarti for the reply. Didn't tried your code but I guess it would work. Thanks anyway.

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)

Basmeh Awad · Accepted Answer · 2013-05-20T21:41:00

Solution 2

try this..this will give you what you want but if you are already separating from $ sign why dont you increment the counter there only

VB

Dim FileReader = New StreamReader("D:\New Text Document.txt")
Dim line As String
Dim count As Integer
line = FileReader.ReadToEnd()
For Each alpha As Char In line
    If alpha = "$" Then
        count += 1
    End If
Next
MessageBox.Show(count)

Posted 20-May-13 21:41pm

Basmeh Awad

Updated 20-May-13 21:43pm

v2

Comments

ekipongi 21-May-13 20:00pm

Thanks Basmeh. Modified your code and got what I wanted. Thanks

now Could you please assist here again? now I want to check a specific value (:32B:) in a text file that contains millions of data and get the values (actual figures/amounts) excluding the currency. E.g. check if :32B: is found in the file and if it is found then grab the next value after this, which would be the amount. In essence it would be like :32B:JPY12561694,00
So pull out the 12561694,00 excluding the comma. So the actual data that I want to get is 1256169400

Basmeh Awad 22-May-13 6:56am

ok there is a solution post this as a question...and add a reply here that u posted

Basmeh Awad 22-May-13 4:53am

...