Bug in der Open for Output/Print-Anweisung?

[gogo]

Hallo zusammen!

könnte jemand das mal testen:

Code: Alles auswählen

iNumber = Freefile
Open "c:\temp\test.txt" for Output as #iNumber
  Print #iNumber, Chr$(13)
  Print #iNumber, Chr$(10)
Close #iNumber

Bei mir werden immer nur Zeilenvorschübe (Chr$(10)) geschrieben niemals Carriage-Returns Chr$(13)!

[karolus]

Hallo

Was hast du eigentlich vor, ausser Zeilenvorschübe und Carriagereturns in .txt files zu schreiben ?

Karolus

[gogo]

ich habe eine Software, die diese aus LO exportierten Files liest, da müssen einfache \r die Zeilenenden sein.

Ich hab's mittlerweile so gelöst - das ist aber nicht wirklich "elegant"

Code: Alles auswählen

dim aCC(50)
sCC=""
i=0
Open sMyPath For Output as #iNumber
  sSt = oResultset.getstring(2) & " "
  sCC=sCC & sSt
  aCC(i)=len(sCC)
  Print #iNumber, sSt
  oResultset.beforefirst
  do while oResultset.next
	i=i+1
	sSt = oResultset.getstring(2) & "	" & i & "	U	0	0	0" & " "
	sCC=sCC & sSt
	aCC(i)=len(sCC)+i
	Print #iNumber, sSt
  loop
Close #iNumber

Open sMyPath For Binary as #iNumber
	for ii=0 to i
		put #iNumber,aCC(ii) ,Chr(13)
	next ii
Close #iNumber
msgbox "Murks beendet!"

... d.h. am Ende jeder Zeile steht ein Leerzeichen, nach dem Schreiben jeder Zeile wird die Position dieses Leerzeichens im Array aCC() gespeichert. Nachdem die Datei geschrieben wurde wird sie im Binary-Modus geöffnet, und an den in aCC() gespeicherten Positionen wird mit "put" ein CHR$(13) gesetzt ...

[karolus]

Hallo
Davon kriegt man ja Kopfschmerzen - hast du mal über die Verwendung einer vernünftigen(1) Programmiersprache nachgedacht - oder wenigstens an die Umstellung auf Api-Methoden(2) zum Schreiben der Dateien ?
(1) LO hat eine vollständige Python-umgebung an Bord
(2) com.sun.star.ucb.SimpleFileAccess

Karolus

[gogo]

Elefantenjagd - ich bleib' bei dem mit Samt gepolsterten Einspänner - Programmiererzeit ist teuerer als Rechenzeit. Und eine neue Sprache lern' ich wegen eines Carriage-Returns nicht

[karolus]

Hallo

Programmiererzeit ist teuerer..

Dein oben gezeigter "Murks" [Zitat aus deinem Quelltext] ist ein Gegenargument für diese Aussage.

Beispiel zum Schreiben von Textfiles mit CR:

Code: Alles auswählen

...
with open("c:/bla/blub/beispiel.txt", "w") as txt_datei:
    txt.datei.write( "zeile1\rzeile2\rzeile3\r")
... 

[gogo]

thx - welche Sprache ist das? - ich nehme mal an Python

Code: Alles auswählen

Open "c:\temp\test.txt" for Output as #iNumber
  Print #iNumber, Chr$(13)

... würde ich vorschlagen - wenn's nicht verbuggt wäre

oder einfach so:

Code: Alles auswählen

Open sMyPath  For Binary as #iNumber
	for i=1 to len(sText)
		put #iNumber,i , mid(sText,i,1)
	next i
Close #iNumber

Die put-Anweisung schafft's mit dem CHR$(13).