Attachment 115382 Details for Bug 91074 – Correct code; converting character set to Turkish letters.

Correct code; converting character set to Turkish letters.

turkish.txt (text/plain), 1.75 KB, created by Burak Ural on 2015-05-06 09:12:37 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Burak Ural

Created: 2015-05-06 09:12:37 UTC

Size: 1.75 KB

patch

obsolete

>Sub Main
>    oDocument = ThisComponent
>    If oDocument.SupportsService("com.sun.star.text.TextDocument") Then
>        Call doc()
>
>    ElseIf oDocument.SupportsService("com.sun.star.sheet.SpreadsheetDocument")Then
>        Call xls()
>    End If
>End Sub
>
>Sub DOC
>  Dim mBritishWords(5) As String
>  Dim mUSWords(5) As String
>  Dim n As Long
>  Dim oDocument As Object
>  Dim oReplace As Object
>  mBritishWords() = Array("Ã½", "Ã°", "Ã¾", "Ã", "Ã", "Ã")
>  mUSWords() = Array("Ä±", "Ä", "Å", "Ä°", "Ä", "Å")
>  oDocument = ThisComponent
>  oReplace = oDocument.createReplaceDescriptor
>  oReplace.SearchCaseSensitive=True
>  For n = lbound(mBritishWords()) To ubound(mBritishWords())
>    oReplace.Searchstring = mBritishWords(n)
>    oReplace.ReplaceString = mUSWords(n)
>    oDocument.replaceAll(oReplace)
>  Next n
>  Msgbox "DOC Letters Corrected!"
>End Sub
>
>Sub XLS
>  Dim mBritishWords(5) As String
>  Dim mUSWords(5) As String
>  Dim n As Integer
>  Dim m as Integer
>  Dim oDocument As Object
>  Dim oSheets as Object
>  Dim oReplace As Object
>  Dim oCurSheet as Object
>  mBritishWords() = Array("Ã½", "Ã°", "Ã¾", "Ã", "Ã", "Ã")
>  mUSWords() = Array("Ä±", "Ä", "Å", "Ä°", "Ä", "Å")
>  oDocument = ThisComponent
>  oSheets = oDocument.Sheets
>  ' The Replacedescriptor has to be created at one sheet
>  oReplace = oSheets(0).createReplaceDescriptor()
>  oReplace.SearchCaseSensitive=True
>    For m = 0 To oSheets.Count-1
>        oCurSheet = oSheets(m)
>        For n = lbound(mBritishWords()) To ubound(mBritishWords())
>            oReplace.Searchstring = mBritishWords(n)
>               oReplace.ReplaceString = mUSWords(n)
>                oCurSheet.ReplaceAll(oReplace)
>          Next n
>       Next m
>  Msgbox "XLS Letters Corrected!"
>End Sub

Actions: View

Attachments on bug 91074: 115305 | 115307 | 115315 | 115316 | 115377 | 115379 | 115381 | 115382