VFP6 adding a ' to any chr field starting with a '+'.

[wetton]

I need to scan through a table and add a ' to any chr field starting with a '+'.

Any help with some code please.

Thanks


PW

 

[tsh73]

may be not very effective, but just works.
Works on a current table.
WARNING! some data could be lost by doing PADR (last character)

clear
n= afields(fieldInfo)
for i=1 to n	
	? fieldInfo(i,1),  fieldInfo(i,2), (fieldInfo(i,2)="C"), fieldInfo(i,3)
	if fieldInfo(i,2)="C"
		fildname = fieldInfo(i,1)
		fildsize = fieldInfo(i,3)
		replace &fildname. with padr("'"+&fildname., fildsize) for &fildname.="+"
	endif
next
?"Over!"

 

[GriffMG]

Do you need the ' added to the beginning or the end of the field - if it's the end, do you need it trimmed first (or just the last character replaced)?

Are you concerned that the fields might 'overflow?

private myFields,myFieldname,i
use mytable
myFields = afields(myArray)
for i = 1 to myFields
	myFieldname = myArray(i,1)
	if myArray(i,2) = "C"
		replace all &myFieldname. with trim(&myFieldname.)+"'" for left(&myFieldname.,1) = "+"
	endif
next

Regards

Griff
Keep [Smile]ing

 

[GriffMG]

Tsh,

If you take what we just did, and then look at the SCO-IBM lawsuit, you can see why they're in a bit of a mess!

Two people working completely indpendently, come up with almost identical code for the same problem...

B-)

Regards

Griff
Keep [Smile]ing

 

[tsh73]

Griff,
I would like to think
"Great minds work alike" )

 

[wetton]

Thanks to you both...

Testing in my app now..


PW