An alternative to MsgBox() function

[kcvinu 71]

Hi all,

I have made a simple script to use instead of MsgBox function. This function takes only one parameter as message text. It will display your script name as message title. Here is the code. You can include this in your script.

#cs
Function name = Alert($msg)
Creater = kcvinu
Example = Alert("Hello World!")

This function is an alternative for MsgBox.
It only takes one parameter as message text
And it will display the script name as title

#ce

Func Alert($msg)
    Local $title = StringSplit(@ScriptName,".")     ; Splitting the script name into two piece.
    MsgBox(0,$title[1],$msg)                        ; Using the first piece as title. 2nd piece is the extension.
EndFunc

Here is the file

Alert.au3

Edited September 6, 2015 by kcvinu

[kjsisco 0]

Interesting function.  Did you actually want it to replace the msg box?  If so, you still needed to use it.  Maybe I misunderstood the point?

[JohnOne 1,626]

MsgBox(0, StringSplit(@ScriptName,".")[1], "Hello")

[water 2,720]

What is the advantage compared to MsgBox?

[wakillon 408]

What's happen if there is several points in the script name ?

[kcvinu 71]

Hi 

water, Sometimes we need to use the MsgBox function rapidly. I mean for test purposes. Mostly, when we learning something. Then we don't need to type the flag and title.  Just use this function with your msg. 

 

@

wakillon, Commonly people don't uses dots in filenames. Most programmers uses underscore in filenames. If you want to use two or more dots in your filename, then i need to use another function to strip the extension.

[kcvinu 71]

 If so, you still needed to use it.  

@

kjsisco, This function is for instant use. And what do you mean by this comment.

 

@

JohnOne, Thank you for that code 

[iamtheky 932]

@scriptlinenumber or a timerdiff or just about anything else would be more useful than the script name as the hard coded title, imho.

 

and i believe he means that you can't call it a "msgbox alternative", because it uses msgbox.  It is more a thread discussing your "msgbox presets".

[Guest]

why not use _WinAPI_ShowMsg ?

[Valuater 138]

All Functions should have a "Return"

Return MsgBox(0, StringSplit(@ScriptName,".")[1], $msg)

[kcvinu 71]

@ 

boththose OK. got it.

[Gianni 850]

...  Sometimes we need to use the MsgBox function rapidly ....

 

 

I would add a default parameter so you can call the function even more quickly (that is even without parameters at all....)

Func Alert($msg = "Pause")
    Local $title = StringSplit(@ScriptName,".")     ; Splitting the script name into two piece.
    MsgBox(0,$title[1],$msg)                        ; Using the first piece as title. 2nd piece is the extension.
EndFunc

 

[kcvinu 71]

@

Valuater, This is my fist step in the UDF world. I know, i need to learn more. Thanks for the suggestion.

 

@

gil900, Actually, This is the first time i met  _WinAPI_ShowMsg. I don't know anything about it.

[wakillon 408]

 

i need to use another function to strip the extension.

 

This is what I wanted hear you say.

Take a look to the _PathSplit function.

Edited February 24, 2015 by wakillon

[JohnOne 1,626]

If you are going to use something like this you should make the other parameters optional.

_MsgBox("Hello")
_MsgBox("Hello", "Title")
_MsgBox("Hello", "Title", 4096)

Func _MsgBox($msg, $title = StringSplit(@ScriptName,".")[1], $flag = 0)
    Return MsgBox($flag, $title, $msg)
EndFunc

[kcvinu 71]

@

wakillon, Here is the code.

#cs
Function name = Alert($msg)
Creater = kcvinu
Example = Alert("Hello World!")

This function is an alternative for MsgBox.
It only takes one parameter as message text
And it will display the script name as title

#ce

Func Alert($msg)
    Local $Length = StringLen(@ScriptName)
    Local $title = StringMid(@ScriptName,1,$Length-4)       ; Stripping the script name without extension.
    MsgBox(0,$title,$msg)
EndFunc

[Gianni 850]

 

@

wakillon, Here is the code.

#cs
Function name = Alert($msg)
Creater = kcvinu
Example = Alert("Hello World!")

This function is an alternative for MsgBox.
It only takes one parameter as message text
And it will display the script name as title

#ce

Func Alert($msg)
    Local $Length = StringLen(@ScriptName)
    Local $title = StringMid(@ScriptName,1,$Length-4)       ; Stripping the script name without extension.
    MsgBox(0,$title,$msg)
EndFunc

 

what happens if your script name has no extension.....

[kcvinu 71]

what happens if your script name has no extension.....

You can't run a script without save it in SciTe. If you save your script, then your script name must have an extension. 

[Gianni 850]

You can't run a script without save it in SciTe. If you save your script, then your script name must have an extension. 

 

yes, but you can compile it, remove the .exe extension and run it from another script by the run() function....

[kcvinu 71]

yes, but you can compile it, remove the .exe extension and run it from another script by the run() function....

If so, i need to include an if statement to check if the script name has an extension.

Edited February 24, 2015 by kcvinu