Very Computer

Quote:>I am trying to use a variable in a query (saved with a tilde variable) by
>reading from a file and then setting the variable.  Anyone know how to do
>this?  I can hard code the query (by pasting the file into the method) and
>then setting the variable, but I'd like to do it the other way.

var
   qVar               query
   r report
   wret anytype
   Name4QBE anytype
  ;*** the followind vars are added
   s,s1 string
   ts textstream
   i longint
  ;***
endvar
<snip>
if CurrentNameKey > 0
      then Name4QBE = CurrentNameKey
      else Name4QBE = ">0"
endif
;**** the following code reads a query to a string and replaces tilde var by
the
actual value
ts.open(MasterQBEToRun+".qbe","r")
s="" while ts.readline(s1) s=s+s1+"\n" endwhile
i=s.search("~Name4QBE")
s=s.substr(1,i-1)+Name4QBE+s.substr(i+9,s.size()-(i+8))
;****
qVar.readfromstring(s)
if NOT qVar.executeQBE()
   then msgStop("ERROR","Unable to execute query "+
                                        MasterQbeToRun) ; ERROR HERE
        errorshow()
        return
endif

HIH

Russ Carmichael

'You can't be a Real Country unless you have a BEER and an airline. It helps if
you have some kind of a football team, or some nuclear weapons, but at the very
least you need a BEER'  Frank Zappa