diff options
author | Behrend Cornelius <bc@openoffice.org> | 2002-07-10 14:41:59 +0000 |
---|---|---|
committer | Behrend Cornelius <bc@openoffice.org> | 2002-07-10 14:41:59 +0000 |
commit | 867a800d5bf249d732fcbb6480c0ee5e1e7d1a15 (patch) | |
tree | 45b509ca03384023f39991eff09ac2e203b07383 /wizards | |
parent | f8d27c7d19ee1661aefebb8a6503964a505d64cb (diff) |
#100987# Sub ArrayfromMultiArray added
Diffstat (limited to 'wizards')
-rw-r--r-- | wizards/source/tools/Strings.xba | 12 | ||||
-rw-r--r-- | wizards/source/tools/UCB.xba | 2 | ||||
-rw-r--r-- | wizards/source/tools/script.xlb | 2 |
3 files changed, 14 insertions, 2 deletions
diff --git a/wizards/source/tools/Strings.xba b/wizards/source/tools/Strings.xba index 553fffd2eb32..35122eff1da9 100644 --- a/wizards/source/tools/Strings.xba +++ b/wizards/source/tools/Strings.xba @@ -268,6 +268,18 @@ Dim CurFieldValue End Function +Function ArrayfromMultiArray(MultiArray as String, iDim as Integer) +Dim MaxIndex as Integer +Dim i as Integer + MaxIndex = Ubound(MultiArray()) + Dim ResultArray(MaxIndex) as String + For i = 0 To MaxIndex + ResultArray(i) = MultiArray(i,iDim) + Next i + ArrayfromMultiArray() = ResultArray() +End Function + + ' Replaces the string "OldReplace" through the String "NewReplace" in the String ' 'BigString' Function ReplaceString(ByVal Bigstring, NewReplace, OldReplace as String) as String diff --git a/wizards/source/tools/UCB.xba b/wizards/source/tools/UCB.xba index 9e03138bdb78..020a26a096fa 100644 --- a/wizards/source/tools/UCB.xba +++ b/wizards/source/tools/UCB.xba @@ -209,7 +209,7 @@ Dim oStreamString as Object Dim oUcb as Object Dim sCRLF as String - sCRLF = CHR(10) & CHR(13) + sCRLF = CHR(13) & CHR(10) oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") oOutputStream = createUnoService("com.sun.star.io.TextOutputStream") If oUcb.Exists(FilePath) Then diff --git a/wizards/source/tools/script.xlb b/wizards/source/tools/script.xlb index c107f2c9bfb6..fe4d74d60332 100644 --- a/wizards/source/tools/script.xlb +++ b/wizards/source/tools/script.xlb @@ -7,4 +7,4 @@ <library:element library:name="UCB"/> <library:element library:name="Listbox"/> <library:element library:name="Debug"/> -</library:library> +</library:library>
\ No newline at end of file |