Child_Enum() to find text value of objects

[Ronald Anusiewicz]

I would like to return the text value of all the text objects on my application's forms. I found this example by Selwyn. However; it returns all the properties. I've referenced the help files but I really didn't find it very helpful.

what I'm looking for is something along the lines of: Fullname_lbl.Text = "Name:"

I believe this is possible, I just need to get the line "txt2 = f.Child_Enum("r;o=t=v") right.

dim formList as c
formList = a5.Form_Enum(2)
formList = sortsubstr(formlist,crlf())

'FOR demonstration purporses, limit to first 5 forms
formList = word(formList,1,crlf(),8)


dim txt as c = ""
dim txt2 as c = ""
for each fm in formList

dim f as p
f = form.load(fm.value)

on error resume next
txt2 = ""

'Use the .child_enum() method to list all of the child objects, their properties and each property value.

'txt2 = f.Child_Enum("p;r;o=f=v")
txt2 = f.Child_Enum("r;o=t=v")
'txt2 = f.Child_Enum("r;f=field")

txt = txt + crlf(2) + "Form name: " + fm.value + crlf() + replicate("-",100) + crlf(3)
txt = txt + txt2 + crlf()

f.close()
next


showvar(txt)

[G Gabriel]

Re: Child_Enum() to find text value of objects

Try this:

dim formList as c
formList = a5.Form_Enum(2)
formList = sortsubstr(formlist,crlf())
formList = word(formList,1,crlf(),5) [COLOR="#FF0000"]Incidentally, you say limit to 5 but you are asking for 8 ![/COLOR]
dim txt as c = ""
dim f as p
dim f.txt2 as c = ""
for each fm in formList
f = form.load(fm.value)
on error resume next
txt2 = f.Child_Enum("f=text")
txt = txt + crlf(2) + "Form name: " + fm.value + crlf() + replicate("-",100) + crlf(3)
txt = txt + txt2 + crlf()
f.close()
next
showvar(txt)

[Ronald Anusiewicz]

Re: Child_Enum() to find text value of objects

Thank you G.

I'm moving forward. This is what I'm getting now:

Form name: MainMenu
----------------------------------------------------------------------------------------------------
CONTROL_TEXT1
CONTROL_TEXT3
CONTROL_TEXT4
CONTROL_TEXT5


And this is what I would like to get:

Form name: MainMenu
----------------------------------------------------------------------------------------------------
CONTROL_TEXT1=��
CONTROL_TEXT3=�Tomorrow�
CONTROL_TEXT4=�Start Here�
CONTROL_TEXT5=�Help�


Sorry, the flags for child_enum() in help, they just don't make any sense to me.

Mycurrent code:

'get a sorted list of forms in the workspace
dim formList as c
formList = sortsubstr(a5.form_enum(2),crlf() )

'count the number of forms and create a list
dim Form_Cnt as N
Form_Cnt = w_count(formList,crlf())
formList = word(formList,1,crlf(),Form_Cnt)

dim txt as c = ""
dim f as p
dim f.txt2 as c = ""

for each fm in formList
	f = form.load(fm.value)
	on error resume next
	txt2 = f.Child_Enum("f=text")
	txt = txt + crlf(2) + "Form name: " + fm.value + crlf() + replicate("-",100) + crlf()
	txt = txt + txt2 + crlf()
	f.close()
next

showvar(txt)

[G Gabriel]

Re: Child_Enum() to find text value of objects

dim formList as c
formList = a5.Form_Enum(2)
formList = sortsubstr(formlist,crlf())
formList = word(formList,1,crlf(),1)
dim txt as c = ""
dim f as p
dim f.txt2 as c = ""
for each fm in formList
f = form.load(fm.value)
on error resume next
txt2 = f.Child_Enum("o=t=v;f=text")
txt = txt + crlf(2) + "Form name: " + fm.value + crlf() + replicate("-",100) + crlf(3)
txt = txt + txt2 + crlf()
f.close()
next
showvar(txt)

You could use "for..next" later to change from:
text:text_name
to text1=text_name or any other format you want..

[Ronald Anusiewicz]

Re: Child_Enum() to find text value of objects

I tried: txt2 = f.Child_Enum("o=t=v;f=text")

Now I get:

Form name: MainMenu
----------------------------------------------------------------------------------------
text=;Control_text1
text=;Control_text3
text=;Control_text4
text=;Control_text5


