Works perfect. but my progress bar does not function when I do this. If I click the button1 manually everything works, and everything works with the

1.IF _FILEEXISTS("yourfile") THEN
2.__UI_Click Button1
3.END IF


perfectly but does not show my progress bar like it does when you manually click button1. But it does everything else that button1 does when clicked.

I am needing a way for a QB64 / InForm App to look and see if a file exist every 5 minutes. The app will remain running on the Task Bar, and if the file is detected, I need the app to automaticly execute Button1. Does any one know how this can be accomplished, or have a snippet to share?

OK guys I got it and wanted to post in the event anyone else ever needs it.

This works perfect!


CALL Replace

PRINT "Complete"

SUB Replace ()
    text$ = ""

    OPEN "FRUIT.txt" FOR INPUT AS #1
    DO WHILE NOT EOF(1)
        LINE INPUT #1, line$
        text$ = text$ + line$ + CHR$(13) + CHR$(10)
    LOOP
    CLOSE #1

    text$ = StrReplace$(text$, "APPLE", "PEAR")
    text$ = LEFT$(text$, LEN(text$) - 1)

    OPEN "FRUIT_2.txt" FOR OUTPUT AS #2
    PRINT #2, text$
    CLOSE #2
END SUB

'$INCLUDE:'source\utilities\strings.bas'

SpriggsySpriggs,


Job well done! It works great... :-))

your method of removing the extra $$ and .. is a lot more simple than the way I done it. I'm going to have to make a note of this for sure..

weather = STRING.Remove(weather, CHR$(10) + ".")
weather = STRING.Remove(weather, "$$")



My way:


OPEN "fetch1.txt" FOR INPUT AS #1
OPEN "fetch2.txt" FOR OUTPUT AS #2
WHILE NOT EOF(1)
    INPUT #1, LineTxt
    IF LEFT$(LineTxt, 1) = "." THEN
PRINT #2, " "PRINT #2, MID$(LineTxt, 2); " "
ELSE
PRINT #2, LineTxt 'write output to new file fetch2.txt
END IF
WEND
CLOSE #1
CLOSE #2

' Remove $$
OPEN "fetch3.txt" FOR INPUT AS #1
OPEN "forecast.txt" FOR OUTPUT AS #2
WHILE NOT EOF(1)
    INPUT #1, LineTxt2
    IF LineTxt2 = "$$" THEN
LineTxt2 = "  "
PRINT #2, "  "
ELSE
PRINT #2, LineTxt2 'write output to new file forecast.txt
END IF
WEND
CLOSE #1
CLOSE #2


Guess I just like taking the long way around, Hehehehe


Congratulations again on a great job.

WORKING!!!!  Thanks for all the help. I as using _SCREENHIDE instead of $SCREENHIDE.

Everything working great..

Thank you.
Kent

I am trying to call another Windows application by using the SHELL command from within a QB64 application. It all works just fine with the exception of it displaying a BLACK WINDOW when application starts just before running the SHELL command.

Is there a way to not show or hide the default screen when a QB64 app first runs. It only display for a second, but because this small application is running another windows application using the SHELL command, it flashes the black window on the screen first.


Basically the code is:

_SCREENHIDE
SHELL _HIDE "PROGRAM.EXE"
END


Everything works perfect for what I'm needing to do except the black pop-up windows when the program starts.



Any help is appreciated.

Thank you.
Kent

I may have spoken to soon.

Although when I use the code at the beginning of my app,

IF COMMAND$ = "-h" THEN
_SCREENHIDE
ELSE
END IF


It does stop the program from running in the foreground. However the first time you run it, it still shows the WINDOW.
After it's runs for the first time, it no longer show the window. Anyone have any ideas on this?

Thank you.
-Kent

Pete

Thanks for the info.

So how would you pass a command line option to the program to enable $SCREENHIDE?

Looking to do something like  "application.exe -h" to make it run in hidden mode, otherwise it would run normal if no command line option is used.

Thanks.
-Kent