Here's the goal: Assume a layout with multiple fields. Go to the first
field, extract both the contents of a field and the field name, concatenate
the resulting text strings, paste that info in another field (call it
concatenatedText), go to the next field on the layout, and so forth, always
adding to the final concatenated string in concatenatedText. I can do the
Looping with a counter, the moving from one field to the next, etc. But I am
having trouble figuring out how to get the Get (ActiveFieldName) and Get
(ActiveField Contents) functions to work properly in the necessary script.
Anyone have experience with a similar problem? Any help appreciated.

What problems are you having? Can you post what you've got so far?

-G

I have a table with 60 fields in it (call them field1, field2, etc.) These
are all number fields. The field names are important to what I want to do.
Let's call the field names fieldName1, fieldName 2, etc. I need to extract
the field name and field contents, but only from fields which are not empty.
The resultant information needs to go into a different field which we'll
call concatenatedText. The final contents of concatenatedText should look
something like this: "fieldName1: field1, fieldName5: field5, fieldName55:
field 55" assuming that fields 1, 5 and 55 are the only fields which contain
data.

I have a script where I loop through the fields. It looks something like
this:

Go to Field [fieldName1]
Set Field [counter; 0]
Loop
Set Field [counter; counter+1]
If [Get (ActiveFieldContents)=""]
Go to Next Field
Else
Copy [Select]
Go to Field [concatenatedText]
Paste [concatenatedText]
Insert text [", "]
End If
Go to Next Field
Exit Loop If [counter>60]
End Loop

Note that this script successfully extracts the field contents and adds it
to concatenatedText, but when I try to use Get (ActiveFieldName) as well, it
does not seem to work. It ends up going to concatenatedText and pastes that
field name instead of what I want. Where can I use this function in this
script, or is there a more elegant answer that I am missing?

Thanks for your input.


"Grip" <grip (AT) cybermesa (DOT) com> wrote

I personally don't like Copy and Paste and Insert.
What about a calculation field concantatedText that looks like

=If(Field1 (not=) ""; "Field1:" & Field1) & If(Field2 etc.

or a script along the principle of Set Field

Go to Field [fieldName1]
Set Field [counter; 0]
Loop
Set Field [counter; counter+1]
If [Get (ActiveFieldContents)=""]
Go to Next Field
Else Set Field [concText] = [concText & Get(ActiveFieldName)&":"&
Get(ActiveFieldContents)
End If
Go to Next Field
Exit Loop If [counter>60]
End Loop



-G

I am trying to create a solution to keep track of heart angiograms using CT
technology. I want to be able (among other things) correlate the findings
obtained with CT with those of conventional invasive amgiography. The
solution includes tables for CT and for Angio. The entire coronary artery
tree may be divided into 60 separate segments (one field for each segment in
each of the two tables). Each of these fields is a number field to show
percent narrowing in the artery in that segment. The fields are named for
the vessel segments (e.g. proximal LAD, mid circumflex, etc.) I want to
query each nonempty field, extract the field name and the field contents,
then paste or enter that info into another field which will be readable for
reporting purposes (e.g. proximal LAD: 50% narrowed; mid circumflex: 25%
narrowed, etc.).

Hope that makes sense.


"Catja Pafort" <usenet (AT) greenknight (DOT) org.uk.invalid> wrote

You might also write your script as:

Commit Record
Go to Next Field
Set Field STARTFIELD to Get(ActiveFieldName)
Loop
Set Field RESULT to RESULT &
If(IsEmpty(Get(ActiveFieldContents)), "",
Get(ActiveFieldName) & ":" & Get(ActiveFieldContents) & ",
")
Go to Next Field
Exit Loop If Exact(Get(ActiveFieldName), STARTFIELD)
End Loop