PureBasic Forums - English

Code: Select all

console.l = RunProgram("perl.exe"," regReplace.pl","",#PB_Program_Open|#PB_Program_Read|#PB_Program_Write) 

For i=1 To 50

If AvailableProgramOutput(console) 
 s.s = s.s + "    " + ReadProgramString(console) 

EndIf 

Delay(10) 
Next i
Debug s

Code: Select all

#/user/bin/perl

#$string = 'The cat sat on the mat';
$string = 'raab rdaab saabg fkaab saabv';
#$string =~ s/cat/dog/;
$string =~ s/(?<!d|k)aab/x/g;

print "Final Result is $string\n";

Code: Select all

Define words.s
words = "raab rdaab saabg fkaab saabv"
console.l = RunProgram("perl.exe ", "regReplace.pl" + " " +words,"",#PB_Program_Open|#PB_Program_Read|#PB_Program_Write) 

For i=1 To 50

If AvailableProgramOutput(console) 
 s.s = s.s + "    " + ReadProgramString(console) 

EndIf 

Delay(10) 
Next i
Debug s

Code: Select all

#/user/bin/perl

@str = @ARGV;
$string =  join(" ", @str);
print "the string is $string\n";
$string =~ s/(?<!d|k)aab/x/g;
print "Final Result is $string\n";

Code: Select all

RunProgram("perl"," regReplace.pl","",#PB_Program_Open|#PB_Program_Read|#PB_Program_Write)

Code: Select all

console = RunProgram("perl", paras$, path$, #PB_Program_Open| #PB_Program_Read| #PB_Program_Write)

While ProgramRunning(console)
  If AvailableProgramOutput(console)
    Debug ReadProgramString(console) 
  EndIf
Wend
CloseProgram(console) 

Code: Select all

console.l = RunProgram("factor.exe"," -s 111111111111111111111111","",#PB_Program_Open|#PB_Program_Read|#PB_Program_Write) 

While ProgramRunning(console)
If AvailableProgramOutput(console) 
 s.s = s.s + "    " + ReadProgramString(console) 

EndIf 

Delay(10) 
Wend
Debug s

Code: Select all

;{ ========================================================================== 
;|  EndProgram(processID.l) 
;|    Closes the application that was started with RunProgram. In difference 
;|    to KillProgram it allows the program to shut down properly and save e.g. 
;|    settings. The parameter "processID" is obtained by ProgramID(<result of 
;|    RunProgram(app$,option$,path$, #PB_Program_Open)>) 
;} ========================================================================== 
Procedure EndProgram(processID.l) 
;***** End a program started with Runprogram, but give chance to save settings! 
  If OpenProcess_(#PROCESS_ALL_ACCESS,0,processID)<>0 
    CloseHandle_(processHandle) 
    Repeat ;searcht through all windows 
      win=FindWindow_(0,0) 
      While win<>0 
        GetWindowThreadProcessId_(win,@pid.l) ; get processID of found window 
        If pid=processID : WinHandle=win : Break : EndIf 
        win=GetWindow_(win,#GW_HWNDNEXT)
        Delay(100) 
      Wend 
    Until WinHandle 
    PostMessage_(WinHandle,#WM_CLOSE,0,0) ; Now close the started application 
  EndIf 
EndProcedure 

Procedure factorize(number$)
s.s
number$ = " -d200 "+" -s "+number$ 

handle.l = RunProgram("factor.exe",number$,"",#PB_Program_Open|#PB_Program_Read|#PB_Program_Write|#PB_Program_Hide) 
id.l = ProgramID(handle) 

waitTime.l=20000  ;20000 milliseconds

Result = WaitProgram(handle.l,waitTime)
If Result=0
  s = "the factoring time will exceed the waitTime specified, the process is halted    "
 CloseProgram(handle) 
 Sleep_(2000) ; Give it a couple of seconds to open. 
 EndProgram(id);End started program
 Goto jmp
EndIf
While AvailableProgramOutput(handle)
   s = s + ReadProgramString(handle) + "  *  "

Delay(10) 

Wend
jmp:
s = Mid(s,1,Len(s)-4)
;SetGadgetText(0, s)
AddGadgetItem(0, -1, s+Chr(13)+Chr(10))
EndProcedure
If OpenWindow(0,0,0,550,460,"numbers factoring",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
EditorGadget(0, 10, 230, 380, 210)
SendMessage_(GadgetID(0), #EM_SETTARGETDEVICE, #Null, 0)
StringGadget(1, 10, 80, 380, 60, "write number here", #PB_String_Numeric |#ESB_DISABLE_LEFT | #ESB_DISABLE_RIGHT | #ES_MULTILINE | #ES_AUTOVSCROLL | #WS_VSCROLL )
ButtonGadget(2, 420, 400, 120, 40, "Factorize" ) 
Repeat 
  Event = WaitWindowEvent()
     
     Select Event
     
       Case #PB_Event_Gadget
         Select EventGadget()
         Case 2 :
             number$ = GetGadgetText(1)
             factorize(number$) 
         EndSelect
      EndSelect
Until Event = #PB_Event_CloseWindow
EndIf