diff options
-rw-r--r-- | source/text/sbasic/shared/03090203.xhp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/source/text/sbasic/shared/03090203.xhp b/source/text/sbasic/shared/03090203.xhp index a736753445..dad29dca34 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> |