source/text/sbasic/shared/03090203.xhp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-)
New commits: commit 9e62afaaebac009fcfee18ef998f0db3baf953b4 Author: Ilmari Lauhakangas <[email protected]> AuthorDate: Tue Nov 3 18:54:50 2020 +0200 Commit: Ilmari Lauhakangas <[email protected]> CommitDate: Tue Nov 3 18:07:08 2020 +0100 Fix macro example for While...Wend Change-Id: I09aa5a76319fb018d429028c88d4ed964f59e8f0 Reviewed-on: https://gerrit.libreoffice.org/c/help/+/105262 Tested-by: Jenkins Reviewed-by: Ilmari Lauhakangas <[email protected]> diff --git a/source/text/sbasic/shared/03090203.xhp b/source/text/sbasic/shared/03090203.xhp index a73675344..dad29dca3 100644 --- a/source/text/sbasic/shared/03090203.xhp +++ b/source/text/sbasic/shared/03090203.xhp @@ -56,7 +56,7 @@ <paragraph role="bascode" id="par_id3155306" xml-lang="en-US"> sText ="This is a short text"</paragraph> <paragraph role="bascode" id="par_id3154011" localize="false"> iRun = 1</paragraph> <paragraph role="bascode" id="par_id3147215" localize="false"> While iRun < Len(sText)</paragraph> - <paragraph role="bascode" id="par_id3147427" localize="false"> If Mid(sText,iRun,1 )<> " " Then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )</paragraph> + <paragraph role="bascode" id="par_id3147427" localize="false"> If Mid(sText,iRun,1 )<> " " Then Mid( sText ,iRun, 1) = Chr( 1 + Asc( Mid(sText,iRun,1 )) )</paragraph> <paragraph role="bascode" id="par_id3149665" localize="false"> iRun = iRun + 1</paragraph> <paragraph role="bascode" id="par_id3152939" localize="false"> Wend</paragraph> <paragraph role="bascode" id="par_id3153189" xml-lang="en-US"> MsgBox sText,0,"Text encoded"</paragraph> _______________________________________________ Libreoffice-commits mailing list [email protected] https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
