diff options
| author | Rüdiger Timm <rt@openoffice.org> | 2008-07-07 11:08:30 +0000 |
|---|---|---|
| committer | Rüdiger Timm <rt@openoffice.org> | 2008-07-07 11:08:30 +0000 |
| commit | a3e74d91e62db3922d603b72adc03b818d4f357d (patch) | |
| tree | f377a7f23ef6c005afd91d042f912c3ae136761d /wizards | |
| parent | 1391e65602fa103403e42dfe97a5c1f71f23e35d (diff) | |
INTEGRATION: CWS ab53 (1.28.4); FILE MERGED
2008/06/25 15:58:53 ab 1.28.4.1: #i90796# Fixed ArrayoutofString function
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/tools/Strings.xba | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/wizards/source/tools/Strings.xba b/wizards/source/tools/Strings.xba index e6cf77b37074..a2a8907e02f2 100644 --- a/wizards/source/tools/Strings.xba +++ b/wizards/source/tools/Strings.xba @@ -112,13 +112,8 @@ End Function Function ArrayOutOfString(BigString, Separator as String, Optional MaxIndex as Integer) Dim LocList() as String LocList=Split(BigString,Separator) -' The following line has no effect because it seems that Optional variables are -' always passed as ByValue variables. But MaxIndex must remain in the function for -' compatibility reasons -' The user of the function can always use ubund on the return value to get the -' highest index of the array. -' If not isMissing(MaxIndex) then maxIndex=ubound(LocList()) + If not isMissing(MaxIndex) then maxIndex=ubound(LocList()) ArrayOutOfString=LocList End Function |