What is the problem? Console arguments.
Posted: Sun Oct 04, 2015 9:04 am
Code: Select all
If Left(cmd$, 3) = "cd "
arg$ = Mid(cmd$, 3)
arg$ = Trim(cmd$)
arg$ = Trim(cmd$,Chr(9))
SetCurrentDirectory(arg$)
http://www.purebasic.com
https://www.purebasic.fr/english/
Code: Select all
If Left(cmd$, 3) = "cd "
arg$ = Mid(cmd$, 3)
arg$ = Trim(cmd$)
arg$ = Trim(cmd$,Chr(9))
SetCurrentDirectory(arg$)
Code: Select all
cmd$ = "cd " +Chr(9)+ "/some/where/Else" +Chr(9) + " "
If Left(cmd$, 3) = "cd "
arg$ = Mid(cmd$, 3) : Debug Mid(cmd$, 3)
arg$ = Trim(cmd$) : Debug Trim(cmd$)
arg$ = Trim(cmd$, Chr(9)) : Debug Trim(cmd$, Chr(9))
; SetCurrentDirectory(arg$)
Debug "arg$ = " + arg$
EndIf
Debug "*********"
If Left(cmd$, 3) = "cd "
arg$ = Mid(cmd$, 3) : Debug Mid(cmd$, 3)
arg$ = Trim(arg$) : Debug Trim(arg$)
arg$ = Trim(arg$, Chr(9)) : Debug Trim(arg$, Chr(9))
; SetCurrentDirectory(arg$)
Debug "arg$ = " + arg$
EndIf