To count number of arguments.

[ur]

I need to write a code in which I am reading a text file which is of .vbs format and in that a line contains function signature like below

Function CreateEnvironmentVariable($sType, $sName, $sValue, $bOverwrite)

If the string is in above format, then I need to check number of arguments in it.

For in above case it should return 4.

Can anyone help me on this.

 

[JLogan3o13]

@ur what have you tried on your own? Look at FileReadToArray in the help file to read the file in, and parse through it line by line. You can then use StringInStr to parse each line, something like this:

If StringInStr($aArray[$i], "CreateEnvironmentVariable") Then
   ;Count number of params
EndIf

 

Edited December 15, 2015 by JLogan3o13

[ur]

Got the code...

#include <StringConstants.au3>

$s = "Function CreateEnvironmentVariable($sType, $sName, $sValue, $bOverwrite)"
MsgBox(0,"",CountArgs($s))
Func CountArgs($strFunctionName)
    ;to differentiate between small brackets in strings
    $strFunctionName = StringStripWS($strFunctionName, $STR_STRIPLEADING + $STR_STRIPTRAILING)
    $strFunctionName = StringReplace ( $strFunctionName, "(", "~OSBS~" , 1 )
    $strFunctionName = StringReplace ( $strFunctionName, ")", "~OSBE~" , -1 )
    $strFunctionName = StringReplace ( $strFunctionName, "(", "~DSBS~" )
    $strFunctionName = StringReplace ( $strFunctionName, ")", "~DSBE~" )
    $strFunctionName = StringReplace ( $strFunctionName, "~OSBE~" ,")", -1 )
    $strFunctionName = StringReplace ( $strFunctionName, "~OSBS~","(", 1 )


   Local $arrStrProcedureArguments = StringSplit ( $strFunctionName, "," )
    ;_ArrayDisplay($arrStrProcedureArguments)
    Return $arrStrProcedureArguments[0]
EndFunc

 

[JLogan3o13]

That would have been helpful in post 1 So what, exactly, is not working for you?

[jguinch]

Why not just this ?

Func CountArgs($strFunctionName)
    Return UBound(StringSplit($strFunctionName, ",", 2))
EndFunc

 

[JohnOne]

Or

Func CountArgs($strFunctionName)
    StringReplace($strFunctionName, ",", ",")
    Return @extended + 1
EndFunc

 

[ur]

That would have been helpful in post 1 So what, exactly, is not working for you?

Yeah it is working fine now, I got the solution after posting the question.So I posted my code here.