Den 07.12.2015 13:55, skrev 'checkmail' check_m...@satron.de [firebird-support]: > .. and if the ID has the length of 15 chars and only the las * is for filling out to 16, i get a wrong result too. > > Can I compact my code? > > if(char_length(str)>16) then > begin > str = left(:str,16); > while (k = 1) do > begin > if(right(str, 1) = '*') then > begin > str = left(str,char_length(str)-1); > end > else > begin > teil = str; > k = 0; > end > end > end > > (exept the one begin-end (only one command can be without..) >
http://www.firebirdsql.org/refdocs/langrefupd25-intfunc-trim.html Hence, I think your 16 lines above can be replaced by one simple line (if you use Fb 2.5): str = trim (trailing '*' from left(:str, 16)); HTH, Set
