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


> > Wish there was a more elegant way of getting variable names.
> > Tony
>
> Well, I read, but did not understand exactly what you are trying to do, Sorry, but anyway I hope this can help you or give you some idea.
>
>
Clear 
> lcVar1 = "String 1"
> ldVar2 = Date(2009,05,20)
> lnVar3 = 100
> 
> oColl = CreateObject("Collection")
> 
> oColl.Add("lcVar1",Transform(lcVar1))
> oColl.Add("ldVar2",Transform(ldVar2))
> oColl.Add("lnVar3",Transform(lnVar3))
> 
> ? oColl("String 1") 		&& Gives lcVar1
> ? oColl(Dtoc(Date(2009,05,20))) && Gives ldVar2
> ? oColl("100")		        && Gives lnVar3
> 

>
> Samir Ibrahim

Very clever! But I think not relevant.

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):

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

* RESULT SHOULD BE---
*We has met the enemy, and he is us!
*====================

FUNCTION searchfor(aArray,nStartat,cPredicate)
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