---

Ich will in einem String nach einem Wort mit Umlauten suchen:

Code:

---

WordTemplate = "D:\Files\AuswahlDir\CDE-ABC_Präsentation.docx"
Set objFSO = CreateObject("Scripting.FileSystemObject")
WordFileOut = objFSO.GetBaseName(WordTemplate)
PraesFlag = instr(WordFileOut,"Präsentation")

---

PraesFläg ist 0, wenn ich nach "sentation" suche ist es grösser 0
msgbox bringt den String sauber. Die Umlaute werden aber anscheinend trotzdem anders codiert. Wie bekomme ich das sauber ?

Axel

Auch ein "Spielen mit dem Compare Parameter bringt kein befriedigendes Ergebnis : PraesFlag = instr(1,WordFileOut,"Präsentation",1)

[Diese Nachricht wurde von Axel.Strasser am 17. Dez. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Axel,

Was steht denn in "WordFileOut" drin ?

Gruß
Roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Je nachdem wie Du es Dir anzeigen lässt mal mit richtigem Umlaut mal codiert. Es muss irgendwie mit UTF8 zu tun haben. Ich habe jetzt eine Lösung gefunden, weiss aber noch nicht genau warum sie funktioniert 

Code:

---

PraesFlag = instr(WordFileOut, Conv("Präsentation"))

...

Function Conv(UTF8String)
Dim Stream
Set Stream = CreateObject("ADODB.Stream")
With Stream
    .Type = 2
    .Open
    .Charset = "Windows-1252"
    .WriteText UTF8String
    .Position = 0
    .Charset = "UTF-8"
    Conv = .ReadText (-2)
End With
Stream.Close
Set Stream = Nothing
End Function

---

Axel

------------------
CAD.DE: Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de
Berufliches Umfeld: comsol.net; comsol.ch; Euromanagers;  3D Printingservice

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP