String matching: Difference between revisions

→‎{{header|PureBasic}}: replace debug verification with console output
(→‎{{header|PureBasic}}: replace debug verification with console output)
Line 829:
EndProcedure</lang>
And a verification
<lang PureBasic>DebugIf StartsWithOpenConsole("Rosettacode", "Rosetta") ; = 1
Debug PrintN(Str(StartsWith("Rosettacode", "codeRosetta") )) ; = 01
Debug PrintN(Str(StartsWith("eleutherodactylus cruralisRosettacode", "ecode"))) ; = 30
PrintN(Str(StartsWith("eleutherodactylus cruralis", "e"))) ; = 3
Debug EndsWith ("Rosettacode", "Rosetta") ; = 0
Debug PrintN(Str(EndsWith ("Rosettacode", "codeRosetta") )) ; = 10
Debug PrintN(Str(EndsWith ("Rosettacode", "ecode") )) ; = 2</lang>1
Debug PrintN(Str(EndsWith ("Rosettacode", "Rosettae"))) ; = 02
Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input()
CloseConsole()
EndIf</lang>
 
=={{header|Powershell}}==
Anonymous user