Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Samir Ibrahim
  Where is Samir Ibrahim?
 Chekka
 Lebanon
 Samir Ibrahim
 To: Tony Vignone
  Where is Tony Vignone?
 St Augustine
 Florida - United States
 Tony Vignone
 Tags
Subject: RE: Name of a Variable
Thread ID: 227055 Message ID: 228610 # Views: 1 # Ratings: 0
Version: Visual FoxPro 9 Category: General VFP Topics
Date: Wednesday, May 20, 2009 10:21:14 AM         
   


>
> If you are curious and have the spare time, write your version of the function that will yield the following result (I won't show you mine yet so you have a clear mind):

Something like this maybe?
Clear 
local i
local array atext(3)
atext(1) = "Now is the time for all to come to the aid of their country."
atext(2) = "We has met the enemy, and he is us!"
atext(3) = "You now have $12,456,89"

i = searchfor(@atext,1,[i<alen(atext) and "$" $ atext(i+1) and "enemy" $ atext(i)])
IF i <= alen(atext) THEN
   ?atext(i)
ELSE
   ?"NOT FOUND"
ENDIF

Function SearchFor(atext,nStartat,cPredicate)
	On Error p=0
	nCreteria = ALines(aCreteria,cPredicate,1,"and","or")
	For I = 1 to Alen(aText)
		nAnswer = 0
		For loop = 1 to nCreteria
			If &aCreteria(loop) then 
				nAnswer = nAnswer + 1
			Else
				nAnswer = 0
			EndIf 
		Next loop
		If nAnswer = 3 then 
			Return I
		EndIf 
	Next I
	On error
EndFunc 


ENTIRE THREAD

Name of a Variable Posted by Tony Vignone @ 5/6/2009 4:05:35 PM
RE: Name of a Variable Posted by Tom Saddul @ 5/6/2009 4:22:19 PM
RE: Name of a Variable Posted by Tony Vignone @ 5/6/2009 4:57:45 PM
RE: Name of a Variable Posted by Tom Saddul @ 5/6/2009 5:37:24 PM
RE: Name of a Variable Posted by Tony Vignone @ 5/6/2009 5:43:49 PM
RE: Name of a Variable Posted by Tony Vignone @ 5/6/2009 5:58:58 PM
RE: Name of a Variable Posted by Tom Saddul @ 5/6/2009 6:19:08 PM
RE: Name of a Variable Posted by Tony Vignone @ 5/14/2009 3:19:11 PM
RE: Name of a Variable Posted by Tom Saddul @ 5/17/2009 10:09:28 AM
RE: Name of a Variable Posted by Tony Vignone @ 5/17/2009 7:31:52 PM
RE: Name of a Variable Posted by Tom Saddul @ 5/18/2009 8:09:44 AM
RE: Name of a Variable Posted by Tony Vignone @ 5/18/2009 3:52:23 PM
RE: Name of a Variable Posted by Tom Saddul @ 5/19/2009 3:41:37 PM
RE: Name of a Variable Posted by Tony Vignone @ 5/19/2009 4:02:11 PM
RE: Name of a Variable Posted by Tony Vignone @ 5/18/2009 6:20:29 PM
RE: Name of a Variable Posted by Samir Ibrahim @ 5/19/2009 6:56:28 PM
RE: Name of a Variable Posted by Tony Vignone @ 5/19/2009 9:10:40 PM
RE: Name of a Variable Posted by Samir Ibrahim @ 5/20/2009 10:21:14 AM
RE: Name of a Variable Posted by Tony Vignone @ 5/20/2009 6:34:39 PM
RE: Name of a Variable Posted by Tom Saddul @ 5/21/2009 1:52:57 AM
RE: Name of a Variable Posted by Tony Vignone @ 5/21/2009 7:33:39 PM
RE: Name of a Variable Posted by Samir Ibrahim @ 5/21/2009 10:35:02 AM
RE: Name of a Variable Posted by Tony Vignone @ 5/21/2009 7:58:52 PM
RE: Name of a Variable Posted by Samir Ibrahim @ 5/22/2009 11:04:13 AM
RE: Name of a Variable Posted by Tony Vignone @ 5/22/2009 3:07:38 PM
RE: Name of a Variable Posted by tushar @ 5/6/2009 6:10:53 PM