What does "o=t=v" mean? Where did that come from? I don't see that in the help file.

[Stan Mathews]

Re: Child_Enum() to find text value of objects

Try this.

'get a sorted list of forms in the workspace
dim formList as c
formList = sortsubstr(a5.form_enum(2),crlf() )

'count the number of forms and create a list
dim Form_Cnt as N
Form_Cnt = w_count(formList,crlf())
formList = word(formList,1,crlf(),Form_Cnt)

dim txt as c = ""
dim f as p
dim f.txt2 as c = ""
for each fm in formList
	f = form.load(fm.value)
	on error resume next
	txt2 = f.Child_Enum("e=this.object.name+space(1)+'='+space(1)+this.text","text")
	txt = txt + crlf(2) + "Form name: " + fm.value +crlf() + replicate("-",100) + crlf()
	txt = txt + txt2 + crlf()
	f.close()
next

showvar(txt)

The output may be easier to digest if you add

txt2 = sortsubstr(txt2,crlf())

after the
txt2 = f.Child_Enum("e=this.object.name+space(1)+'='+space(1)+this.text","text")

[G Gabriel]

Re: Child_Enum() to find text value of objects

Are you looking for something like this?

formList = sortsubstr(formlist,crlf())
formList = word(formList,1,crlf(),1)
dim txt as c = ""
dim f as p
dim f.txt2 as c = ""
dim x as n 
dim cnt as n	
for each fm in formList
f = form.load(fm.value)
on error resume next
txt2 = f.Child_Enum("f=text")
cnt=*count(txt2)
for each foo in txt2
	x=x+1
	foo="Text Object #"+x+" "+foo
	next
txt = txt + crlf(2) + "Form name: " + fm.value + crlf() + replicate("-",100) + crlf(3)
txt = txt + txt2 + crlf()
next
f.close()
showvar(txt)

[Ronald Anusiewicz]

Re: Child_Enum() to find text value of objects

Perfect Stan,

I just changed this line:

txt2 = f.Child_Enum("e=this.object.name+space(1)+'='+space(1)+quote(this.text)","text")

to put the text in quotes.

Thank you very much.

Ron

[G Gabriel]

Re: Child_Enum() to find text value of objects

Hmmm..........
I thought you wanted to get "text value of all the text objects"..
Or do you want all objects?

[Ronald Anusiewicz]

Re: Child_Enum() to find text value of objects

Nice touch Stan, txt2 = sortsubstr(txt2,crlf())

G, thank you for your effort. In the end, what Stan gave me was what I was really looking for. I figured that if I could figure our how to get the value of the text objects, I'd be able to figure out the rest on my own.

You know; crawl, walk, run.

Sincerely,

Ron

[G Gabriel]

Re: Child_Enum() to find text value of objects

Well now... If you tried that last script I posted, you would have skipped crawl and walk.. It gives you only the text objects, in the format you want..
BTW, when copy/paste the last script, I mistakenly did not copy the first 2 lines:
dim formList as c
formList = a5.Form_Enum(2)

[Ronald Anusiewicz]

Re: Child_Enum() to find text value of objects

Thank you G.,

I apologize for calling you G. as I don't know your first name.

This output portion below is exactly what I'm looking for. Stan's code after a minor change gave me this results. I probably didn't explain myself clearly enough, sorry.


BUTTON1 = "Contacts"
BUTTON2 = "Close"
BUTTON3 = "Appointments"
BUTTON4 = "Send Mail"
BUTTON5 = "Reminders"
BUTTON6 = "Appointment Calendar"
CONTROL_BUTTON4 = "Reports"
CONTROL_TEXT1 = "Run in Full Screen Mode"
CONTROL_TEXT3 = "Tomorrow"
CONTROL_TEXT4 = "Start Here"
CONTROL_TEXT5 = "Help"


Your code gives me this:

Text Object #66 CONTROL_TEXT1
Text Object #67 CONTROL_TEXT3
Text Object #68 CONTROL_TEXT4
Text Object #69 CONTROL_TEXT5

While I like what you did, it's not what I want.

But, thank you very much for your effort. I sincerely appreciate all of your contributions to this board.

Ron

[G Gabriel]

Re: Child_Enum() to find text value of objects

After 2 incidences of identity theft..I am gun shy..G will suffice.

I thought you wanted the name of the object. Evidently you want the name and the text.