[编程交流] 当ca

(defun test1 (/ strng1)
(setq strng1 (getstring "Enter sumthin: "))
)

(defun test2 ()
(setq strng2 (getstring "Enter sumthin else"))
)

;;; function 1 just sets a string to the var [b]str[/b]
(defun fun1 ( / str)
 (setq str "\nthis is a test string")
 str
)
;;; function 2 expects an argument and prints it.
(defun fun2 (arg)  
 (princ arg)
)
;;; this code just calls function 2 with function 1 as an argument
(fun2 (fun1))
;;; when you are done, [b]str[/b] is either 
;;; nil or it's previous value before running
;;; any of this code.

<p>Public MyAttTextStr As String</p><p>[/code[</p><p> </p><p>but looking in the local window it does not show the string at all?</p><p> </p><p>if i put it at the top of the module with the other Dims then it works for that module?</p><p> </p><p>cheers, </p><p> </p><p>col</p>