CONSTSTR MYRTLEXP StrDelStr( CONSTSTR str,CONSTSTR subStr,int pos ) { CONSTSTR m = (str && subStr)?strstr(str+Min(pos,(int)strLen(str)),subStr):NULL; resStrSCol = ""; if ( !m ) { if (str) resStrSCol = str; return resStrSCol.Text(); } for ( ; *str && str != m; str++ ) resStrSCol.Add(*str); for ( ; *str && *subStr; subStr++,str++ ); for ( ; *str; str++ ) resStrSCol.Add(*str); return resStrSCol.Text(); }
CONSTSTR MYRTLEXP StrDelCol( MyString& buff, CONSTSTR str,int number,CONSTSTR seps ) { int res; buff = ""; for ( res = 1; *str && res < number; buff.Add(*str),str++ ) if ( StrChr(seps,*str) != NULL ) res++; if ( res == number ) for( ; *str && StrChr(seps,*str) == NULL; str++ ) /**/; for( ; *str; str++ ) buff.Add(*str); return buff.Text(); }
//--------------------------------------------------------------------------- MyString MYRTLEXP AddLastSlash( MyString& path, char Slash ) { if ( path.Length() && path[ path.Length()-1 ] != Slash ) path.Add( Slash ); return path; }