Hieroglyphen beim schreiben in Datei

[spex]

Moin,

Mit folgendem code http://www.activevb.de/tipps/vb6tipps/tipp0548.html versuche ich einen String aus der Registry auszulesen.

Wenn ich das Resultat per "msgbox" ausgebe, dann klappt das auch wunderbar.
Nun will ich jedoch den String in eine Datei schreiben, folgendermaßen:

    Open App.Path & "\ResultKeys.txt" For Binary As #2
        Put #2, 1, RegValue
    Close #2

In der Textdatei steht jetzt aber folgendes:
 TEST

oder sonst irgendwelche Hieroglyphen.

Was ist der Grund dafür

Gruß

 

[wincnc]

Hallo

Warum schreibst Du denn Binär?

Versuch´s mal so:

Dim Nr As Integer
  
  Nr = FreeFile
  Open App.Path & "\ResultKeys.txt" For Output As #Nr
    Print #Nr, RegValue;
  Close #Nr

 

[spex]

Binär weil die Datei nicht existiert vor dem Schreiben. Und wenn ich so wie du es sagst schriebe, dann passiert genau das gleiche

 

[wincnc]

Die Hieroglyphen sind Teile eines Zeilenumbruchs.
Versuche die Zeichen durch einen richtigen Zeilenumbruch zu ersetzen oder sie ganz zu entfernen.

  RegValue = Replace(RegValue, Chr(10), vbCrLf)
  ' oder
  RegValue = Replace(RegValue, Chr(13), vbCrLf)
  ' oder
  RegValue = Replace(RegValue, Chr(10), "")
  RegValue = Replace(RegValue, Chr(13), "")

Danach in die Datei schreiben.