Solved

VFP9 CSV Processing

Posted on 2010-11-11
5
324 Views
Last Modified: 2012-05-10
Hi all. I have a csv file which contains about 18,000 lines (records).
I need to remove all records where field #2 does not match "Florida".

The format is:

"Arthur","Florida", (+28 more fields)
"Phillips","Alaska", (+28 more fields)

I'm assuming CHR(13) + CHR(10) for line feed.

What do you suggest as the fastest method to process this file and remove all but Florida records?

Thanks!

0
Comment
Question by:formadmirer
  • 3
5 Comments
 
LVL 41

Expert Comment

by:pcelba
ID: 34114753
Following code should work. It is untested, missing error checks are on your own risk :-)
LOCAL lnH, lnOut, lcLine

lnH = FOPEN("YourFile")
lnOut = FCREATE("NewFile")

DO WHILE NOT FEOF(lnH)
  lcLine = FGETS(lnH, 8000)
  IF NOT ["Florida"] $ lcLine
    = FPUTS(lnOut, lcLine)
  ENDIF
ENDDO

= FCLOSE(lnH)
= FCLOSE(lnout)

Open in new window

0
 
LVL 41

Expert Comment

by:pcelba
ID: 34114784
Wow, it works in opposite way... and it does not check the second field and :-)

Wait a moment please
0
 
LVL 41

Accepted Solution

by:
pcelba earned 250 total points
ID: 34114829
Version 2:
LOCAL lnH, lnOut, lcLine, lnPos

lnH = FOPEN("YourFile")
lnOut = FCREATE("NewFile")

DO WHILE NOT FEOF(lnH)
  lcLine = FGETS(lnH, 8000)
  lnPos = AT(["], lcLine, 3)
  IF lnPos > 0 AND SUBSTR(lcLine, lnPos, 9) == ["Florida"]
    = FPUTS(lnOut, lcLine)
  ENDIF
ENDDO

= FCLOSE(lnH)
= FCLOSE(lnout)

Open in new window

0
 
LVL 27

Assisted Solution

by:CaptainCyril
CaptainCyril earned 250 total points
ID: 34116051
The way I would do it is this:

CREATE CURSOR import (name C(50), state C(50), field1, ..., field28)
APPEND FROM csv.csv TYPE CSV
DELETE FOR state = "Florida"
0
 

Author Closing Comment

by:formadmirer
ID: 34117028
I was gone and when I returned had a message saying that it would be best if multiple matches were allowed, meaning not matching just 'Florida', but other selected states as well.

Since this is not the question I posted, I think it's only fair to you that I close this question, awarding points evenly, and re-ask a new question.

Thanks!
0

Featured Post

Master Your Team's Linux and Cloud Stack

Come see why top tech companies like Mailchimp and Media Temple use Linux Academy to build their employee training programs.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Search for a String within a String 3 364
dedupe in foxpro 12 458
Foxpro executable does not show up 3 456
vfp 9 and macintosh 7 153
Microsoft Visual FoxPro (short VFP) is a programming language with it’s own IDE and database, ranking somewhat between Access and VB.NET + SQL Server (Express). Product Description: http://msdn.microsoft.com/en-us/vfoxpro/default.aspx (http://msd…
SEO can be a real minefield to navigate, but there are three simple ways to up your SEO game just be re-assessing your content output.
In a recent question (https://www.experts-exchange.com/questions/28997919/Pagination-in-Adobe-Acrobat.html) here at Experts Exchange, a member asked how to add page numbers to a PDF file using Adobe Acrobat XI Pro. This short video Micro Tutorial sh…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…

773 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question