Force variable evaluation

[imtcb]

I have looked through the help file and the forum and I just can't figure it out. How can I force evaluation of a variable so I can use the variable value in a listname declaration?

Code: Select all

temp$ = SomeProcedureCallReturnValue()
NewList temp$()

This creates the list with the name temp$, not the value that was returned from the procedure.
Is there a way to make this work?

Also, I asked a question in my other thread that was a little off topic and it didn't get an answer. Is there any way to capture the errorlevel / exitcode from xcopy? I researched the Process library and even used the sample code but I just can't get it to capture anything out of xcopy. Not even the help text from using /?.
Here is the sample code with only the program changed to use xcopy instead:

Code: Select all

  Compiler = RunProgram("c:\windows\system32\xcopy.exe", "/?", "", #PB_Program_Open|#PB_Program_Read)
  Output$ = ""
  If Compiler  
    While ProgramRunning(Compiler)
      Output$ + ReadProgramString(Compiler) + Chr(13)
    Wend
    Output$ + Chr(13) + Chr(13)
    Output$ + "Exitcode: " + Str(ProgramExitCode(Compiler))     
  EndIf
  MessageRequester("Output", Output$)

[Heathen]

For your first question, pb doesnt work that way. When it says "name" in the helpfile, its not refering to a string... It's like declaring an array without specifying fields.

ie

Code: Select all

NewList mylist()
For x = 1 To 10
  AddElement(mylist())
  mylist() = x
Next x
ForEach mylist()
  Debug mylist()
Next 

[imtcb]

Thanks. Not the answer I was hoping for, but thank you none the less!

[Kaeru Gaman]

it's the same as in most real compiler-languages:

the name of any variable/structure/function/etc. is just a placeholder for some pointer.
it's a word in the code to make it easy to read for the programmer,
but in the .exe it's only a number, no name left anywhere...

[blueb]

Question #2...

Don't know if this is what you are looking for...

Code: Select all

OpenConsole()
 Compiler = RunProgram("c:\windows\system32\xcopy.exe", "/?", "", #PB_Program_Open|#PB_Program_Read) 
CloseConsole()
  Output$ = "" 
  If Compiler  
    While ProgramRunning(Compiler) 
      Output$ + ReadProgramString(Compiler) + Chr(13) 
    Wend 
    Output$ + Chr(13) + Chr(13) 
    Output$ + "Exitcode: " + Str(ProgramExitCode(Compiler))      
  EndIf 
  MessageRequester("Output", Output$)

[imtcb]

Thank you both!

@Kaeru Gaman - This is my first attempt at programming. I have used scripting languages in the past, and one of them allowed forced evaluation like I was trying to do. Looking through the help file I think I will be able to make a structure work for me.

@blueb - Yes! This in fact does work! However, I spent about 4 hours yesterday coding off of an example in my other thread which listed the directories recursively. I have it working flawlessly now, and it has way more flexibility than xcopy does. Thank you though for helping me, I do appreciate it!

[Clutch]

Question #2...

Don't know if this is what you are looking for...

Code: Select all

OpenConsole()
 Compiler = RunProgram("c:\windows\system32\xcopy.exe", "/?", "", #PB_Program_Open|#PB_Program_Read) 
CloseConsole()
  Output$ = "" 
  If Compiler  
    While ProgramRunning(Compiler) 
      Output$ + ReadProgramString(Compiler) + Chr(13) 
    Wend 
    Output$ + Chr(13) + Chr(13) 
    Output$ + "Exitcode: " + Str(ProgramExitCode(Compiler))      
  EndIf 
  MessageRequester("Output", Output$)

blueb, thanks very much for this! I spent a couple days trying to redirect PsExec's output and ultimately gave up figuring it wasn't possible (see here). Using your modifications, it now works perfectly! Can you explain why adding Open/CloseConsole() works?

Thanks again!

[blueb]

I'm not exactly sure, but you might look in the MS Platform SDK and look under "consoles".

I think it has to do with character based programs (like XCopy) needing a new process space.

--blueb