Hilfe für RunProgram von Konsolenkommandos ...

[Didelphodon]

Hi Leutz,

habe schnell was zusammengecoded - ich denke, das könnte für ein paar von Euch von Interesse sein ...

Mit dem folgenden Code kann man beliebige Konsolenkommandos mit PureBasic-Mitteln absetzen:

Code: Alles auswählen

Procedure.l RunConsoleCommand(command.s, flags.l = #PB_Ignore)
    file.l = CreateFile(#PB_Any, GetTemporaryDirectory() + "ConsoleCommand.dat")
    WriteStringN(file, "#!/bin/sh")
    WriteStringN(file, command)
    CloseFile(file)
    RunProgram("chmod", "+x " + GetTemporaryDirectory() + "ConsoleCommand.dat", "", #PB_Program_Wait)
    If (flags <> #PB_Ignore)
        ProcedureReturn RunProgram(GetTemporaryDirectory() + "ConsoleCommand.dat", "", "", flags)
    Else
        ProcedureReturn RunProgram(GetTemporaryDirectory() + "ConsoleCommand.dat", "", "")
    EndIf
EndProcedure

prg.l = RunConsoleCommand("ls / -aon | grep total", #PB_Program_Open | #PB_Program_Read)
If (IsProgram(prg))
    While (ProgramRunning(prg))
        s.s = ReadProgramString(prg)
        Debug s
    Wend
    CloseProgram(prg)
EndIf

Hoffe, es hilft Euch.

LG Didel.