vhLib.Macro 1 %RegisteredObject 1 String:%String,F:%String,T:%String,From:%String,Cnt:%String,Continue:%Boolean=0 1 String:%String 1 String:%String %String 1 String:%String,SubStrings...:%String 1 String:%String,EndsWith:%String %Boolean 1 String:%String %String 1 String:%String %String 1 String:%String %String 1 String:%String %String 1 String:%String %String 1 String:%String %String Nagaan of Input match aan het opgegeven pattern. Volgende mogelijkheden * : 0 of meer characters ? : exact 1 character Voorbeelden w ##class(TECH.StringUtils).MatchesWildCard("abcmqsldkfmlsqkfjdef","abc*def") w ##class(TECH.StringUtils).MatchesWildCard("adm","a?m") w ##class(TECH.StringUtils).MatchesPattern("a1mqsfd","a?m*") 1 Input:%String,Pattern:%String,CaseSensitive:%Boolean=0 0 [Previously private] 1 WildCard:%String,StartWith:%String 1 Input:%String,Filler:%String,Width:%Integer 1 InputString:TECH.String,Width:TECH.Integer,Alignment:TECH.enu.TextAlignment=##class(TECH.enu.TextAlignment).Left(),Filler:TECH.String=" " TECH.String Trim whitespaces ($C(9), $C(32), $C(160)). 1 Input:%String %String Trim whitespaces ($C(9), $C(32), $C(160)). 1 Input:%String,CharToTrim:%String=" " %String 1 Input:%String,CharToTrim:%String=" " %String 1 Input:%String,CharToTrim:%String=" " %String 1 Input:%String,Positie:%Integer %String 1 Input:%String,CharactersPerLijn:%Integer,Delimiter:%String=" " %ListOfDataTypes 1 Input:%String,Width:%Integer=50 TECH.String 1 Input:%String,Char:%String=" ",Width:%Integer=50 TECH.String 1 Input:%String,Char:%String=" ",Width:%Integer=50 TECH.String 1 Input:%String,Width:%Integer=50 TECH.String Omzetting van standaard base64 naar "RFC 4648 'base64url' encoding". 1 StandaardBase64String:%String %String 1 Lijst:%String,Waarde:%String,Delim:%String=";" %Boolean 0 ) quit InList ]]> 1 Length:%Integer,Char:%String=" " %String 1 Lijst:%String,Waarde:%String,Delim:%String=";" %String 1 String:%String,SubString:%String %Integer 0:AantalPieces-1,1:0) ]]> 1 String:%String,Delimiter:%String %String 1 String:%String,Delimiter:%String %String 1 String:%String,Delimiter:%String %String 1 String:%String,Delimiter:%String %String 1 String:%String 0 %String 1 String:%String,SubString:%String,Scheidingsteken:%String=", " %String 1 String:%String 1 String:%String Remove all whitespaces ($C(9), $C(32), $C(160)) 1 String:TECH.String TECH.String 1 String:%String,SubStrings...:%String %Boolean 1 String:%String,MaxLength:%Integer,EllipsisSign:%String="~" %String MaxLength) { Set String = $Extract(String,1,MaxLength-$L(EllipsisSign)) _ EllipsisSign } Quit String ]]> 1 String:%String,SubStrings...:%String 1 String:%String %Boolean 1 String:%String %Boolean 1 String:%String,Delimiter:%String=";",Comparator:TECH.Comparator.IComparator=##class(TECH.Comparator.StringComparator).%New() 1 String:%String """_$c(9),"")) ]]> 1 String:%String,Karakter:%Char %String 1 Text:%String,Parameters...:%String %String