OpenOffice.info

Sub ascii_to_utf8(oNewEnc as Object)

Dim I As Long

Dim Replace As Object

Dim ascii(0) As String
Dim utf8(0) As String
 
ascii() = Array("0082")
utf8()  = Array("00E9")

Replace = oNewEnc.createReplaceDescriptor
Replace.SearchRegularExpression = True
 
For I = 0 To 0
  Replace.SearchString  = "\x" & ascii(I)
  Replace.ReplaceString = "\x" & utf8(I)
  Doc.replaceAll(Replace)
Next I

End Sub

@komma4: ich hab nun mal versucht, unten stehendes Sub auf ein ResultSet anzuwenden, aber "er" meckert rum, daß die Methode "createReplaceDescriptor" unbekannt ist - o.k., ist klar, daß diese Methode nicht auf das Objekt angewendet werden kann. Aber ich würd mich über 'nen Tipp freuen, wie ich weitermachen könnte.


[code]Sub ascii_to_utf8(oNewEnc as Object)

Dim I As Long

Dim Replace As Object

Dim ascii(0) As String
Dim utf8(0) As String

ascii() = Array("0082")
utf8() = Array("00E9")

Replace = oNewEnc.createReplaceDescriptor
Replace.SearchRegularExpression = True

For I = 0 To 0
Replace.SearchString = "\x" & ascii(I)
Replace.ReplaceString = "\x" & utf8(I)
Doc.replaceAll(Replace)
Next I

End Sub[/code]

Danke
Oliver

Naja,

eher eine Funktion, die die Features von

[url]http://www.gnu.org/software/libiconv/documentation/libiconv/iconv.1.html[/url]

hat - aber ich werd's mal versuchen

Danke
Oliver


EDIT:
iconv hat den Vorteil, daß ich mir keinen Kopf drüber machen muß, wie ich é (ASCII 130) in utf-8 oder was auch immer übersetzen muß

Du suchst was um mittels Basic die Zeichen zu ändern?

[color=#008000]REPLACEDESCRIPTOR[/color]

War es das?

Hallo,

hab aus einer dbf-Datenquelle wahrscheinlich die übliche "Latin 1"-Kodierung gejolt und würd das nun gerne per OOo und Makro in utf-8 umkodieren. Hab schon nach Funktionen geschaut und auch a wegn gegoogelt konnte bisher aber nix finden?

Für dies Zeichen beispielsweise ´ krieg ich bei utf-8 nur Murx angezeigt

Kleiner Tipp von Euch?

Gruß
Oliver