「自作関数」一覧

自作関数の目次です 文字列関数 ・NP_CutFirst　　：指定した文字列で文字列分割 ・IsExists　　　　：IndexOf(s)-1 的なヤツ ・GetTagList　　 ：セクションタグの列挙 ・EliminateTags　：タグによるセクションの除去

まずはソースから。 function IsExistsEx(SubStr,Str:string;aPos:integer=-1):boolean; var s:string; begin Result:=False; while SubStr<>'' do be...

セクションタグの列挙の続きです。 まずはソースから。 function EliminateTags(Src,TagList:string):string; var s,t,CloseTag:string; begin Result:=''; while src'' d...

今回はセクションタグの列挙についてです。 以下のようなテキストがあったとします。 ContentsA ContentsB この場合に、TagA TagB TagCを抜き出す。 といった関数です。 ソースです。 function Get...

まずソースから。 function IsExists(SubStr,Str:string):boolean; begin Result:=(Pos(_CRLF+SubStr+_CRLF,_CRLF+Str+_CRLF)0); end; 改行文字で区切られた文字列リストの中...

まずはソースから。 function NP_CutFirst(var Str:string;SubStr:string):string; var aPos:integer; begin Result:=''; //------------------------------...