如果你嘗試了所有的方法和仍然沒有工作,你可以嘗試以下方法:
Local StringVar inString := 'Your text string here.......';
Local NumberVar strLen := Length (inString);
Local StringVar result := "";
Local NumberVar maxLen := 45; // adjust the length of text per line
Local NumberVar idx := 0;
Local NumberVar proceed := 0;
While strLen > maxLen Do
(
proceed := 1;
idx := maxLen;
While (mid(inString,idx,1) <> " " and idx > 1) Do
(
idx := idx -1;
);
if (idx = 1) then
result := result + mid(inString,1,maxlen) + chr(10)
else
(
result := result + mid(inString, 1, idx-1)+ chr(10);
strLen := strLen-idx;
inString := mid(inString, idx+1, strLen)
)
);
if proceed = 1 then
(
result := result + inString
)
else
(
result := inString
);
result
添加0.2釐米到正確的段落縮進解決了我的問題。 – zendar 2012-11-16 18:40:33
感謝這也解決了我的問題 – Nick 2014-03-08 16:00:15
我需要調整我的文本框的寬度結合正確的縮進來獲得正確的結果。 – Matthieu 2016-01-08 15:26:22