我需要将这两个公式用于一个字段。有人可以帮我把它们结合起来吗?
stringvar input := {tbl.col};
stringvar output := '';
numbervar i;
input := Trim(input);
for i := 1 to Length(input) Step 1 do
if not(input[i] in [Chr(13),Chr(10)]) then
output := output + input[i];output;
if right({tbl.col},1) = "]" then
left({tbl.col},instr({tbl.col},"[")-1)
else
{tbl.col};
如果我想先使用此代码然后删除空格/换行符,是否有任何建议? // stringvar array x:= split({Police.Narrative},“]”); // numbervar i; // numbervar j:= ubound(x); // stringvar y:=“”; //对于i:= 1到j-1做( // y:= y + trim(extractstring(x [i],“”,“[”))+“;” //); //如果len(y)> 2然后 // left(y,len(y)-2);
答案 0 :(得分:0)
您应该使用“替换”功能,而不是执行循环来删除空格和换行符。