Hallo,
ich exportiere aus einer DB gewisse Felder der Dokumente in ein .txt-File.
Die Zeilen in dem File sehen dann z.B. so aus:
DE;4740;Bitte weitere Felder prüfen;
DE;4741;Die Eingabe ist zu kurz;
DE;4743;Wert ist zu groß;
usw
Jetzt müssen auch russische Zeichen in das File exportiert werden. Da ich keinen russischen Zeichensatz auf dem Client und dem Server habe (ich denke mal es liegt daran), werden die russischen Zeichen nicht in das File geschrieben, sondern landen dort als eckige Kästchen.
Was kann ich tun, um das Problrm zu beheben?
Muss ich einen russischen Zeichensatz haben?
Kann ich die Zeichen irgendwie genau so in das File schreiben, wie ich sie mal aus Excel geholt habe?
Das ist mein Code, wie ich das File erstelle und fülle:
counter% = 0
TempDir$ = Environ("C")
tempFile% = Freefile()
' Dies ist der Name des Files
tempFileName$ = TempDir$ + "\" + "Sprachentext_Export" + ".txt"
Open tempFileName$ For Output As tempFile%
Stop
Dim item As notesitem
Dim id_txt As String
lfd_nummer = 1
xxx = ";"
Do Until doc Is Nothing
Stop
id_txt = Cstr(doc.idttxt(0))
beztxt = doc.beztxt(0)
sprache = doc.sprache(0)
' Dies wird in das TXT-File geschrieben
text = sprache & xxx & id_txt & xxx & beztxt & xxx
Print #TempFile%,text$
Print text$
Set nextdoc = view.GetNextDocument(doc)
Set doc = nextdoc
lfd_nummer = lfd_nummer + 1
Loop
Close TempFile%
