Solved

VFP9 CSV Processing

Posted on 2010-11-11
5
303 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

Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

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…
Find out what Office 365 Transport Rules are, how they work and their limitations managing Office 365 signatures.
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…
This video demonstrates how to create an example email signature rule for a department in a company using CodeTwo Exchange Rules. The signature will be inserted beneath users' latest emails in conversations and will be displayed in users' Sent Items…

707 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

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now